【VBA】特定の名前のシートを配列を使って高速に別ブックとして保存する方法

日々の業務で大量のデータを扱う際、特定のシートだけを別々のファイルとして保存したいことがあります。手作業では時間がかかるだけでなくミスも起こりがちです。この記事ではVBAを使って高速に指定したシートを配列を通じて別のブックとして保存する方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub SaveSheetAsAnotherWorkbook()
    Dim wb As Workbook, ws As Worksheet, newWb As Workbook
    Dim sheetNames() As Variant, i As Long, lastRow As Long
    
    ' 特定のシート名を配列に格納
    sheetNames = Array("シート1", "シート2")
    
    Application.ScreenUpdating = False
    For i = LBound(sheetNames) To UBound(sheetNames)
        Set ws = ThisWorkbook.Sheets(sheetNames(i))
        lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        ' シートのデータを配列に読み込む
        Dim data() As Variant
        ReDim data(1 To lastRow, 1 To ws.UsedRange.Columns.Count)
        For j = 1 To UBound(data, 2)
            data(:, j) = Application.Transpose(ws.Range(ws.Cells(1, j), ws.Cells(lastRow, j)).Value)
        Next j
        
        ' 新しいワークブックを作成し、配列のデータを書き込む
        Set newWb = Workbooks.Add(xlWBATWorksheet)
        With newWb.Sheets(1)
            .Cells(1, 1).Resize(lastRow, UBound(data, 2)).Value = data
        End With
        
        ' 新しいワークブックを保存する
        newWb.SaveAs ThisWorkbook.Path & "\" & sheetNames(i) & ".xlsx"
        newWb.Close SaveChanges:=True
    Next i
    Application.ScreenUpdating = True
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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