客户应收报表

he6900

客户应收报表.rar (11.78 KB, 下载次数: 17)

2022-10-27 17:27 上传

点击文件名下载附件
客户应该汇总表

请各位大神帮帮忙，请问如何把客户一、客户二（很多个客户等等 依月份汇总到表一吗？
如下图

3190496160

这个问题还是求助于vba吧

he6900

谢谢提醒，不行我再去那边求助

3190496160

Sub 汇总()
Application.ScreenUpdating = False
Dim ar As Variant
Dim arr()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
ReDim arr(1 To 50000, 1 To 4)
For Each sh In Sheets
    If sh.Index > 1 Then
        r = sh.Cells(Rows.Count, 1).End(xlUp).Row
        ar = sh.Range("a2:i" & r)
        For i = 2 To UBound(ar)
            If Trim(ar(i, 1)) <> "" And Trim(ar(i, 2)) <> "" Then
                If InStr(ar(i, 2), "月") > 0 Then
                    zd = Trim(ar(i, 1)) & "|" & Trim(ar(i, 2))
                    t = d(zd)
                    If t = "" Then
                        k = k + 1
                        d(zd) = k
                        t = k
                        arr(k, 1) = ar(i, 1)
                        arr(k, 2) = ar(i, 2)
                    End If
                    arr(t, 3) = arr(t, 3) + ar(i, 3)
                    arr(t, 4) = arr(t, 4) + ar(i, 6)
                End If
            End If
        Next i
    End If
Next sh
'''汇总数据
For i = 1 To k
    For s = i + 1 To k
        If Val(arr(i, 2)) > Val(arr(s, 2)) Then
            For j = 1 To 4
                kk = arr(i, j)
                arr(i, j) = arr(s, j)
                arr(s, j) = kk
            Next j
        End If
    Next s
Next i
'''按月份排序
With Sheets("汇总")
    .[a1].CurrentRegion.Offset(2).Borders.LineStyle = 0
    .[a1].CurrentRegion.Offset(2) = Empty
    .[a3].Resize(k, 4) = arr
    .[a3].Resize(k, 4).Borders.LineStyle = 1
End With
MsgBox "ok!"
End Sub

3190496160

客户应收报表.rar (24.71 KB, 下载次数: 48)

2022-10-28 09:41 上传

点击文件名下载附件

he6900

谢谢大神，太牛啦

he6900

3190496160 发表于 2022-10-28 09:41

兄，下午好，请问一下为什么汇总一次数量就会重复一次，能不帮忙解决，谢谢（如图）

3190496160

he6900 发表于 2022-10-31 19:36
兄，下午好，请问一下为什么汇总一次数量就会重复一次，能不帮忙解决，谢谢（如图）

代码是建立一个新的数组来存放汇总的数据，然后再写入单元格区域的，所以，不可能会出现你说的累加问题的，你自己看看你自己的数据吧

he6900

3190496160 发表于 2022-10-31 20:55
代码是建立一个新的数组来存放汇总的数据，然后再写入单元格区域的，所以，不可能会出现你说的累加问题的 ...

好的，我自己先了解下为什么会这样，有可能是我加了求和才这样，谢谢啦

双双说双双

先复制粘贴到一个工作表，光标定到月份，点击排序，只是要自己调整一下月份顺序