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

Question

我有一个包含值班的 Excel 文档。我想找出在给定范围内是否有任何如下所示的合并单元格..

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

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

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

Answer 1

MS Excel 2010 及更高版本具有Range.MergeCells 属性 (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