Excel VBA 语法错误

Question

这个问题在这里已经有了答案:





How do I put double quotes in a string in vba?

(4 个回答)


5个月前关闭。




我在 VBA 中制作了我认为是一个简单的脚本，它执行指定的公式并将其一直应用到 D 列。
当我运行它时，我得到一个运行时错误 13 类型不匹配。
我通过用像 1+1 这样简单的东西替换公式来缩小实际公式部分的范围，然后它就可以正常工作了。有什么建议吗？

类型不匹配错误:

Sub FillFormula()
Range("D2").Formula = "=SUBSTITUTE(D2;" - ";"")"
Range("D2", "D" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown
End Sub

适用于:

Sub FillFormula()
Range("D2").Formula = "=1+1"
Range("D2", "D" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown
End Sub

Answer 1

将 Excel 公式写入 D2您希望它的方式，并确保它在 Excel 中工作。

选择 D2 并运行以下命令:

Public Sub PrintMeUsefulFormula()

    Dim strFormula  As String
    Dim strParenth  As String

    strParenth = """"

    strFormula = Selection.Formula
    strFormula = Replace(strFormula, """", """""")

    strFormula = strParenth & strFormula & strParenth
    Debug.Print strFormula

End Sub

使用即时窗口中显示的任何内容。它应该工作。 I have been using it quite a lot.