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

ExcelVBA-オートフィルタ可視セルコピー-アイキャッチ 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("A1").CurrentRegion.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行目(タイトル行)はコピーしません。


 

オートフィルタ可視セルをコピー(複数列)

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


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

    'フィルターでデータ抽出
    Range("A1").CurrentRegion.AutoFilter _
        Field:=3, _
        Criteria1:="埼玉県"

    '可視セルコピー
    Range("A1:B1").Offset(1, 0). _
    Resize(Range("B1").CurrentRegion.Rows.Count - 1).Copy

End Sub

 

マクロ実行後

複数列(A列とB列)の可視セルのみコピーします。

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


 

動画の解説

動画ではコードの作り方・動作を確認できます。

クリックすると、このブログ上で再生されます^^

 
この記事がお役に立ちますと幸いです。
 
・【エクセルマクロ】オートフィルタ処理を自動化する使用例まとめ
 

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

 

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