VBA - VLookup功能没有woking

Question

谁能告诉我为什么这不起作用？这将停止工作我的宏并出现错误消息

Sh.Cells(2, 13).Formula = WorksheetFunction.VLookup(Sh.Cells(2, 6) & " - " & Sh.Cells(2, 8), Worksheets("Licenciaturas").Range("H2:K2928"), 4, False)

谢谢！

Answer 1

您是尝试将其作为公式添加到单元格中，还是只返回VLookup的结果并将其放在单元格中？

您的代码看起来似乎正在尝试两者兼而有之。

如果您希望公式出现在工作表中，请使用：

Sh.Cells(2, 13).FormulaR1C1 = "=VLOOKUP(R2C6 & "" - "" & R2C8, 'Licenciaturas'!R2C8:R2928C8,4,FALSE)"

公式显示为：=VLOOKUP($F$2 & " - " & $H$2, Licenciaturas!$H$2:$H$2928,4,FALSE)