Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$2" Then Exit Sub
Target.Offset(0, -1) = WorksheetFunction.VLookup(Target.Value, ThisWorkbook.Sheets(2).Range("a:d"), 3, 0)
Target.Offset(0, -2) = WorksheetFunction.VLookup(Target.Value, ThisWorkbook.Sheets(2).Range("a:d"), 2, 0)
Target.Offset(0, 1) = WorksheetFunction.VLookup(Target.Value, ThisWorkbook.Sheets(2).Range("a:d"), 4, 0)
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024