【VBA】結合されたセルを確認メッセージを出さずにコピーする方法

日々の業務では、結合されたセルを扱うことがよくあります。しかし、これらのセルを通常通りにコピーしようとすると、確認メッセージが表示され作業効率が低下します。この記事では、そんな煩わしい確認メッセージを出さずに結合されたセルを素早くコピーする方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub CopyLockedCells()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Application.DisplayAlerts = False '確認メッセージを非表示にする
    ws.Range("A1:A5").Copy Destination:=ws.Range("B6")
    Application.DisplayAlerts = True '確認メッセージを再有効化する
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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