Sub myMerge()Set cel = Range("A1")If cel.MergeCells Then MsgBox cel.Address(0, 0) & "为合并单元格，" & "共有" & cel.MergeArea.Rows.Count & "行" & cel.MergeArea.Columns.Count & "列组成"End Sub
