【VBA】可視セル(フィルタ結果)をバックグラウンドでコピーする方法

日々の業務では大量のデータを扱うことが多いと思います。特にフィルター機能を使って特定のデータのみを抽出した後、その可視セルだけを別のシートにコピーしたいというニーズは多いでしょう。しかし手作業で行うと時間がかかりますし、ミスも起こりやすいです。この記事ではVBAを使用して、バックグラウンドでフィルタ結果の可視セルのみをコピーする方法をお教えします。

サンプルコード

VBA

Option Explicit
Sub CopyVisibleCells()
    ' バックグラウンドモードに設定
    Application.ScreenUpdating = False
    
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Set wsSource = ThisWorkbook.Sheets("フィルタシート")
    Set wsTarget = ThisWorkbook.Sheets("コピー先シート")
    
    ' フィルタ結果の最終行を取得
    Dim lastRow As Long
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 可視セルだけをコピー
    wsTarget.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    wsSource.UsedRange.SpecialCells(xlCellTypeVisible).Copy Destination:=wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Offset(1)
    
    ' バックグラウンドモードを解除
    Application.ScreenUpdating = True
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。