Excel VBA，做警告有一个号码

当我合并单元格并且多个单元格包含值时，会有一个警告，说明只保留范围的左上angular的值。 我知道我可以通过使用以下来避免这个警告：

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