3

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

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

concat = EmpName & GetDate

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

提前致谢

4

2 回答 2

3

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

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

table_array 第一列的值必须按升序排列;否则,VLOOKUP 可能不会给出正确的值。您可以通过从数据菜单中选择排序命令并选择升序来将值按升序排列。有关详细信息,请参阅默认排序顺序。

于 2013-03-19T15:25:56.357 回答
-1

Amy one 可以解决这个错误的运行时错误“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

结束子

于 2014-06-06T10:56:54.580 回答