确定合并区域的大小-Determiningthesizeofamergedarea

Right, before we get off about merged cells, I hate them too, but I've to deal with them anyway. I cannot change anything about that now or in the future. As much as I would like to ;)

是的，在我们关于合并细胞之前，我也讨厌它们，但无论如何我都要处理它们。我现在或将来都无法改变这一点。我想尽可能多;）

Say I have some merged cells, I need to determine the amount of cells it spans. Say A1:A4 are merged, then I need to have the number of merged cells, 4, returned. Is there any way to accomplish this?

假设我有一些合并的细胞，我需要确定它跨越的细胞数量。说A1：A4合并，然后我需要返回合并单元格的数量4。有没有办法实现这个目标？

2 个解决方案

Dim r As range
Dim i As Integer
    Set r = range("A1")
    i = r.CurrentRegion.Count

ActiveCell.MergeArea.Count