VBA, 每隔6行插入一行, 并对上面的6行数据进行求和

可以使用VBA的循环语句和条件语句来实现每隔6行插入一行并对上面的6行数据进行求和的操作。以下是一个示例代码：

Sub InsertRowAndSum()

    Dim i As Long
    Dim lastRow As Long
    Dim sumRange As Range
    Dim newRow As Long
    
    ' 获取最后一行的行号
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 遍历每隔6行插入一行并对上面的6行数据进行求和
    For i = 1 To lastRow Step 7
        ' 插入新行
        Rows(i + 1).Insert shift:=xlDown
        newRow = i + 1
        
        ' 计算求和范围
        Set sumRange = Range("A" & i & ":A" & i + 5)
        
        ' 在新行中写入求和结果
        Cells(newRow, 1).Value = WorksheetFunction.Sum(sumRange)
    Next i
    
End Sub

这段代码会遍历每隔6行插入一行并对上面的6行数据进行求和，插入的新行会位于原来的第6行和第7行之间。你可以将其复制到Excel的VBA编辑器中，直接运行即可。