セルの結合と結合解除

セルを結合、及び、結合の解除のサンプルコードを下記に記す。
  
先ずは、セルの結合のサンプルコードから :
  
Sub ExampleCellMerge()
       Dim objSheet As Object
       Dim objRange As Object
       objSheet = ThisComponent.CurrentController.ActiveSheet
       objRange = objSheet.getCellRangeByName("A1:B2")
       objRange.merge(True)
End Sub
  
セルを結合する為には、Range オブジェクトの merge メソッドの引数に
Trueを指定する。
  
逆にセルの結合を解除する場合は、同じく merge メソッドの引数にFalse
を指定する :
  

Sub ExampleCancelCellMerge()
       Dim objSheet As Object
       Dim objRange As Object
       objSheet = ThisComponent.CurrentController.ActiveSheet
       objRange = objSheet.getCellRangeByName("A1:B2")

       objRange.merge(False)

End Sub