エクセルマクロで、オートフィルタ抽出結果を別シートへ転記するVBAコードをご紹介します。
このページのマクロコードは、コピペで使えます。
せひ、お試しください。
オートフィルタ抽出結果を別シートへ転記
以下のExcelVBAを実行すると、フィルタで抽出したデータを別のシートに書き出します。
Sub オートフィルタ抽出データを別シートへ書き出し()
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
'シートを変数へ格納
Set Sh1 = Sheets("リスト")
Set Sh2 = Sheets("転記")
'フィルターでデータ抽出
Sh1.Range("A1").CurrentRegion.AutoFilter _
Field:=3, _
Criteria1:="埼玉県"
'フィルター抽出結果を別シートへ転記
Sh1.Range("A1").CurrentRegion.Copy Sh2.Range("A1")
End Sub
マクロ実行前
オートフィルタでデータを絞る前です。
マクロ実行後
オートフィルタで条件が一致するデータを絞り込んで、別シートに自動転記します。
この記事がお役に立てれば幸いです。

【エクセルマクロ】オートフィルタ処理を自動化:超便利13選
...