vba at vlookup公式中的应用程序定义或对象定义错误

Question

需要一些帮助来解决以下代码。我无法从另一张表中获得vlookup值，其给出的错误总是"应用程序定义或对象定义错误">

For i = 1 To lrr
If Range("D" & i).Value = "" Then 'if cell in A is empty
On Error GoTo 0
Range("D" & i).FormulaR1C1 = "=VLookup(RC[-1], ('C:Macros[Consolidated BTG with Search Terms.xlsx]AU'!B:D),3,0)"
OR (with Sheet name by user input)
Range("D" & i).Formula = "=VLookup(RC[-1], Workbooks(nw).Sheets(MP).Range('B:D'), 3, 0)"
End If

我试图获取一个特定值的值，如果它是空的，然后从另一张表中vlookup并作为特殊值(值(过去。我被困在这里了。请帮助

Answer 1

您正在混合A1和R1C1引用。选择一个并确保所有引用都使用它。

所以，要么：

Range("D" & i).FormulaR1C1 = "=VLookup(RC[-1], ('C:Macros[Consolidated BTG with Search Terms.xlsx]AU'!C2:C4),3,0)"

或者：

Range("D" & i).FormulaR1C1 = "=VLookup(RC[-1]," & Workbooks(nw).Sheets(MP).Range("B:D").Address(1,1,xlR1C1,1) & ", 3, 0)"