【エクセルマクロ】オートフィルタの可視セルのみコピー:動画あり

ExcelVBA-オートフィルタ可視セルコピー-アイキャッチ エクセルマクロで効率化する

エクセルマクロで、オートフィルタの可視セルをコピーするVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください!

オートフィルタの可視セルをコピー

以下のExcelVBAを実行すると、オートフィルタ抽出結果をコピーします。


Sub オートフィルタをかけたセルのみコピー()

    'フィルターでデータ抽出
    Range("A1").CurrentRegion.AutoFilter _
        Field:=3, _
        Criteria1:="埼玉県"
        
    Range("A1").CurrentRegion.Offset(1, 0).Resize(Range("A1"). _
        CurrentRegion.Rows.Count - 1).Copy

End Sub

 

マクロ実行後

オートフィルタで絞り込んだデータのみコピーします。

1行目(タイトル行)はコピーしません。


 

オートフィルタの可視セルをコピー(特定列)

以下のExcelVBAを実行すると、オートフィルタで特定の列の可視セルをコピーします。


Sub オートフィルタ特定列の可視セルコピー()

    'フィルターでデータ抽出
    Range("A1").CurrentRegion.AutoFilter _
        Field:=3, _
        Criteria1:="埼玉県"
        
    '可視セルコピー
    Range("B1").Offset(1, 0). _
    Resize(Range("B1").CurrentRegion.Rows.Count - 1).Copy

End Sub

 

マクロ実行後

オートフィルタで絞り込んだデータの指定列だけコピーします。

1行目(タイトル行)はコピーしません。


 
この記事がお役に立てれば幸いです。
 

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

 

「たった1秒で仕事が片づくExcel自動化の教科書【増強完全版】」
「5時間かかる作業が3時間でできます」ではなく「1秒で終わらせます」へ
毎日の業務を瞬時に終わらせるしくみを解説