在列宏VBA中添加每第3行

Question

我想在列＃34; K＆＃34;中每隔3行进行求和，从K2开始到最后使用的单元格。请注意，列＆＃34; K＆＃34;中使用的数据或单元格会有所不同。

我需要一个宏来汇总每个第3行的值，直到最后一行使用，并在＆＃34; M1＆＃34;中显示总计。

我附上了一些样本值的快照，以及我希望最终结果的样子。

Answer 1

短而慢（在Excel中经过测试，它只能用作数组公式）：

[M1] = [SUM(IF(MOD(ROW(K:K),3)=1,K:K))]

通过限制范围

或更长一点：

[M1] = Evaluate(Replace("SUM(K2:K9*(MOD(ROW(2:9),3)=1))", 9, [K1].End(xlDown).Row))