VBA～セルを結合しよう～Excel

VBAでセルを結合したい場合はRange.Mergeメソッドで移動できます。

下のコードを実行するとセルA1からセルC3が結合されます。

Sub test1()

Range("A1").Cut Range("C1")

End Sub

範囲の複数のセルにデータが入力されている場合、"セルを結合すると、左上の値のみが保持され、他のセルの値は破棄されます。"とメッセージが表示されるので表示を回避するためにはApplication.DisplayAlertsプロパティをFalseに設定します。

下のコードを実行するとメッセージを回避できます。処理が終わったらApplication.DisplayAlertsプロパティをTrueに戻しましょう。

Sub test2()

Application.DisplayAlerts = False
Range("A1:C3").Merge
Application.DisplayAlerts = True

End Sub

指定したシートのセルを結合

シートを指定するときはWorksheets("シート名")で指定できます。

下のコードを実行するとSheet2のセルA1からセルC3が結合されます。

Sub test3()

Worksheets("Sheet2").Range("A1:C3").Merge

End Sub

ブックを指定してセルを結合

ブックを指定するときはWorkbooks("ブック名")で指定できます。

Book1.xlsxというブックが開いた状態で下のコードを実行するとBook1.xlsxのSheet1のセルA1からセルC3が結合されます。

Sub test4()

Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1:C3").Merge

End Sub