In diesem Beispiel wird der Wert des zusammengeführten Bereichs festgelegt, der die Zelle A3 enthält.
Set ma = Range("a3").MergeArea If Range("a3").MergeCells Then ma.Cells(1, 1).Value = "42" End If