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

　　①：當(dāng)前選中的單元格為合并單元格;

　　②：選區(qū)內(nèi)有合并單元格;

　　代碼一：

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

　　MsgBox "選區(qū)內(nèi)有合并單元格"

　　Else

　　MsgBox "選區(qū)內(nèi)沒(méi)有合并單元格"

　　End If

　　代碼二：

　　Flag = False

　　For Each Rng In Selection

　　If Rng.MergeCells Then

　　Flag = True

　　Exit For

　　End If

　　Next

　　If Flag Then

　　MsgBox "選區(qū)內(nèi)有合并單元格"

　　Else

　　MsgBox "選區(qū)內(nèi)沒(méi)有合并單元格"

　　End If

　　經(jīng)過(guò)測(cè)試驗(yàn)證，代碼一比代碼二更具有效率。在使用的時(shí)候，將如上的代碼放到過(guò)程里面即可直接使用。