VBA判斷Excel選擇地區是否有合併儲存格

　　要想判斷合併儲存格，得分為兩種情況：

　　①：當前選中的儲存格為合併儲存格;

　　②：選區內有合併儲存格;

　　代碼一：

　　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

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