excel 宏 每隔29行插入一行并合计

来源：百度知道 编辑：UC知道 时间：2024/05/14 01:05:07
文件：A-J列，2400行。
要求：每29行插入一行，并在行第一个格里写上 合计 俩字，同时计算H1-H29,I1-I29,J1-J29的和，分别放置在H30,I30,J30上（就是前29行求和放置在合计上）。然后下一个29行计算的是H31-H60的和，并放置在H61上，还有I,J。

意思就是这样，一直插入格，然后输入合计，分别计算H I J三列的和，看清哦，每次计算的都是两个插入的合计中间的数值和，高分求助啦！

Sub xxx()
Rows.Interior.ColorIndex = 0
For i = 1 To 2400 / 29
x = 30 * i
Rows(x).Select
Selection.Insert Shift:=xlDown
Rows(x).Interior.ColorIndex = 8
Range("a" & x) = "合计"
For J = x - 29 To x - 1
Range("h" & x) = Range("h" & x) + Range("h" & J)
Range("i" & x) = Range("i" & x) + Range("i" & J)
Range("j" & x) = Range("j" & x) + Range("j" & J)
Next
Next
End Sub

【然后下一个29行计算的是H31-H59的和，并放置在H60上】！