【VBA】結合されたセルを確認メッセージ無しで別ブックとして保存する方法

手作業で結合セルのあるシートを別のエクセルブックに移動するのは時間がかかります。この記事では、VBAを使用して結合されたセルが含まれるシートを簡単に別ファイルとして保存する方法を紹介します。確認メッセージを表示せずに高速化するための設定も解説しています。

サンプルコード

VBA

Option Explicit
Sub SaveSheetAsNewWorkbook()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("シート1")
    Application.DisplayAlerts = False ' 確認メッセージを出さない
    ws.Copy ' シートをコピーして新規ブックとして開く
    With ActiveWorkbook
        .SaveAs Filename:="C:\Users\YourUsername\Documents\NewBook.xlsx", FileFormat:=xlOpenXMLWorkbook
        .Close SaveChanges:=True
    End With
    Application.DisplayAlerts = True ' 確認メッセージを元に戻す
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

シート名や列番号が正しいか確認してください。また、ファイルパスに問題がないかもチェックしてください。