当vlookup找不到匹配的结果,就会返回错误值#N/A,这个错误值使vba报错。为了避免找不到而报错,可以使用以下错误捕获Sub test()On Error Resume NextCells(5, 1) = Application.WorksheetFunction.VLookup(Cells(5, 2),筏护摧咎诋侥搓鞋掸猫 Sheets("HR").Range("A:C"), 3, 0)End Sub当然,你使用find方法也可以,方法不唯一,就看你习惯用哪个。