Question

用EXCEL VBA在宏里插入计算公式，一直提示“语法错误”，急！！！求EXCEL VBA高人帮忙！

Sub Refpaste()
'
' 公式 Refpaste
'
Range("J2").Formula = "=IfError(VLookup(("MSIS_Data_Source[@TDVCHR]") & ("MSIS_Data_Source[@TDOPIT]") & ("MSIS_Data_Source[@AMOUNT]"), ("_Ref1[#全部]"), 2, 0), """")" 《-------老是提示这段语法错误！！
Range("J2").Select
Selection.AutoFill Destination:=Range("MSIS_Data_Source[REVISED DESC]")
Range("MSIS_Data_Source[REVISED DESC]").Select
Calculate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K6").Select

End Sub

Answer 1

VBA字符串表达式中，双引号要用两个双引号表示。

因此错误代码修改如下：

Range("J2").Formula =
 "=IfError(VLookup((""MSIS_Data_Source[@TDVCHR]"") & (""MSIS_Data_Source[@TDOPIT]"") & (""MSIS_Data_Source[@AMOUNT]""), (""_Ref1[#全部]""), 2, 0), """")"