哪里不对

ddz79101

老师！有个汇总，写有代码，但结果又列没有出来（显示错误），另合计也不对，请老师看看。谢谢

quqiyuan

参与一下，仅供参考，，，

quqiyuan

代码如下。。。。
Sub 汇总()
    Dim r%, i%
    Dim arr, brr
    Dim d As Object
    Set d = CreateObject("scripting.dictionary")
    With Worksheets("Sheet1")
        r = .Cells(.Rows.Count, 1).End(xlUp).Row
        arr = .Range("a5:o" & r)
        ReDim brr(1 To UBound(arr), 1 To 3)
        For i = 1 To UBound(arr)
            t = arr(i, 4)
            If Not d.exists(t) Then
                n = n + 1
                d(t) = n
            End If
            m = d(t)
            brr(m, 1) = t
            brr(m, 2) = brr(m, 2) + arr(i, 14)
            brr(m, 3) = brr(m, 3) + arr(i, 15)
        Next
        n = n + 1
        brr(n, 1) = "合计"
        brr(n, 2) = "=sum(r[-1]c:r5c)"
        brr(n, 3) = "=sum(r[-1]c:r5c)"
        .Range("q6").CurrentRegion.ClearContents
        .Range("q6").Resize(n, 3) = brr
        .Range("q5:s5") = Array("列4", "列14", "列15")
    End With
    Beep
End Sub

ddz79101

quqiyuan 发表于 2024-10-23 19:55
参与一下，仅供参考，，，

谢谢老师！运行成功！看了你的代码，发现我的离谱的多了。