<em>EXCEL</em>如何每隔固定行数求一次和

如下例，在A1:A10之间 每行插抄入2行：

操作步骤：

1，B1 输入 1， B2输入2 ， 下拉 至袭B10 

2， 复制B1:B10 至B1:B30

3，对A:B 列按B列升序百排序

如上图， 即实现 在A1:A10 每个度数之间 插入2行，

此时  删除B列 即可

假定100个数在A列，为说明问题清晰可见，每25个单元格分别为1,2,3,4

B1输入

=SUM(OFFSET($A$1:$A$25,25*(ROW(A1)-1),,))

公式下拉

b列输入百序度号，b10输入=SMALL(IF($A$2:$A$8="",$B$2:$B$8+0.1,10000),ROW(A1))数组公式向下复制

选中知a1;b14数据-排序-无标题行道-主要关键字b列-升序-确定

结果如下

删除B列及回14行以下就是答你要的结果

Sub 宏1()
Dim iRows As Long
Application.ScreenUpdating = False
iRows = 1
Do While Range("a" & iRows + 1) <> ""
iRows = iRows + 1
Rows(iRows & ":" & iRows).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
iRows = iRows + 1
Loop
Application.ScreenUpdating = True
End Sub
其中的 1 为行数来，如你要隔几行插源入几行，自行修改zd