Question

当我合并单元格并且多个单元格包含值时，会出现一条警告，指出只保留范围的左上角值。我知道我可以通过使用：

来避免这种警告

Application.Display = False

但是我还想在警告出现时执行一些代码。我曾经因为以下错误而这样做：

On Error Resume Next
If Err.Number = 424 Then
...

有没有办法对警告做同样的事情？

Answer 1

您可以直接检查单元是否属于合并单元格范围，而不是检查警告：

Sub testMerge(cell as Range)
    If cell.MergeCells Then
        Debug.Print cell.Address & " is within Merged Range."
        If cell.MergeArea.Cells(1, 1).Address = cell.Address Then
            Debug.Print cell.Address & " is first cell of Merged Range"
        End If
    End If
End Sub

Excel VBA，Do警告有一个数字

1 个答案: