Excel 在VBA代码中找不到小语法错误

我找不到此代码中的错误。我要做的是在A列中使用“CN Equity”时，在S列中插入公式。我希望宏从第6行运行到第69行

Sub fx()

Dim x As Long

x = 6

Do

    If InStr(1, (Range("A" & x).Value), "CN Equity") > 0 Then
    Sheets("Sheet1").Range("S" & x).Formula = "=BDP("CADUSD BGN Curncy","LAST_PRICE")" & x
    End If

x = x + 1
Loop Until x = 70

End Sub

考虑：

Sub fx()
    Dim x As Long
    x = 6
    Do
        If InStr(1, (Range("A" & x).Value), "CN Equity") > 0 Then
            Sheets("Sheet1").Range("S" & x).Formula = "=BDP(""CADUSD BGN Curncy"",""LAST_PRICE"")+" & x
        End If
        x = x + 1
    Loop Until x = 70
End Sub

注意

---

如有必要，将公式中的+替换为*或&。

检查

“=BDP（“CADUSD BGN curency”，“最后价格”）”&x

。使用另一组双引号作为引号的VBA转义字符包装双引号，或使用

Chr（34）

代替引号。在公式的末尾，

&x

应该做什么？正如您所解释的，我尝试使用Chr（34）路由，但现在得到一个编译错误：预期：使用两个双引号的语句结尾也会给我这个错误。很抱歉，这不是调试服务。。。你已经被指出了问题所在，现在去研究VBA语法+错误。这不会让我第一次尝试用.Text替换.Value