VBA 在范围内设置公式 - 问题

Question

我有以下问题。我想在不同的单元格中填写公式(="")，需要填写这种公式，而不是因为另一个文件处理而将单元格留空。但是，如果我通过以下方式遍历不同的单元格:

For Col = 10 To 99
    For Row = 10 To 11
        If Col Mod 3 <> 0 Then
           Worksheets(name_sheet).Range("A1").Offset(Row - 1, Col - 1).Formula = "="""
           Worksheets(name_sheet).Range("A1").Offset(Row - 1, Col - 1).Locked = True
           Worksheets(name_sheet).Range("A1").Offset(Row - 1, Col - 1).Interior.ThemeColor = xlThemeColorLight2
           Worksheets(name_sheet).Range("A1").Offset(Row - 1, Col - 1).Interior.TintAndShade = 0.799981688894314
       End If
    Next Row
Next Col

然后我收到无法分配公式的错误。不过，我看不到错误会产生什么。

非常感谢你的帮助

亲切的问候
克劳德

Answer 1

当您尝试输入 " 时，这有点令人困惑通过 VBA 在单元格中。您需要使用 " 将其转义...

尝试这个:

"="""""