使用循环通过VBA中的数组创建行，其中小计位于要添加的数据之上

Sub AddSubtotals()
    Dim dataRange As Range
    Dim dataArray() As Variant
    Dim subtotalRow As Range
    Dim i As Long
    
    ' 设置数据范围
    Set dataRange = Range("A2:A10")
    
    ' 将数据范围存储到数组中
    dataArray = dataRange.Value
    
    ' 在每个数据之上插入小计行
    For i = UBound(dataArray, 1) To LBound(dataArray, 1) Step -1
        ' 插入小计行
        Set subtotalRow = dataRange.Cells(i).EntireRow
        subtotalRow.Insert Shift:=xlDown
        
        ' 在小计行中添加小计公式
        subtotalRow.Cells(1, 1).Value = "Subtotal"
        subtotalRow.Cells(1, 2).Formula = "=SUM(B" & i + 1 & ":B" & i + 2 & ")"
    Next i
End Sub