【VBA】可視セル(フィルタ結果)を高速に別ブックとして保存する方法

日々の業務で大量のデータから必要な情報を抽出し、それを他のファイルへ移動させる作業は大変な労力が必要です。特にフィルタ結果を別のブックに保存する際には、その操作が複雑で時間がかかることがあります。しかし、VBAを使用すればこの作業を高速化し、効率的に実行することが可能になります。

サンプルコード

VBA

Option Explicit
Sub SaveVisibleCellsToNewWorkbook()
    '画面更新停止
    Application.ScreenUpdating = False
    
    Dim ws As Worksheet, wbTarget As Workbook
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    '可視セルの最終行を取得
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    '新しいワークブックを作成
    Set wbTarget = Workbooks.Add
    
    'フィルタ結果のみコピー
    ws.Range("A1:Z" & lastRow).SpecialCells(xlCellTypeVisible).Copy Destination:=wbTarget.Sheets(1).Range("A1")
    
    '画面更新再開
    Application.ScreenUpdating = True
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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