如何在第n行插入一个函数的值
我在Excel中有一个函数来计算一些数字的=AVERAGE(I1:I36) 。
事情是，我需要粘贴这个函数每49行，而不是手动计数行，然后复制和粘贴。
要做到这一点在VBA（避免空白公式），你可以试试这个：
每9行input从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)"","""")")
=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),"")
决定1
使用=IF(MOD((ROW()-ROW($I$1)),49)=0;AVERAGE(I1:I36);"")
亲：纯粹的公式，没有macros。
缺点：你必须使用整个列，过多的计算（顺便说一句ROW（）函数效率不高，所以最好花另一列的行号）。
决定2
只需select一个公式和48个空单元格的单元格，按“复制”，然后select整个范围，然后按“粘贴”。