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

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

2025-02-28 18:52:54

推荐回答（1个）

回答1：

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