Sub tt()<br/>Dim ma As Range, rng As Range, t As Boolean<br/>For Each rng In Selection<br/> Set ma = rng.MergeArea<br/> If ma.Address <> rng.Address Then<br/> t = True<br/> Exit For<br/> End If<br/>Next<br/>If t Then<br/> MsgBox "有合并"<br/>Else<br/> MsgBox "无合并"<br/>End If<br/>End Sub<br/>