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

Question

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

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

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

我尝试了 IsEmpty 函数，但它无法在合并的单元格上正常工作。你可以试试，但结果是一样的..虽然我得到了一块空单元格，但它算作已填充..

Answer 1

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

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

How to find if range contains merged cells in VBA