當vlookup找不到匹配的結果，就會返回錯誤值#N/A，這個錯誤值使vba報錯。
為了避免找不到而報錯，可以使用以下錯誤捕獲
On?Error?Resume?Next
Cells(5,?1)?=?Application.WorksheetFunction.VLookup(Cells(5,?2),?Sheets("HR").Range("A:C"),?3,?0)
End?Sub
當然，妳使用find方法也可以，方法不唯壹，就看妳習慣用哪個。