请高手帮我解释一下意思谢谢

冷酷的云

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "A2" And [a2] <> "" Then
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        With Workbooks.Open(ThisWorkbook.Path & "\B.xls")
            If .Worksheets(1).Columns("A").Find(Me.[a2], lookat:=xlWhole) Is Nothing Then
                .Worksheets(1).[a65536].End(3).Offset(1) = Me.[a2]
            End If
            .Close True
        End With
        Application.ScreenUpdating = True
        Application.DisplayAlerts = True
    End If
End Sub

冷酷的云

当Sheet1A1A2和Sheet2A2同时有数据时自动复制到B工作簿的A1A2A3如果有一项是空白则不复制如果条件成立则自动往下粘贴不覆盖原数据