Restrict Worksheet_Change to a specified range of cells

问题

I want to record a list of live data in a separate sheet.

Found this code online which works.

How to do I change the range from one cell A1 to a Range A1:D30?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dest As Range
Application.EnableAnimations = False
On Error GoTo line1
If Target.Address <> "$A$1" Then GoTo line1
    Set dest = Worksheets("sheet2").Cells(Rows.Count, "a").End(xlUp).Offset(1, 0)
    'MsgBox dest.Address
    Target.Copy dest
line1:
Application.EnableEvents = True
End Sub

回答1:

This can be done without a custom function. VBA already contains all you need.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:D30")) Is Nothing Then

    ' run some code
End If

End Sub

来源：https://stackoverflow.com/questions/63210200/restrict-worksheet-change-to-a-specified-range-of-cells