计算合并单元格的cell数量解决方法

计算合并单元格的cell数量
计算合并单元格的长度包含几个cell？有什么方法呢

[解决办法]
Sub ttt()
MsgBox ActiveCell.MergeArea.Cells.Count
End Sub