VBA VLOOKUP公式编译错误

Question

我总是有一个编译错误：预期的：statemets的结尾，并总是向我展示代码的一部分（“ F1：H66”）

Public Sub macro2()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Range("G31").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],Sheet2.Range("F1:H66"),3, False)"
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Answer 1

当双引号出现在字符串中时，请将双引号加倍：

"=VLOOKUP(RC[-4],Sheet2.Range(""F1:H66""),3, False)"

------------------------------^--------^----------

Answer 2

使用Chr(34)具有" ，它更易于阅读。

其次，尝试避免使用Select和ActiveCell ，而是可以使用直接Range方法，请参见下面的代码：

Range("G31").FormulaR1C1 = "=VLOOKUP(RC[-4],Sheet2.Range(" & Chr(34) & "F1:H66" & Chr(34) & "),3, False)"

Answer 3

尝试使用此代码。 您可以根据需要调整单元格的值。

NewValue = Application.WorksheetFunction.VLookup( Range("G31"), Range("F1:H66"), 3, False )

Answer 4

另一种方法是使用
"=VLOOKUP(RC[-4],Sheet2!R1C6:R66C8,3, False)"

这将给出公式： =VLOOKUP(C31,Sheet2!$F$1:$H$66,3, FALSE)