求求大佬帮忙用VBA做个汇总

lin7899

依日期、客户名称、工程名称、强度等级（绿色） 4个条件汇总 本车方量、空载、超时H（红色）到对账表中，并把超时的单号（蓝色）提取到对帐表的备注中，车数：一行就是一车，统计同等级的行数（如C25两就是两车）提取到对帐表中（灰色），具体要求在附件中

3190496160

问题不难，关键有两点不明确：
1、对账单中间的行数应该是动态的吧？
2、对账单也要像现在标注单元格填充色吗？？？？

lin7899

3190496160 发表于 2021-7-24 12:06
问题不难，关键有两点不明确：
1、对账单中间的行数应该是动态的吧？
2、对账单也要像现在标注单元格填充 ...

1、对帐单中行数是动态的，是随着数据据的量而变化的
2、对帐单还有表格中的单元格颜色不用填充，我填充是想让各位大佬看的更直观些，
能帮帮忙吗？跪谢。每天要统计这大理的数据，忙得都没时间干其它事情

3190496160

Sub 对账单()
Dim ar As Variant
Dim i As Long
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Dim br()
ar = Sheets("开湖（水沟）").[a1].CurrentRegion
ReDim br(1 To UBound(ar), 1 To 17)
For i = 2 To UBound(ar)
    If Trim(ar(i, 1)) <> "" And Trim(ar(i, 5)) <> "" And Trim(ar(i, 6)) <> "" And Trim(ar(i, 8)) <> "" Then
        zf = ar(i, 1) & "|" & Trim(ar(i, 5)) & "|" & Trim(ar(i, 6)) & "|" & Trim(ar(i, 8))
        t = d(zf)
        If t = "" Then
            k = k + 1
            d(zf) = k
            t = k
            br(k, 1) = k
            br(k, 2) = ar(i, 1)
            br(k, 3) = ar(i, 8)
            br(k, 4) = ar(i, 9)
        End If
        br(t, 5) = br(t, 5) + 1
        br(t, 6) = br(t, 6) + ar(i, 11)
        br(t, 10) = br(t, 10) + ar(i, 31)
        br(t, 11) = br(t, 10) * 35
        br(t, 14) = br(t, 14) + ar(i, 34)
        If ar(i, 34) > 0 Then
            If br(t, 17) = "" Then
                br(t, 17) = ar(i, 2)
            Else
                br(t, 17) = br(t, 17) & "," & ar(i, 2)
            End If
        End If
    End If
Next i
If k = "" Then Exit Sub
With Sheets("对账表")
    .Range("a8:q25") = Empty
    .[a8].Resize(k, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub

3190496160

没有考虑中间行的动态性问题，目前是预留了18行，自己根据实际情况调整吧，代码仅供参考，

？月份对帐表（？）.rar (22.9 KB, 下载次数: 15)

2021-7-24 16:30 上传

点击文件名下载附件

lin7899

3190496160 发表于 2021-7-24 16:30
没有考虑中间行的动态性问题，目前是预留了18行，自己根据实际情况调整吧，代码仅供参考，

辛苦了！万分感谢。我试了下，当需要汇总的数据量大时（300多行左右），程序就会出现错误，如图！能帮帮忙看下么？谢谢了

3190496160

lin7899 发表于 2021-7-25 06:38
辛苦了！万分感谢。我试了下，当需要汇总的数据量大时（300多行左右），程序就会出现错误，如图！能帮帮 ...

不要说300行，10万行以内目前的代码都是可以应付的，所以，绝对不是数据行数多少的问题，应该是你的工作表的数据有问题吧，是哪句代码出问题都不说，别人肯定是没办法帮你的，实在不行，可以私聊