vba - 如何查找范围是否包含VBA中的合并单元格

Question

我有一个包含轮类的 Excel 文档。我想知道在给定范围内是否存在如下所示的任何合并单元格。

如何确定单元格在给定范围内填充或单元格在给定范围内合并？

If IsEmpty(Range("NewRange")) = False Then
    z = z + 1 'My counter 
End If

我试过 IsEmpty 函数，但它不能在合并的单元格上正常工作。你可以尝试，但结果是一样的..虽然我在那里有一 block 空单元格，但它算作已填充..

Answer 1

MS Excel 2010 及更高版本有 Range.MergeCells Property (Excel) ，如果范围包含合并的单元格，则返回 true。

您可以在这里找到另一种方法:http://www.exceltrick.com/how_to/find-merged-cells-in-excel/

Dim r As Range
Set r = Range("A9:G10")
With r
    If IsNull(.MergeCells) = True Or .MergeCells = True Then
        z = z + 1
    End If
End With