【VBA】非表示シートを高速に別ブックとして保存する方法

手作業で非表示のワークシートを別ファイルに移動するのは時間がかかります。この記事では、VBAを使用して高速に非表示シートを別のブックとして保存する方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub SaveHiddenSheetAsNewWorkbook()
    Dim wb As Workbook, ws As Worksheet, newWb As Workbook
    Set wb = ThisWorkbook '現在のワークブック
    Application.ScreenUpdating = False '画面更新停止
    For Each ws In wb.Worksheets
        If ws.Visible = xlSheetHidden Then '非表示シートを対象に
            ws.Copy 'コピー
            Set newWb = ActiveWorkbook '新しいワークブックへの参照設定
            newWb.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".xlsx" '保存先のパスとファイル名を指定
            newWb.Close SaveChanges:=True '保存後、新しいワークブックを閉じる
        End If
    Next ws
    Application.ScreenUpdating = True '画面更新再開
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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