确定合并区域的大小

Question

对，在我们结束合并单元格之前，我也讨厌它们，但我仍然要处理它们。我现在或将来都无法改变任何事情。尽我所愿;）

说我有一些合并的单元格，我需要确定它跨越的单元格的数量。 说A1：A4合并，然后我需要合并单元的数量，4，返回。 有什么办法可以做到这一点？

Answer 1

您可以使用

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

这会给A1：A4为4，A1：B4为8

Answer 2

ActiveCell.MergeArea.Count