Sub 查询数据()
Dim t
t = Timer
Range("I2")=Application.WorksheetFunction.VLookup(Range("H2"), Range("A:F"), 2, False)
Range("J2")=Application.WorksheetFunction.VLookup(Range("H2"), Range("A:F"), 3, False)
Range("K2")=Application.WorksheetFunction.VLookup(Range("H2"), Range("A:F"), 4, False)
Range("L2")=Application.WorksheetFunction.VLookup(Range("H2"), Range("A:F"), 5, False)
Range("M2")=Application.WorksheetFunction.VLookup(Range("H2"), Range("A:F"), 6, False)
MsgBox Timer - t
End Sub