关于VBA中不能取得类WorksheetFunction的VLookup属性

[qq_38038237]

Sub chaxun()

Sheet1.Range("d14") = Application.WorksheetFunction.VLookup(Sheet1.Range("d9"), Sheet2.Range("a:h"), 5, 0)

End Sub


不知道怎么解决，求大神指点一下！！！非常感谢~~~

[milaoshu1020]

没遇到过,帮你百度了一下:
https://www.baidu.com/s?wd=%E4%B8%8D%E8%83%BD%E5%8F%96%E5%BE%97%E7%B1%BBworksheetfunction%E7%9A%84vlookup%E5%B1%9E%E6%80%A7&ie=utf-8

[wangiangQq]

Vlookup没有找到值就会报错，前面要查找的数据不正确

On Error Resume Next 语句容错，容错后要把变量归零

[eyriechou]

你检查一下你要搜索的这个值 Sheet1.Range("d14")，在不在你的sheet2的a:h列里，如果这个值在不在你的表2里，在其他表里面，就会报错

[ssy11_30]

lc= Application.WorksheetFunction.VLookup(Sheet1.Range("d9"), Sheet2.Range("a:h"), 5, 0) if lc>0 then Sheet1.Range("d14") =lc

[zhengyshan]

报错是提示精确匹配不到数据； 根据你的图片，去找了王老师的课件； 当你没改动过数据，就是搜索的d9单元格是上海考生考号在第5个表，你在第2个表肯定找不到； 注意：在该课件中，vlookup函数是根据各个地区的第1列考号来匹配内容，如果你匹配的是其它列，它是匹配不到的；

[zhong0800]

Sub chaxun() Sheet1.Range("d14") = Application.VLookup(Sheet1.Range("d9"), Sheet2.Range("a:h"), 5, 0) End Sub 试试

[qq_43084470]

Sheet1.Range("d14") = Application.VLookup(Sheet1.Range("d9"), Sheet5.Range("a:h"), 5, 0)