【VBA】データの最終行を開かずに別ブックとして保存する方法

日々の業務の中で大量のデータを取り扱う方も多いでしょう。その中でも特に、特定の範囲や最終行を別のファイルに保存したいというニーズは非常に多いです。しかし、手作業で行うと時間がかかるだけでなく、ミスも増えてしまいます。そこで今回は、VBAを使って簡単に且つ安全にデータの最終行を開かずに別ブックとして保存する方法をお伝えします。

サンプルコード

VBA

Option Explicit
Sub SaveLastRowAsNewWorkbook()
    Dim wb As Workbook, ws As Worksheet
    Dim lastRow As Long, i As Long
    
    ' データの最終行を取得
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 新しいワークブックを作成
    Set wb = Workbooks.Add
    Application.ScreenUpdating = False
    For i = 1 To lastRow
        wb.Sheets("Sheet1").Cells(i, 1) = ws.Cells(i, 1)
    Next i
    
    ' 新しいワークブックを保存
    wb.SaveAs ThisWorkbook.Path & "\LastRowData.xlsx"
    Application.ScreenUpdating = True
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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