VBA オートフィルター結果をコピーできません。

Question

こんにちは。VBA初心者です。

VBAのオートフィルターについて１つ教えていただきたいことがあります。

エクセルシートにあるデータをオートフィルターにかけて、その結果を既存の別のシート(ここでは「初回」)にコピーするという作業をしています。

具体的に実現したいことは
1,Field:=30の値が120以上の物を抽出し、「初回」シートにコピー。
2,Field:=32の値が19以上の物を抽出し、「初回」シートの1,の結果の次の行から追加でコピー。
3,Field:=22の値が80以上の物を抽出し、「初回」シートの2,の結果の次の行から追加でコピー。

このような形で、フィルターをかけてどんどん別シートに追加していきたいです。

調べ持って以下のコードを記載しましたが、1,までは行くのですが、その先がコピーされません。

初心者ですので、コードは醜いですが、アドバイス頂けたらと思います。

ちなみにパソコンはMACを利用しています。

Private Sub CommandButton12_Click()

 Dim Target As Range, LastCell As Range
Set Target = Sheets("初回").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

 Range("A1").AutoFilter Field:=30, Criteria1:="  <=120"
Range("A1").CurrentRegion.Copy Target
ActiveSheet.AutoFilterMode = False

Range("A1").AutoFilter Field:=32, Criteria1:="  >=19"
Range("A1").CurrentRegion.Copy Target
ActiveSheet.AutoFilterMode = False

Range("A1").AutoFilter Field:=22, Criteria1:=" >=80"
Range("A1").CurrentRegion.Copy Target
ActiveSheet.AutoFilterMode = False

End Sub

Answer 1

オートフィルターで絞込後、SpecialCells(xlVisible)　にて正しい範囲を選択できます。
次に、コピー先シートのセル位置は、コピー前に都度指定する必要がありそうです。

Range("A1").CurrentRegion.SpecialCells(xlVisible).Copy
'Range("A1").CurrentRegion.Copy

Comments

[akintat-2748]

コメントありがとうございます。
コピー先のシートのセルの位置はTaget で最終行に入るようにしてしているつまりなんですが、間違っているでしょうか？

[TanakaHiroaki]

Tagetはその時点データで判定した最終行なので、コピーでデータを変更した場合には再指定が必要と思われます。

[akintat-2748]

ありがとうございます。その都度、指定のコードを入れたら無事に思い通りに動きました!
丁寧にありがとうございました