EXCEL VBA オートフィルタの値コピー２| OKWAVE

EXCEL VBA オートフィルタの値コピー

ほぼ初心者ですのでよろしくお願いします。 Sheet2にデータがありそのデータをオートフィルタで日付から抽出してSheet3にコピーして、その後Sheet1の表に該当項目をコピーする際についてですが、オートフィルタ後、１日当たり行は１０～１５行あります、そのうちＧ列にはデータが通常２つのセルに値があるだけでほかの行は空欄です。（日によってどの行になるかはわかりません）この２つのセルの値をそれぞれSheet1のM10とM11コピーしたいのです、ちなみにセル番地は下記の方法で取得できましたが、値の取得ができません。 Range("D1").Value = Worksheets("sheet1").Range("A1").End(xlDown).Row Range("D2").Value = Worksheets("sheet1").Range("A65536").End(xlUp).Row Sub データコピー() Range("AB17") = Format(Sheet3.Range("A3").Value, "yy") Range("AE17") = Format(Sheet3.Range("A3").Value, "mm") Range("AH17") = Format(Sheet3.Range("A3").Value, "dd") Range("AK17") = Format(Sheet3.Range("A3").Value, "aaa") Range("D22") = Sheet4.Range("D3").Value Range("D25") = Sheet4.Range("E3").Value Range("H22") = Sheet4.Range("F3").Value Range("D22") = Sheet4.Range("G3").Value Range("L22") = Sheet4.Range("K3").Value Range("Q22") = Sheet4.Range("L3").Value Range("U22") = Sheet4.Range("M3").Value ．　　．　　． End Sub

Excek VBA 上へ詰めてコピー

VBAの勉強を始めたのですが、単純コピーはわかるようになったものの、空行の上詰めしながらのコピーでつまづいているので教えてください。またセル範囲について、RangeとCellsの使い分けでもつまづいています。画像の"Sheet1"のようなデータがあります。データの始まりはセル"A1"から始まっていますが、末尾（最終行）はデータのより様々で、最終行が決まっていません（n行）。このデータを任意のシート（例では"Sheet2"）の左上からコピーしたいのですが、その際に元の"Sheet1"のA列にエラー行が入ることがあります。エラー行は次の2種類です。 1. "error"など特定の文字（数字ではないもの）が入っている行 2. 空行（A列だけで判断）これらのデータ行は、行そのものをSheet2にはコピーせず、上へ詰めて正常行をペーストしていきたいのです。 Dim i As Integer For i の書き方 WorksheetsとCells（またはRange) エラー行のスキップの仕方などがわかりません。元（Sheet1）のデータは概ね体裁が決まっており、データの例外（エラー）は上の1. 2以外は考えずに、シンプルな書き方を望んでいますが、どのように記載したらよいでしょうか。

Excelで、A列、B列の値を新しいシートに3行ごとにどんどん貼り付け

Excelで、A列、B列の値を新しいシートに3行ごとにどんどん貼り付ける。という事をしたいのですが、VBAを始めたばかりなので上手く書くことが出来ません。例）　　　Ａ列　　　Ｂ列　　１０１　　りんご　　　１０２　　ぶどう　　１０３　　オレンジ　　１０４　　　桃　　１０５　　バナナ　　　　　・　　　　　・　　　　　・これを別のシートに　　　Ａ列　　　Ｂ列　　１０１　　りんご（２行あける）　　１０２　　ぶどう（２行あける）　　１０３　　オレンジ（２行あける）　　　１０４　　　桃（２行あける）　　　１０５　　バナナ　　　　　・　　　　　・　　　　　・と表示したいのです。現在は下記のようなリンクで表示していますが、件数が少ない時は４件から多い時は８００件と幅があります。出来れば表の一番下（空欄になる部分）まで繰り返し処理をしたいと思っています。セルの中身が表示されるならリンクでもコピーでも構いません。現在のマクロ Sub Macro2() Worksheets("Sheet2").Select Range("C11").Value="=Sheet1!A2" Range("C14").Value="=Sheet1!A3" Range("C17").Value="=Sheet1!A4" Range("C20").Value="=Sheet1!A5" Range("C23").Value="=Sheet1!A6" Range("H11").Value="=Sheet1!B!" Range("H14").Value="=Sheet1!B2" Range("H17").Value="=Sheet1!B3" Range("H20").Value="=Sheet1!B4" Range("H23").Value="=Sheet1!B5" End sub ４５行分まで書いたところで途方に暮れております。よろしくお願いいたします。

エクセルVBAのフィルター機能について

こんにちわ！エクセルのVBAを使って複数の条件を入力すると結果シートへ吐き出すプログラムを組み込んでいますが、下から五行目のCriteriaRange:=Sheets("検索").Range("A1:R2"), _の.Range("A1:R2")を変更した際に.Range("A1:R3")にすれば条件を指定できるのですがその状態で条件を一つだけ入力し抽出すると抽出できずすべてのデーターが吐き出されてしまいます。ただし二行抽出データーを埋めるとそのとおりに抽出され結果シートへ吐き出されます。抽出する条件を入力する際、一つの時もあれば二つの時もあります。そういった事を回避するにはどうすればいいでしょうか？ Sub OutputRec() Application.ScreenUpdating = False Sheets("結果").Activate Cells.Clear Sheets("検索").Range("A1").Value = Sheets("DATA").Range("A1").Value Sheets("検索").Range("B1").Value = Sheets("DATA").Range("B1").Value Sheets("検索").Range("C1").Value = Sheets("DATA").Range("C1").Value Sheets("検索").Range("D1").Value = Sheets("DATA").Range("D1").Value Sheets("検索").Range("E1").Value = Sheets("DATA").Range("E1").Value Sheets("検索").Range("F1").Value = Sheets("DATA").Range("F1").Value Sheets("検索").Range("G1").Value = Sheets("DATA").Range("G1").Value Sheets("検索").Range("H1").Value = Sheets("DATA").Range("H1").Value Sheets("検索").Range("I1").Value = Sheets("DATA").Range("I1").Value Sheets("検索").Range("J1").Value = Sheets("DATA").Range("J1").Value Sheets("検索").Range("K1").Value = Sheets("DATA").Range("K1").Value Sheets("検索").Range("L1").Value = Sheets("DATA").Range("L1").Value Sheets("検索").Range("M1").Value = Sheets("DATA").Range("M1").Value Sheets("検索").Range("N1").Value = Sheets("DATA").Range("N1").Value Sheets("検索").Range("O1").Value = Sheets("DATA").Range("O1").Value Sheets("検索").Range("P1").Value = Sheets("DATA").Range("P1").Value Sheets("検索").Range("Q1").Value = Sheets("DATA").Range("Q1").Value Sheets("検索").Range("R1").Value = Sheets("DATA").Range("R1").Value Sheets("DATA").Range("A1").CurrentRegion.AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=Sheets("検索").Range("A1:R2"), _ CopyToRange:=Sheets("結果").Range("A1"), _ Unique:=False Sheets("結果").Columns("A:R").AutoFit Application.ScreenUpdating = True End Sub

EXCEL VBA 日別データを検索しコピー

度々すいません。行き詰まりましたので教えてください。エクセルSheet2に月の日別のデータがあります。日によってデータの行数はまちまちですが、A列には日付、B,C,D列には時間、E列には目的等々があります。そのデータをユーザーフォームのスピンボタンで日付を指定し、コマンドボタンをクリックしたら、Sheet1の１日分の表にコピーしたいのです。また指定日がなければメッセージで指定日がありませんと表示したいのです。よろしくお願いします。 excel2003 Private Sub SpinButton1_Change() TextBox1.Value = Date + SpinButton1.Value End Sub Private Sub CommandButton1_Click() '年月日表示 Range("C3") = Format(TextBox1.Value, "yy") Range("D3") = Format(TextBox1.Value, "mm") Range("E3") = Format(TextBox1.Value, "dd") Range("F3") = Format(TextBox1.Value, "aaa") 　　ここがわかりません　　Else MsgBox "指定日がありません" End If End Sub

EXCEL VBA コピーしたシートへ値をコピペ

選択対象シート数は4つで、シート名は、「101」「102」「103」「104」とします。シート名「表紙」のA列のセルはA10：101　A11：102　A12：103　A13：104となっており、使用者はとなりのB10～B14セルに「○」「×」を入力規則から選択します。また、シート名「表紙」のB6セルには製造番号（例：AM01-130012）を入力しておきます。「○」となっているシートのみ選択して、下記マクロにてコピーを作成します。コピーしたシートすべてのB2セルに製造番号を入力します。ここまではできていて、下記のプログラムを追加したいのですが、うまくいきません。さらに、○を付けたのと同じ行のD10～L10、D11～L11、D12～L12、D13～L13セルに、使用者が文字列を入れる場合と入れない場合があります。文字列は左のD列から順に入れます。文字列があれば、○を付けてコピーした対応するシートの中のH3～P3セルへ貼り付けたいのです。 D10、D11、D12、D13セルが空白のときは何も処理は行わないとします。たとえば、下記のようにB12セルが○で、D12セルに文字列があれば、 D12～L12セルの値を、コピーで作成したシート103の中のH3～P3セルへ貼り付けたいのです。 B11セルも○ですが、D11セルに文字列がないのでシートのコピーだけ行います。アドバイスいただけると助かります。 VBA初心者で申し訳ございませんが、よろしくお願いいたします。＜表紙のシート＞　　　A 　　　　B 　　　　C 　　　D 　　　 E 　　　　F 　　　G 　　　H 　　　I 　　　　J 　　　K 　　　　L 5 6　　　　AM01-130012 7 8 9　 10　101　　　　× 11　102　　　　○ 12　103　　　　○　　　　　　　A1-1　 A1-2　 A1-3　 A1-4 　A1-5 　A1-6 　A1-7 　A1-8 　 A1-9 13　104　　　　× ＜プログラム＞ Sub TestSample() If Application.CountIf(Worksheets("表紙").Range("B10:B17"), "*○*") = 0 Then MsgBox "部品番号が選択されていません。" Exit Sub End If Dim 製造番号 As String 製造番号 = Range("B6").Value Dim c As Range Dim flg As Boolean On Error Resume Next flg = True ThisWorkbook.Activate On Error GoTo ErrOut_ For Each c In Worksheets("表紙").Range("B10:B13") If c.Value Like "○*" Then Worksheets(c.Offset(, -1).Text).Select flg flg = False End If Next c If Not flg Then ActiveWindow.SelectedSheets.Copy ' コピーしたすべてのシートに製造番号を書き込む For Each 各シート In Worksheets With 各シート .Activate Cells(1, 2) = 製造番号 End With Next Exit Sub ErrOut_: MsgBox """表紙""シートに記載されたシート名" & c.Offset(, -1).Text & "は存在しません。, vbInformation" End Sub

VBAでオートフィルター　コピー、ペースト

VBA初心者です。膨大なデータの計算に悩んでおります。ご教授ください。工場の各商品に使われている材料の使用量を各商品と個数を一括で入力し、計算させるエクセルシートを作成したいのですが、 1商品に使用されている材料は5～10種と不特定です。シート1のA行に品番コード、B行に個数が入っており。(200列程度) シート2に各商品に使用されている材料のマスターがあります。 A行品番コード、B行材料名、C～Fが材料のサイズ指示。シート1のA5(商品リストの先頭)をセレクトし商品コードをコピー→シート2の材料マスターに移りオートフィルターで商品に使われている材料を選択→該当した材料、サイズ(行A～H）をコピー※列数は商品によって異なるので該当した全てをコピー→シート1の空白（仮にE5とする）にペースト→シート1のA6をセレクトしそれをA行が空白になるまで繰り返す。という感じで出来るのかと思うのですが、いかがでしょうか。何しろデータが膨大で計算させるにも時間がかかってしまいそうですが・・・また別な方法で同様な処理ができれば、それも合わせてお願いします。不備ご不明な点あれば教えてください。

【エクセルVBA】データの振り分けについて。

エクセルVBAでのデータの振り分けについて教えて下さい。シート(1)のA列には他のファイルから抽出したデータがあります。各行のデータの中に、H20年度が含まれている場合はシート(2)のA列に移動させ、H21年度が含まれている場合にはシート(2)のC列に移動させたいと思っています。以前に sheets(1).Range("H40").Value Like "*○○*" Then sheets(2).Range("H40").Value = 0 sheets(1).Range("G" & myRow).End(xlUp).Offset(1, 0).Value = _ sheets(2).Range("H40").Value こういうものを使ったことがある為これを応用するといいのかなとも思ったのですが、わからなくなってしまい質問させていただきました。勉強不足ですいません。教えて頂けないでしょうか。よろしくおねがいします。

EXCEL VBA 数式を含めたコピー貼り付け

お世話になります。こちらのサイト内にありました、以前の質問QNo.8966520に対する以下の回答（http://qa.itmedia.co.jp/qa8966520.html）を参考にしているところですが、このVBAでは、A列に入っているデータ毎に新規ファイルを作成・保存するような処理となっているようですが、仮にデータを分類する基準を現在のA列を基準としたものから、B列にする場合は、どの記述をどのように変更すればよろしいでしょうか。これに加えての質問ですが、仮にA.xlsｘという元ブックがあると仮定し、この中に[データ]と[単価]という2つのシートがあるとします。以下のVBAの記述では[データ]シートのデータをA列ごと分類し、それを新規ブックに保存させるものですが、これに合わせて[単価]シートのデータ（シート内のデータは加工の必要なし）も新たに作成するブックにコピーし、保存するには、どのような記述を追加すればよろしいでしょうか。最終的には、新規作成ブックに、[データ]と[単価]の2つのシートが作成されるようにしたいと思います。 [単価]シートのデータを、[データ]シートのデータと合わせて新規ブックにコピーする目的は、[データ]シートのデータの一部に、[単価]シートのデータを参照する数式が入っており、[作業用]シートのデータの抽出・保存だけでは、[作業用]シート内の数式が不完全な状態となってしまうためです。どなたかご教授いただけますでしょうか？よろしくお願い致します。 Sub sample() Dim s0, nwk As Worksheet Dim h Dim i, j, LastRow, cnt As Long Application.DisplayAlerts = False Worksheets("データ").Copy before:=Worksheets(1) Set s0 = Worksheets(1) Do Until Application.CountA(s0.Range("A:A")) < 2 h = s0.Range("A2").Value '検索ワードの変数hと同じ文字のセル数取得 cnt = WorksheetFunction.CountIf(s0.Range("A:A"), h) i = cnt + 1 With s0 Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = h End With Set nwk = Worksheets(h) 'データシートのA列の最終行取得 LastRow = s0.Cells(Rows.Count, 1).End(xlUp).Row j = LastRow '1行目コピー s0.Range("A1:C1").Copy nwk.Range("A1") Do Until j = 1 'A列のセルデータが変数hと同じ場合コピペ及び行削除 If s0.Cells(j, 1).Value = h Then s0.Range("A" & j & ":C" & j).Copy nwk.Range("A" & i) i = i - 1 s0.Rows(j).Delete End If j = j - 1 Loop With nwk .Move ActiveWorkbook.SaveAs Filename:="C:\dumy\" & h & ".xlsx" ActiveWorkbook.Close False End With Loop s0.Delete Application.DisplayAlerts = False MsgBox "データをEXCELに表示します。" End Sub

オートフィルター後の見出し以外をコピー

お世話になっております。Excel2003を使ってます。オートフィルター後の、見出し以外をコピーしようと考えています。現在は With　ThisWorkbook.Worksheets("テスト") .Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select '可視セルの選択 Selection.Copy '可視セルコピー ThisWorkbook.Worksheets("フィルタ用").Range("A" & m).PasteSpecial 'A列に貼り付け！ Excel.Application.CutCopyMode = False 'クリップボードの内容クリア End with この内容で上手くいっていましたが、見出し+1行しかない場合、全範囲選択になってしまい、上手くいかない状況です。どうやったら、見出し以外のB列をコピーできるのでしょうか？ Offset　とか、　Resize　を使えばいけるのでしょうか…？見出し以外の行、 B列、C列、D列　F列　を　「TEST」シートにコピーしたいです。 With ThisWorkbook.Worksheets("テスト").Range("A1").CurrentRegion .Offset(1, 1).Resize(.Rows.Count - 1, 3).Copy _ Destination:=Thisworkbook.worksheets("TEST").Range("A" & m) .Offset(1, 4).Resize(.Rows.Count - 1, 1).Copy _ Destination:=Thisworkbook.worksheets("TEST").Range("D" & m) End With 考えたのですが、良く分からなくなってしまいました。回答をお願い致します！

EXCEL VBAの配列でわかりません。

こんなコードがあるのですが、最後の他のシート（作業中シート）に書き込もうとするとエラーになってしまいます。”Sheets("作業中").”を抜くと同じシートに結果は返ってくるのですが…。コードの内容は、ある範囲のある列から空白ではないセルを探し出してその行のデータを配列で汲み取り、他のシートに一括で洗い出すというものです。 Sub 作業中() Dim myRow As Long Dim Data As Variant Dim WC() As Variant Dim WCE() As Variant myRow = Range("H1").CurrentRegion.Rows.Count Data = Range("H1:M" & myRow).Value For i = 1 To myRow If Data(i, 5) <> "" Then a = a + 1 Else b = b + 1 End If Next ReDim WC(a) ReDim WCE(b) c = 0 d = 0 For i = 1 To myRow If Data(i, 5) <> "" Then WC(c) = Range("H" & i & ":K" & i).Value c = c + 1 Else WCE(d) = Range(Cells(i, 8), Cells(i, 11)).Value d = d + 1 End If Next For i = 0 To a Range(Cells(i + 1, 15), Cells(i + 1, 18)).Value = WC(i) Next For i = 0 To b Range(Cells(i + 1, 19), Cells(i + 1, 22)).Value = WCE(i) Next e = Range(Cells(1, 15), Cells(a, 18)).Value Sheets("作業中").Range(Cells(1, 1), Cells(a, 4)).Value = e End Sub ちなみに同じシートから↓のコードを実行するとうまくいきます。なぜ～？？わからな～い？？おしえてくださーい！！ Sub test() Dim a As Variant a = Range("H1:K4") Sheets("作業中").Range("N1:Q4") = a End Sub

オートフィルタで出てきたものを他シートへコピー

オートフィルタを使って出てきた内容を、他のシートにコピーさせたいのです。内容は、でてきたシート１のＣ列の内容をコピーしたいです。　　　　　　↓ ２行目のＣ列の内容のみシート２のＡ１へコピー（１行目はタイトルがはいっているので・・）　　　　　　↓ ３列目以降のＣ列の内容をシート３のＡ１、Ａ２、Ａ３・・・という風にコピーさせたいのです。でてくる内容は１行かもしれませんし、２行だけかもしれません。なんとかこれをどういうプログラムで組めばいいのかわからないので教えてくださいm(_ _)m 本当に困っています。実際作ってみたのですが、１行目はタイトルが入っているのでただ単に２行目のＣ列をシート２へコピー、３行目のＣ列をシート３へコピーというのはできるのですが、やはりシート３には順々に行を足してコピーしなくてはいけないので、そこら辺がどうしてよいかまったくわからずです・・・；；どなたかこの内容のプログラムを教えていただけないでしょうか・・助けてくださいm(_ _)m

VBAについて

こんばんは、下記のVBAについて質問をさせてください…！シートの名前と特定の列の名前が一致したらデータを引っ張ってくるというVBAなのですが、下記のVBAではもってくるデータはE列でおわりですが、もっと沢山列がある場合で、例えばDA列とかまである場合はどうすればよいのでしょうか…？！まさか「.Range("A" & cellCnt).～」というのを一つ一つ入力するわけではないと思うのですが、記述の方法が分からず困っています。どなたかご教示いただけると大変助かります…！ ' データをとってくるシートの行 Dim dataCnt As Integer ' 貼り付け先のシートの行 Dim cellCnt As Integer cellCnt = 1 For dataCnt = 1 To Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row If Sheets("Sheet1").Range("L" & dataCnt).Value = Sheets(sheetIdx).Name Then With Worksheets(sheetIdx) .Range("A" & cellCnt).Value = Worksheets("Sheet1").Range("A" & dataCnt).Value .Range("B" & cellCnt).Value = Worksheets("Sheet1").Range("B" & dataCnt).Value .Range("C" & cellCnt).Value = Worksheets("Sheet1").Range("C" & dataCnt).Value .Range("D" & cellCnt).Value = Worksheets("Sheet1").Range("D" & dataCnt).Value .Range("E" & cellCnt).Value = Worksheets("Sheet1").Range("E" & dataCnt).Value End With cellCnt = cellCnt + 1 End If Next

エクセル関数をVBAでやりたい

IFERROR(INDEX(***,MATCH(***)),"")この式を下記マクロに組み込むことは、可能でしょうか？ Sub　Macro1() ' Dim　line3　As　Integer Dim　line5　As　Integer line5　=　2　　'初期値を２行目に設定してます Do　While　Worksheets("Sheet5").Cells(line5,　1).Value　>　0 'sheet5の通し番号をsheet3のH列から検索して、その行数をline3に代入する。　　line3　=　Worksheets("Sheet3").Range("H:H").Find(what:=Worksheets("Sheet5").Cells(line5,　8)）.Row 'A,B列内容のコピー　　Worksheets("Sheet5").Range("A"　&　line5,　"B"　&　line5).Copy　Worksheets("Sheet3").Cells(line3,　1) 'D～G列内容のコピー　　Worksheets("Sheet5").Range("D"　&　line5,　"G"　&　line5).Copy　Worksheets("Sheet3").Cells(line3,　4) 　　line5　=　line5　+　1　　　　'次の行へ Loop 　　（　http://soudan1.biglobe.ne.jp/qa8921867.html　）

エクセル　BVAについて

"Sheet1"のA1からD１（数式あり）の値のみを "Sheet2"のE列からH列の空白セルに上詰めでコピーするにはどのようにしたらよいのでしょうか。よろしくお願いします。

VBA シートの違う特定のセルの値をコピーする

エクセルVBA初心者です。シート１の(A,1)にデジカメと表記があり、同じ行のB～Hの列にそれぞれの数字が入っていたとします。それをシート２のA列の適当な行(例えばA,15)にデジカメという表記があった場合に、シート１の(B,１)～(H,１)の値をシート２の(B,15)～(H,15)にコピーする方法をご存じな方、教えて下さい。単純なコピー＆ペーストは「マクロの記録」で可能かと思いますが、シート２に「デジカメ」の項目があった場合に、シート１の元データから同じ「デジカメ」の項目を探しだし、コピーしたいのです。なにぶん、初心者で勉強中なものですから、表記等適切でないものがありましたら申し訳ありません。

VBA空白を除いてコピーが出来ません。ご指導お願いします。

値のコピー＆ペースト（空白を除いてコピー）したいと思っております。シート１　の　A35、D35、I35　をコピー。シート２　の　A2　に貼り付け。これは、大丈夫です。シート１　の　M2　：　O23　をコピー。シート２　の　E2　に貼り付け。今回の場合ですと、M2　：　O13　までに値が入ってます。ですので、M14　：　O23　までが、空白になって記入となってしまいます。＊毎回、値が入る量が違います。一回のコピーですと、これでもいいのですが、値を変更して、コピーを続けてしますので、M14　：　O23　までが、空白になってM24からのコピーになってしまいます。空白を除いて、貼り付けしたいのですが、どうすればいいのかわかりません。お分かりになる方、ご指導よろしくお願いします。 VBAは以下になっております。 Sub Macro1() ' Application.ScreenUpdating = False Sheets("Sheet1").Range("A35,D35,I35").Copy If Sheets("Sheet2").Range("A2").Value = "" Then Sheets("Sheet2").Range("A2").PasteSpecial Paste:=xlPasteValues Else Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues End If Sheets("Sheet1").Range("M2:O23").Copy If Sheets("Sheet2").Range("E2").Value = "" Then Sheets("Sheet2").Range("E2").PasteSpecial Paste:=xlPasteValues Else Sheets("Sheet2").Range("E" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues End If Application.CutCopyMode = False Application.ScreenUpdating = True End Sub よろしくお願いします。

エクセルVBA セル範囲の選択とループ処理

VBA歴がまだ浅い学習者です。アドバイスをお願いいたします。４つのシート、D、X、Y、Summaryがあります。シートの概要： D：データが大量にあるシート X、Y：個別にデータを張り付けるシート Summary：X、Yを元にシート関数で、結果を出すシートシートDの概要：ＡＢＣＤＥＦＧＨＩＪＫＬＭ空空空空空空空空空空空空空　←１行目は空白空空１１１１１１１１１１１　←データの最初の行は、Ａ列Ｂ列のみ空白、１１１１１１１１１１１１１１１１１１１１１１１１１１　１つ目のデータ群（A2:M14) ※行数は適当、列は固定(A:M) １１１１１１１１１１１１１空空２２２２２２２２２２２２２２２２２２２２２２２２　２つ目のデータ群 (A15:M23) ※行数は適当、列は固定(A:M) ２２２２２２２２２２２２２２２２２２２２２２２２２２空空３３３３３３３３３３３３３３３３３３３３３３３３　　　　　　・　　　　　　　　　　　　・　　　　　　　　　　　　・　　　　　　　　　　　　・　　　　　　空空ｎｎｎｎｎｎｎｎｎｎｎ　←データの数は可変する（ただし偶数個）ｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎｎ ◇注意点　データの列数は同一ですが、行数は、同じではありません。１つ目と２つ目、３つ目と４つ目・・・のデータ群が、比較したいペアのデータです。やりたい操作：（下記にサンプルコードあり）・１つ目のデータ群を選択してコピー・それをシートＸのＡ１より貼り付け・２つ目のデータ群を選択してコピー・それをシートＹのＡ１より貼り付け・（ここで比較結果が、シートSummaryのB2:J2に返される）・シートSummaryのB2:J2に返された結果をコピーして、同シート、Ｂ４より貼り付ける（以後その下に張り付ける）・３つ目のデータ群を選択してコピー・それをシートＸのＡ１より貼り付け・４つ目のデータ群を選択してコピー・それをシートＹのＡ１より貼り付け・（ここで比較結果が、シートSummaryのB2:J2に返される）・シートSummaryのB2:J2に返された結果をコピーして、同シート、Ｂ５より貼り付ける（以後その下に張り付ける）・以下データがなくなるまでループわからない点：・データ群のセル範囲を手書きではなく自動（おそらくend(xldown)を使用）で選択させる記述　※データの見出し行にあるＡＢ列の空白をうまく使って書けるのではと考えています。・ループ処理の記述どうかご教授お願いいたします。補足が足りない場合は、お伝えください。サンプルコード Sub テスト() Sheets("D").Select Range("A2:M14").Select　　’??? Selection.Copy Sheets("X").Select ActiveSheet.Paste Sheets("D").Select Range("A15:M23").Select　'??? Application.CutCopyMode = False Selection.Copy Sheets("Y").Select ActiveSheet.Paste Sheets("summary").Select Range("B2:J2").Select Application.CutCopyMode = False Selection.Copy Range("B4").Select '??? ActiveSheet.Paste End Sub

VBA のオートフィルタについて

ExcelVBA初心者でございます。 2点質問がございます。 (1)エクセルVBAのオートフィルタの機能を使い、"マスタ0701"シートの13行目が”ABC”の行を、"検索結果"というシートにコピーしたいです。以下のマクロを実行しますと、まず"マスタ0701"のB1のセル（13行目はブランク）がコピーされ、その下に13行目が”ABC”に該当する行がコピーされます。なぜ、B1セルまでコピーされるのかご教示頂けますと幸いです。 (2)また検索結果だけでなく、オートフィルタのタイトル行もコピーするようにするにはどうしたら良いでしょうか？よろしくお願いいたします。 Sub 絞り込み() With Worksheets("マスタ0701").Range("A1") .AutoFilter Field:=13, Criteria1:="ABC" .CurrentRegion.SpecialCells(xlVisible).Copy Worksheets("検索結果").Range("A1") .AutoFilter End With End Sub

エクセル何故かシート間の値のコピーが出来ない

いつもお世話になります。開いているブックのシート「リスト1～3」に、Book1.xlsの「リスト1～3」の値をコピーする為に、下記のマクロを作成しました。 Dim SH1, SH2, SH3, SH4, SH5, SH6 As Worksheet Set SH1 = ThisWorkbook.Worksheets("リスト1") Set SH2 = ThisWorkbook.Worksheets("リスト2") Set SH3 = ThisWorkbook.Worksheets("リスト3") Set SH4 = Workbooks("Book1.xls").Worksheets("リスト1") Set SH5 = Workbooks("Book1.xls").Worksheets("リスト2") Set SH6 = Workbooks("Book1.xls").Worksheets("リスト3") 'リスト1をコピーする D = SH4.Range("A1").CurrentRegion.Rows.Count E = SH4.Range("A1").CurrentRegion.Columns.Count SH1.Range(Cells(1, 1), Cells(D, E)).Value = SH4.Range("A1").CurrentRegion.Value 'リスト2をコピーする F = SH5.Range("A1").CurrentRegion.Rows.Count G = SH5.Range("A1").CurrentRegion.Columns.Count SH2.Range(Cells(1, 1), Cells(F, G)).Value = SH5.Range("A1").CurrentRegion.Value 'リスト3をコピーする H = SH6.Range("A1").CurrentRegion.Rows.Count I = SH6.Range("A1").CurrentRegion.Columns.Count SH3.Range(Cells(1, 1), Cells(H, I)).Value = SH6.Range("A1").CurrentRegion.Value 以上を実行すると、「アプリケーション定義またはオブジェクト定義のエラーです」とエラーメッセージが出てしまいます。それぞれのシートの処理の時に、 SH1.Select SH2.Select SH3.Select を入れて、シートを選択してから実行すると問題なく動くのですが、何故このようなことが起こるのでしょう？

EXCEL VBA オートフィルタの値コピー２

みんなの回答

関連するQ&A

EXCEL VBA オートフィルタの値コピー

Excek VBA 上へ詰めてコピー

Excelで、A列、B列の値を新しいシートに3行ごとにどんどん貼り付け

エクセルVBAのフィルター機能について

EXCEL VBA 日別データを検索しコピー

EXCEL VBA コピーしたシートへ値をコピペ

VBAでオートフィルター　コピー、ペースト

【エクセルVBA】データの振り分けについて。

EXCEL VBA 数式を含めたコピー貼り付け

オートフィルター後の見出し以外をコピー

EXCEL VBAの配列でわかりません。

オートフィルタで出てきたものを他シートへコピー

VBAについて

エクセル関数をVBAでやりたい

エクセル　BVAについて

VBA シートの違う特定のセルの値をコピーする

VBA空白を除いてコピーが出来ません。ご指導お願いします。

エクセルVBA セル範囲の選択とループ処理

VBA のオートフィルタについて

エクセル何故かシート間の値のコピーが出来ない

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

EXCEL VBA オートフィルタの値コピー２

みんなの回答

関連するQ&A

EXCEL VBA オートフィルタの値コピー

Excek VBA 上へ詰めてコピー

Excelで、A列、B列の値を新しいシートに3行ごとにどんどん貼り付け

エクセルVBAのフィルター機能について

EXCEL VBA 日別データを検索しコピー

EXCEL VBA コピーしたシートへ値をコピペ

VBAでオートフィルター コピー、ペースト

【エクセルVBA】データの振り分けについて。

EXCEL VBA 数式を含めたコピー貼り付け

オートフィルター後の見出し以外をコピー

EXCEL VBAの配列でわかりません。

オートフィルタで出てきたものを他シートへコピー

VBAについて

エクセル関数をVBAでやりたい

エクセル BVAについて

VBA シートの違う特定のセルの値をコピーする

VBA空白を除いてコピーが出来ません。ご指導お願いします。

エクセルVBA セル範囲の選択とループ処理

VBA のオートフィルタについて

エクセル 何故かシート間の値のコピーが出来ない

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

VBAでオートフィルター　コピー、ペースト

エクセル　BVAについて

エクセル何故かシート間の値のコピーが出来ない

カテゴリ
一覧

専門家に質問してみよう
専門家登録