快速判斷儲存格範圍是否存在部份合併儲存格

Sub IsMergeCell()
  If Range("A1").MergeCells=True Then
  Msgbox "包含合併儲存格"
  Else
  Msgbox"沒有包含合併儲存格"
  End If
End Sub

Sub IsMergeCell()
  If IsNull (Range("A1:E10").MergeCells) Then
  Msgbox "包含合併儲存格"
  Else
  Msgbox"沒有包含合併儲存格"
  End If
End Sub