Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sht As Worksheet
Dim Rng As Range, RngA, CR As Boolean
Set Sht = Sheets("在途股利")
Set RngA = Cells(Target.Row, 1)
If Not Intersect(Target, [A:I]) Is Nothing And _
RngA <> "" And RngA(1, 6) <> "" Then
For Each Rng In Range(Cells(Target.Row, 1), Cells(Rows.Count, 1).End(3))
CR = IsNumeric(Evaluate("match(" & Rng.Address & "&" & Rng(, 2).Address & _
",在途股利!a:a&在途股利!b:b,0)"))
If Not CR Then _
Rng.Resize(, 9).Copy Sht.Range("A" & Rows.Count).End(3).Offset(1)
Next
End If
Application.CutCopyMode = False
End Sub
