确定合并区域的大小

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。