vba求和及平均数

18116628258

jiangxiaoyun

这这令人费解

3190496160

Sub 统计()
Dim arr()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheet1
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:c" & r)
    y = .Cells(2, Columns.Count).End(xlToLeft).Column
    rs = .Cells(Rows.Count, 8).End(xlUp).Row + 1
    br = .Range(.Cells(1, 7), .Cells(rs, y))
    For j = 2 To UBound(br, 2)
        If Trim(br(2, j)) <> "" Then
            d(Trim(br(2, j))) = j
        End If
    Next j
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            lh = d(Trim(ar(i, 1)))
            If lh <> "" Then
                br(rs, lh) = br(rs, lh) + ar(i, 3)
            End If
        End If
        If Trim(ar(i, 2)) <> "" Then
            lh = d(Trim(ar(i, 2)))
            If lh <> "" Then
                br(rs, lh) = br(rs, lh) + ar(i, 3)
            End If
        End If
    Next i
    For j = 2 To UBound(br, 2)
        If rs = 2 Then
            .Cells(rs, j + 6) = br(rs, j)
        ElseIf rs > 2 Then
            .Cells(rs, j + 6) = .Cells(rs - 1, j + 6) + br(rs, j)
        End If
    Next j
End With
MsgBox "ok!"
End Sub

3190496160

猜呢，仅供参考，题外话，统计表这样设计，不知楼主的目的是什么
测试文件11.9.rar (17.12 KB, 下载次数: 3)

2021-11-9 16:22 上传

点击文件名下载附件

18116628258

3190496160 发表于 2021-11-9 16:23
猜呢，仅供参考，题外话，统计表这样设计，不知楼主的目的是什么

好的,谢谢!学习了