Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column2 Then Exit Sub
For Each tg In Target
Set ifd = Sheets("sheet1").[B:B].Find(tg.Value, , , 1)
If Not ifd Is Nothing Then
tg(1, 2).Resize(1, 3).Value = ifd(1, 2).Resize(1, 3).Value
End If
NextEnd Sub打开宏编辑器，在左边sheet2双击，在右边粘贴上面代码，回到工作sheet2表，将B列代码复制重新粘贴在B列，相应的就会出来
|
