Excel vba中使用vlookup函数

来源：互联网发布：地方门户cms 编辑：程序博客网时间：2024/05/18 01:38

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) 。具体原因根据这里所说，Application.WorksheetFunction.VLookup()会进入debug模式，application.VLOOKUP(123,A1:C100,3,FALSE)不会进入debug模式。当然，如果想忽略错误可以直接写 "On Error Resume Next" 。

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

0 0