请教高手的问题！！关于ＶＢＡ的！！菜鸟勿进！！

很简单,使用简单的查找即可实现,如果不会可以继续问我:qq ***********

在sheet2中添加如下代码即可

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i, j As Integer

Dim m, n As String

If Target.Row >= 2 And Target.Column <= 4 And Target.Text <> "" Then

For i = 2 To 20

If Target.Text = Sheet1.Cells(i, 1) Then

Cells(Target.Row, 2) = Sheet1.Cells(i, 2)

Cells(Target.Row, 3) = Sheet1.Cells(i, 3)

Cells(Target.Row, 4) = Sheet1.Cells(i, 4)

Exit For

End If

Next

End If

End Sub