Excel vba中使用vlookup函式
1. 在excel vba程式設計中使用vlookup()時,vlookup不能直接寫成excel公式中的樣式[ =VLOOKUP(123,A1:C100,3,FALSE) ],會出現“子過程或函式未定義”的錯誤,應該寫成application.VLOOKUP(123,A1:C100,3,FALSE) 或者寫成 Application.WorksheetFunction.VLookup()方式。
2. 如果使用Application.WorksheetFunction.VLookup()時,會報錯“不能取得worksheetfunction的vlookup屬性”,因此最好使用第一種形式:application.VLOOKUP(123,A1:C100,3,FALSE) 。具體原因根據
3.在使用上面任何一種形式的時候都有可能出現找不到“123”的情況,這種情況可以通過判斷語句 Application.WorksheetFunction.IsError() 和 if 配合來處理,讓錯誤輸出成自己想要的格式。
findvalue = Application.VLookup(ActiveWorkbook.Worksheets(1).Range("E" & i), o, 2, 0) ' o為所查詢的區域 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
參考資料:
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.html