excel - 在 VBA 下方获取错误消息以获取单元格的引用以及格式

Question

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 With Worksheets("Sheet1")
    If .Range("A1").Value2 <> "" Then
        On Error Resume Next
        Range("A1").Copy (.Range("E2"))
    End If
 End With
End Sub

标签： excelvbareference

Answer 1

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    With Worksheets("Sheet1")
        If .Range("A1").Value2 <> "" Then .Range("A1").Copy .Range("E2")
    End With
End Sub