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

エクセルマクロで、オートフィルタの可視セルをコピーする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行目（タイトル行）はコピーしません。

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

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

...

kirinote.com

2022.11.12