Question

我正在尝试从名为CashReward的电子表格中找到一个员工姓名及其导入日期。

下面的编码出现错误消息“无法获取WorksheetFunction类的Vlookup属性”。我尝试将数据类型更改为CDate和CStr，但没有用。

concat = EmpName & GetDate

BasicSal = WorksheetFunction.VLookup(CVar(concat), Sheets("CashReward").Range("G3:K" & Cashlastrow), 2, False)

提前致谢

Answer 1

如果在给定范围内找不到您的搜索字符串，则会发生这种情况。

请注意，范围内的数据需要按升序排序，请参阅http://office.microsoft.com/en-us/excel-help/vlookup-HP005209335.aspx

必须放入table_array第一列中的值升序排序;否则，VLOOKUP可能不会给出正确的值。您可以通过选择排序来按升序排列值从“数据”菜单中选择命令并选择“升序”。更多信息，请参阅默认排序顺序。

Answer 2

Amy可以解决这个错误的运行时错误'424'对象需要

Private Sub VLOOKUP()
Dim I As Integer
Dim J As Integer
Dim K As Integer

For I = 2 To 14

For J = 1 To 1
For K = 2 To 2


Sheet2.Cells(I, K) = Appliaction.WorksheetFunction.VLOOKUP(Sheet2.Cells(I, J), Sheet1.Range("$A$1:$C$307"), 2, False)
Next K
Next J
Next I

End Sub

无法获取WorksheetFunction类的Vlookup属性

2 个答案: