很简单,使用简单的查找即可实现,如果不会可以继续问我: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
