如何在每第n行

Question

我在Excel中有一个函数来计算某些数字的平均值 例如=AVERAGE(I1:I36)。

问题是，我需要每49行粘贴一次这个函数，而不是手动计算行，然后复制和粘贴。

Answer 1

要在VBA中执行此操作（避免使用空白公式），您可以尝试这样做：

每9行输入A1到A50000的公式

Dim rng1 As Range
Set rng1 = Range([a1], Cells(50000, "A"))
rng1.FormulaR1C1 = Application.Evaluate("=IF(MOD(ROW(A1:A50000),49)=0,""=AVERAGE(RC9:R[35]C9)"","""")")

Answer 2

=IF(MOD(ROW(),49)=0,AVERAGE($I$1:$I$36),"")

如果在c1中保存起始行，在c2中保存公式的频率，它应该看起来像

=IF(MOD(ROW()-$c$1+$c$2,$c$2)=0,AVERAGE($I$1:$I$36),"")

Answer 3

决定1

使用Bitmap
亲：纯公式，没有宏 缺点：你必须使用整列，过多的计算（顺便说一句ROW（）函数效率不高，所以最好为行号花费另一列。）

决定2

只需选择带有公式和48个空单元格的单元格，按“复制”，然后选择整个范围并按“粘贴”。