要想判斷合并單元格，得分為兩種情況：

　　①：當前選中的單元格為合并單元格;

　　②：選區內有合并單元格;

　　代碼一：

　　If Selection.MergeCells or IsNull(Selection.MergeCells) Then

　　MsgBox "選區內有合并單元格"

　　Else

　　MsgBox "選區內沒有合并單元格"

　　End If

　　代碼二：

　　Flag = False

　　For Each Rng In Selection

　　If Rng.MergeCells Then

　　Flag = True

　　Exit For

　　End If

　　Next

　　If Flag Then

　　MsgBox "選區內有合并單元格"

　　Else

　　MsgBox "選區內沒有合并單元格"

　　End If

　　經過測試驗證，代碼一比代碼二更具有效率。在使用的時候，將如上的代碼放到過程里面即可直接使用。