确定合并区域的大小

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 As 8。

Answer 2

ActiveCell.MergeArea.Count