Sub dafd()
ss = Range("a1").MergeArea.Address(0, 0)
If Range("a1").MergeArea.Cells.Count > 1 Then
If Range("a1").MergeArea.Cells.Rows.Count = 1 Then
MsgBox "行合并"
ElseIf Range("a1").MergeArea.Columns.Count = 1 Then
MsgBox "列合并"
Else
MsgBox "多行多列合并"
End If
Else
MsgBox "非合并单元格"
End If
End Sub
温馨提示:答案为网友推荐,仅供参考