Vba 一行中每三个单元格求和一次

我想连续三个单元格加起来。如果可能的话，能够填写这个公式将是非常棒的。首先，我希望在一个VBA脚本中构建它，而不是在这一部分中完成

我发现了以下代码，但似乎不起作用：

=SUMPRODUCT((MOD(COLUMN(6:6),4)=0)*(6:6))

虽然这是一个公式，但我觉得这应该能够重复下来，并相应地应用，没有任何问题。一个问题是，要激活上述功能，您需要按CTRL+SHIFT+ENTER

---

任何帮助都可以得到它，这样它就可以从第4列开始计算一行中的每3个单元格，这将非常棒

从D列开始，您可以使用以下公式对每三个单元格求和

=SUMPRODUCT(--(MOD(COLUMN(D2:O2)-COLUMN(D2),3)=0),D2:O2)

从第三个单元格（即F2）的第一次出现开始，每三个单元格求和

---

相应地调整范围。请注意，公式可以填写，只需按ENTER键确认，而不需要按CTRL+SHIFT+ENTER键。

“每三个单元格”为什么要按4模？提供一些示例数据和示例结果。此网站上的搜索可能有助于您解决此问题：@pnuts稍短一些，但不够健壮。：）例如，如果在D列处或之前插入一列，则不会得到所需的结果。我已编辑了我的帖子，从第三个单元格（即F2）的第一个匹配项开始，每三个单元格求和一次。

=SUMPRODUCT(--(MOD(COLUMN(D2:O2)-COLUMN(D2)+1,3)=0),D2:O2)