可以用下面的程式碼實現（假設要判斷的兩個單元格為A1和B1）：

Sub main()

Set a= Range("A1").MergeArea

Set b = Range("A1").MergeArea

If a.Address = b.Address Then

MsgBox "同一合併區域"

Else

MsgBox "不是同一合併區域"

End If

End Sub

這裡用到的原理，是判斷兩個單元格合併區域的地址是否一致。

關於此例中用到的MergeArea的相關知識：

MERGEAREA：返回一個 Range物件，該物件代表包含指定單元格的合併區域。如果指定的單元格不在合併區域內，則該屬性返回指定的單元格。只讀。Variant 型別。

expression.MergeArea

expression 必需。該表示式返回“應用於”列表中的物件之一。

說明

MergeArea屬性只應用於單個單元格區域。

本示例為包含單元格 A3 的合併區域賦值：

Set ma = Range("a3").MergeArea

If ma.Address = "$A$3" Then

MsgBox "not merged"

Else

ma.Cells(1, 1).Value = "42"

End If