vba - 计算合并单元格的行数

Question

我在 Excel 中计算每个合并单元格 block 的行数时遇到问题。

我在 A1 上有一个值。如果我合并单元格 A1 到 A4，值将显示在中心位置，在 A1-A4 范围内。然后我在A5中有另一个值。如果我将单元格 A5 合并到 A12，第二个值将显示在第二个单元格 block 的中心。

我想要的是计算每个合并单元格 block 的行数。

我曾尝试使用 VBA 编程来检测这些行数，函数为“MergeArea”和“CurrentRegion.Count”，但程序检测到这两个 block 是连续的，并计算了 12 行，而不是 4 行和 8 行。如果它首先检测到“4”，我可以将正确的指令放在一个循环中，然后检测“8”。

Answer 1

就 VBA 而言，合并单元格有几个缺点，但这里有一个简单的方法可以尝试。

我的表格是这样的:

代码:

Sub CountMergedRows()
    For i = 1 To 20
        RowCount = Range("A" & i).MergeArea.Rows.Count

        If RowCount > 1 Then
            MsgBox ("Cell [A" & i & "] has " & RowCount & " merged rows")
            i = i + RowCount
        End If
    Next i
End Sub

---

结果是两个如下所示的消息框: