VBA セルの操作　セルの結合・解除

セルの結合

構文

Object.Merge(Across)

または

Object.MergeCells = True

セルを単純結合

Sub test1()

’ セルA2:C4を結合

Range("A2:C4").Merge

End Sub

Sub test2()

’ セルA2:C4を結合

Range("A2:C4").MergeCells = True

End Sub

実行結果

セルを行ごとで結合

Sub test3()

’ セルA2:C4を行ごと結合（A2:C2、A3:C3、A4:C4を結合）

Range("A2:C4").Merge True

End Sub

実行結果

確認メッセージ表示せずセルを結合する

Sub test4()

   ’ 確認メッセージを非表示
   Application.DisplayAlerts = False

   Range("A2:C4").Merge

   ’ 確認メッセージを表示
   Application.DisplayAlerts = True

End Sub

test1とtest2の例は、それぞれのセルは空欄だったので、もしセルの数値が入っていたら、確認メッセージがでます。「Application.DisplayAlerts = False」という文言を入れれば、その確認メッセージの表示を止められます。

セルの結合解除

構文

Object.UnMerge

または

Object.MergeCells = False

Sub test5()

’ セルA2:C4の結合を解除

Range("A2:C4").UnMerge

End Sub

Sub test6()

’ セルA2:C4の結合を解除

Range("A2:C4").MergeCells = False

End Sub

実行結果