Vba 在公式栏中插入公式

有人知道我的代码有什么问题吗

Sub reFormat()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Admin")
    ws.Range("C21").Formula = "=""S4&""AA5&""AA6&""AA7&""AA8&""AA9&""AA10" 'returns applica-
    tion defined or object-defined error
End Sub

我希望这个代码的输出是：

=S4&（AA5&AA6&AA7&AA8&AA9&AA10）

---

谢谢你的帮助

你的公式根本无效。字符串的计算结果如下：

="S4&"AA5&"AA6&"AA7&"AA8&"AA9&"AA10

这不是有效的Excel公式

你引用的话太多了。如果这些是单元格引用，并且您的公式打算连接它们，并且您希望字符串的计算结果为：

然后你可以这样做：

.Formula = "=S4&(AA5&AA6&AA7&AA8&AA9&AA10)"

---

如果转到即时窗格并执行

？“=”S4&“AA5&”AA6&“AA7&”AA8&“AA9&”AA10”

，它是否输出有效的公式？您可能只是缺少了一个结束引号-尽管我怀疑您是否真的打算连接单元格地址。@Mat'smugh是的，它有一个有效的输出。谢谢提示：不，它不是有效的输出。我说的“有效输出”是指，你可以合法地粘贴到公式栏中。@Mat'smugh哦，是的！我刚才注意到了。我将更新我的问题和我的首选输出。谢谢

.Formula = "=S4&(AA5&AA6&AA7&AA8&AA9&AA10)"