excel - 确定合并区域的大小

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。