如何查找范围是否包含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)，如果范围包含合并的单元格，则返回 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