无法获取WorksheetFunction类的Vlookup属性

我正在试图从一个名为CashReward的电子表格中find一个员工姓名和他们的导入date。

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

concat = EmpName & GetDate

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

提前致谢

如果在给定范围内找不到您的searchstring,则会发生这种情况。

请注意,范围中的数据需要按升序sorting,请参阅http://office.microsoft.com/zh-cn/excel-help/vlookup-HP005209335.aspx

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

艾米可以解决这个erroe运行时错误'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 

结束小组