在工作表中可以直接用vlookup完成,如果非得vba,vba中也可以调用工作表函数。 Sub test() With Sheets("sheet2") For c = 5 To 100 Cells(14, c) = Application.WorksheetFunction.VLookup(Cells(10, c), Sheets("sheet1").Range("a:b"), 2, 0) Next End With End Sub