Question

excel提取记录凭证的时候，运行错误1004,不能取得类worksheetfunction 的 vlookup属性，不知道怎么解决啊

第二张图是进入调试那的





Answer 1

检查一下VBA工程“引用”，如果引用了类似的其他库，取消即可。比如别人用WPS表格设计的文件，你用EXCEL打开时会出现类似的问题，这时你就会发现“引用”里还勾选了WPS的库，取消后重新打开文件就正常了

Answer 2

代码本身没错，只是第一个参数对应的数据在对应数据的第一列中未能找到才出错的。
建议改用字典进行，用字典的Exists属性判断。

追问

因为我不懂这些代码，麻烦可以详细一点怎么做吗

追答

Sub ss()
Dim Dic As Object, Crr, i&, Brr
Set Dic = CreateObject("Scripting.Dictionary")
Crr = Worksheets("辅助账-客户").[B1:C1000]
For i = 1 To UBound(Crr)
Dic(Crr(i, 1)) = Crr(i, 2)
Next i
'你自己的其他的运算、定义
If Dic.Exists(Brr(33)) Then
Brr(33) = Dic(Brr(33))
Else
'字典找不到时的处理，我看不出来你要怎么处理，自己写代码或空白
End If
End Sub

追问

实在是不懂啊，173秋秋1891093，完整代码给你

Answer 3

Sheets(i).Cells(K, 1) ActiveCell.Formula="=VLookup(Sheets(i).Cells(K, 3), 基础物料汇总!a:o, 1, False)"
试试

Answer 4

除了前面几种可能，还有一种可能，就是你要查的数据，不在第一个子表内，当excel查了第一个表，没查到后，会报这个错。在代码开头增加一句 On Error Resume Next，第一个表查完没有的话，就会到第二个表继续查。