1. 在excel vba編程中使用vlookup()時(shí)，vlookup不能直接寫成excel公式中的樣式[ =VLOOKUP(123,A1:C100,3,FALSE) ]，會出現(xiàn)“子過程或函數(shù)未定義”的錯(cuò)誤，應(yīng)該寫成application.VLOOKUP(123,A1:C100,3,FALSE) 或者寫成 Application.WorksheetFunction.VLookup()方式。
2. 如果使用Application.WorksheetFunction.VLookup()時(shí)，會報(bào)錯(cuò)“不能取得worksheetfunction的vlookup屬性”，因此最好使用第一種形式：application.VLOOKUP(123,A1:C100,3,FALSE) 。具體原因根據(jù) 3.在使用上面任何一種形式的時(shí)候都有可能出現(xiàn)找不到“123”的情況，這種情況可以通過判斷語句 Application.WorksheetFunction.IsError() 和 if 配合來處理，讓錯(cuò)誤輸出成自己想要的格式。 http://iofai.com/559.html http://www.exceltip.net/thread-20656-1-1.html http://www.excelpx.com/forum.php?mod=viewthread&tid=284178 http://wubinsq.blog.163.com/blog/static/50751341200822144057698/ http://blog.csdn.net/iamlaosong/article/details/8929404 http://www.cpearson.com/excel/callingworksheetfunctionsinvba.aspx http://www.mrexcel.com/forum/excel-questions/584913-application-vs-application-worksheetfunction.htmlfindvalue = Application.VLookup(ActiveWorkbook.Worksheets(1).Range("E" & i), o, 2, 0) ' o為所查找的區(qū)域 If (Application.WorksheetFunction.IsError(findvalue)) Then ActiveWorkbook.Sheets(1).Cells(i, "G").Value = ActiveWorkbook.Sheets(1).Cells(i, "E").Value 'vlookup找不到，則G列的值等于E列的值 Else ActiveWorkbook.Sheets(1).Cells(i, "G").Value = findvalue End If
參考資料：
