确定合并区域的大小

Question

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

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

Answer 1

ActiveCell.MergeArea.Count

Answer 2

您可以使用

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

这将给A1:A4为4,A1:B4为8.