本示例判断当前单元格是合并单元格的一部分时,显示当前单元格的地址。

Set Merge = ActiveCell.MergeArea
If Merge Is Nothing Then
    MsgBox "No MergeCell"
  Else
    MsgBox Merge.Address
End If