excel中，用VBA,如何根据条件，将已经存在的另一个工作表数据自动调出

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 Then Exit Sub For x = 2 To 1000 If Sheets('Sheet1').Cells(x, 1).Value = Target.Value Then Sheets('Sheet2').Cells(Target.Row, 2) = Sheets('Sheet1').Cells(x, 2) Sheets('Sheet2').Cells(Target.Row, 3) = Sheets('Sheet1').Cells(x, 3) Exit Sub End If Next x End Sub