无法在VBA代码中找到小的语法错误

Question

我在这段代码中找不到错误。我想要做的是在A列中插入公式，当A列中使用“CN Equity”时。我希望宏从第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

Answer 1

考虑：

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

注意

如有必要，请将公式中的 + 替换为 * 或＆amp; 。