vba, 对多列里的每隔6行的数据按列求和

您可以使用VBA代码实现对多列里每隔6行的数据按列求和。以下是示例代码，您可以根据自己的需求进行修改：

Sub SumEvery6Rows()
    Dim i As Long, j As Long, lastRow As Long, sumRow As Long
    Dim sumCol As Long, interval As Long
    
    '设置求和的列和间隔
    sumCol = 1 '第1列
    interval = 6 '每隔6行求和
    
    '获取最后一行和求和行
    lastRow = Cells(Rows.Count, sumCol).End(xlUp).Row
    sumRow = lastRow + 1
    
    '按列求和
    For j = sumCol To ActiveSheet.UsedRange.Columns.Count
        For i = 1 To lastRow Step interval
            Cells(sumRow, j).Formula = Cells(sumRow, j).Formula & "+" & Cells(i, j).Address
        Next i
    Next j
End Sub

在代码中，您需要设置需要求和的列和间隔的值。代码会自动计算每列中需要求和的行，并在每列底部显示总和。请注意，如果您的数据中存在空行，则需要修改代码以跳过这些行。

相关问题

vba, 多列多行, 每隔6行插入新的一行,该新行对上面的6行数据按列进行求和

您可以使用 VBA 中的 for 循环和 if 语句来实现该功能。下面是一个简单的示例代码：

Sub InsertRowAndSum()
    Dim currentRow As Long
    Dim lastRow As Long
    Dim sumRange As Range
    
    currentRow = 1
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    Do While currentRow <= lastRow
        If (currentRow - 1) Mod 6 = 0 And currentRow > 1 Then
            ' Insert a new row
            Rows(currentRow).Insert Shift:=xlShiftDown
            
            ' Sum the values in the previous 6 rows by column
            For i = 1 To 10 ' 假设有10列需要求和
                Set sumRange = Range(Cells(currentRow - 7, i), Cells(currentRow - 2, i))
                Cells(currentRow - 6, i).Value = WorksheetFunction.Sum(sumRange)
            Next i
            currentRow = currentRow + 1
            lastRow = lastRow + 1
        End If
        currentRow = currentRow + 1
    Loop
End Sub

在上面的代码中，我们使用了 Do While 循环来遍历每一行数据。当循环到每隔6行时，插入新的一行，并对上面的6行数据按列进行求和，然后继续往下遍历。请注意，我们使用 `currentRow - 1` 来判断是否为每隔6行，因为我们从第1行开始循环，而不是从第0行开始。

另外，代码中的 `10` 表示需要求和的列数，您可以根据实际情况进行修改。

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编辑器中，直接运行即可。