【VBA】データの最終行を配列を使って高速に別ブックとして保存する方法

日々の業務で大量のデータを手作業で移動するのは大変です。この記事では、VBAを使って高速にデータを別のワークブックに保存する方法を紹介します。労力を大幅に削減し、業務効率を向上させましょう。

サンプルコード

VBA

Option Explicit
Sub SaveLastRowToNewWorkbook()
    Dim ws As Worksheet, wb As Workbook
    Dim lastRow As Long, i As Long
    Dim arrData() As Variant
    
    ' シートとワークブックを指定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set wb = Workbooks.Add
    
    ' 最終行を取得
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 配列にデータを読み込む
    ReDim arrData(1 To lastRow, 1 To ws.UsedRange.Columns.Count)
    For i = 1 To UBound(arrData)
        arrData(i, 1) = ws.Cells(i + ws.Range("A1").Row - 1, 1).Value
        ' 他の列も同様にコピー
    Next i
    
    ' 新しいワークブックのシートにデータを書き込む
    wb.Sheets(1).Range("A1").Resize(lastRow, ws.UsedRange.Columns.Count) = arrData
    
    ' 必要な処理（例：ファイル名設定、保存）
    wb.SaveAs Filename:="C:\path\to\your\file.xlsx"
    wb.Close SaveChanges:=True
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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