我一直无法弄清楚我的脚本有什么问题,因为它似乎并不难,所以我希望我能在这里找到答案。Vlookup + Iberror in VBA error“1004”
我有两张纸(Sheet1和Sheet2),其中两张都是随时间变化的列表(Sheet1中的信息每次都在Sheet2中获取)。我想为Sheet1中的每一行运行vlookup函数,并在sheet2中不存在条目时返回“new”(第28列)。
代码有些问题,因为我一直得到1004错误关于iferror & vlookup函数。
由于提前,
Sub vlookup_iferror()
Dim i As Integer
Dim finalrow As Integer
finalrow = Sheets("Sheet1").Range("A100000").End(xlUp).Row
For i = 2 To finalrow
Cells(i, 28) = Application.IfError(Application.VLookup(Sheets("Sheet1").Range("i, 2"), Sheets("Sheet2").Range("B:B"), 1, False), "New")
Next i
End sub
正确的语法是Application.WorksheetFunction.IFERROR()等。不知道为什么你要这样做,而不是使用.Range()。Find(),因为它需要更长的时间..此外,如果你试图动态地找到最后一行,如Sheets(1).Cells(Sheets(1).Rows.Count,1).End(xlUp).Row可能会更好。 – Tyeler