Excel 为什么AutoSum命令不起作用？

当我使用自动求和时，子菜单退出，我需要手动按下回车键。我试图硬编码回车键，但一旦代码进入应用程序。命令栏。。。代码仍然存在于sub

提前谢谢大家

我有以下代码：

For r = fRows + 1 To ActiveSheet.UsedRange.Rows.count
If Cells(r, 3).Value <> Cells(r + 1, 3).Value And Not Cells(r, 3).Value = 0 Then
    Cells(r + 1, 12).Select
    Application.CommandBars("Standard").Controls("Autosum").Controls("Sum").Execute.SendKeys "{ENTER}"
    Application.SendKeys "{ENTER}"
End If
Next r

---

TBH，我从未在VBA宏中使用过SendKeys之类的东西。你应该用类似的东西

Cells(r + 1, 12).FormulaR1C1 = "=SUM(R1C12:R" & r & "C12)"

或

---

我无法回答您最初提出的问题，即为什么AutoSum命令不起作用。

谢谢您的回答。我会使用你的建议，但我正在尝试对范围的不同部分求和，我的起始行不是1，而是基于If语句的动态行。当然，不使用命令栏也可以实现目标。试试看，如果不行就回来。

Cells(r + 1, 12).Formula = "=SUM(L1:L" & r & ")"