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

来源：百度知道 编辑：UC知道 时间：2024/06/04 07:34:52
例如，我有一个工作表1，字段为：编号,名称，面积三个，下面有事先录好有数据。然后，我还有另一个工作表2，字段为：编号,名称，面积三个，不过下面数据为空，我想作的是：当我在工作表2中，输入工作表1中已经存在的编号字段下面的数据时，如编号为1，那么对应同一行中另外两个字段数据自动调出，请大侠帮忙，
问题补充：必须使用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