确定合并区域的大小

没错，在我们谈起合并单元格之前，我也讨厌他们，但是我仍然要处理它们。 我现在或将来都无法改变这一切。 尽我所能;）

说我有一些合并单元格，我需要确定它跨越的单元格的数量。 说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