我在Excel中有一个函数来计算某些数字的平均值
例如=AVERAGE(I1:I36)
。
问题是,我需要每49行粘贴一次这个函数,而不是手动计算行,然后复制和粘贴。
答案 0 :(得分: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)"","""")")
答案 1 :(得分:0)
=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),"")
答案 2 :(得分:0)
决定1
使用Bitmap
亲:纯公式,没有宏
缺点:你必须使用整列,过多的计算(顺便说一句ROW()函数效率不高,所以最好为行号花费另一列。)
决定2
只需选择带有公式和48个空单元格的单元格,按“复制”,然后选择整个范围并按“粘贴”。