各位老师帮忙看看

ardu95

各位老师：小白一个，代码是在EH上面抄的，有空帮忙看看：
1、在数据汇总未行添加各单位合计，O列有的行有总计，有的行没有总计 是怎么回事？
2、怎样按时间汇总？如按月汇总？
3、24行后面有二个0是怎么怎么来的？如何去除？

不知道为什么

按月汇总，那就把月份 当 key  就行

wxf841018

Sub test()
With Sheet20
    arr = .Range("A1:C" & .Cells(Rows.Count, 1).End(xlUp).Row)
    brr = .Range("E1:O" & .Cells(Rows.Count, 5).End(xlUp).Row)
    For i = 2 To UBound(brr)
        For j = 2 To UBound(brr, 2) - 1
            For k = 2 To UBound(arr)
                If brr(i, 1) = arr(k, 1) And brr(1, j) = arr(k, 2) Then
                    s = s + arr(k, 3)
                End If
            Next
            .Cells(i, j + 4) = s
            l = l + s
            s = 0
        Next
    .Cells(i, 15) = l: l = 0
    Next
End With
End Sub

不知道为什么

如图，按月汇总

不知道为什么

参考

jiangxiaoyun

1. Sub vfv()
   
2.     Dim arr, brr(1 To 66666, 1 To 20)
   
3.     Set d1 = CreateObject("scripting.dictionary")
   
4.     Set d2 = CreateObject("scripting.dictionary")
   
5.     arr = [a1].CurrentRegion
   
6.     r = 1: c = 1: brr(1, 1) = "日期"
   
7.     For i = 2 To UBound(arr)
   
8.         If Not d1.exists(arr(i, 1)) Then
   
9.             r = r + 1
   
10.             d1(arr(i, 1)) = r
    
11.             brr(r, 1) = arr(i, 1)
    
12.         End If
    
13.         If Not d2.exists(arr(i, 2)) Then
    
14.             c = c + 1
    
15.             d2(arr(i, 2)) = c
    
16.             brr(1, c) = arr(i, 2)
    
17.         End If
    
18.         rr = d1(arr(i, 1))
    
19.         cc = d2(arr(i, 2))
    
20.         brr(rr, cc) = brr(rr, cc) + arr(i, 3)
    
21.     Next
    
22.     col = d2.Count + 2
    
23.     brr(1, col) = "合计": brr(r + 1, 1) = "总计"
    
24.     For i = 2 To r
    
25.         For j = 2 To col - 1
    
26.             brr(i, col) = brr(i, col) + brr(i, j)
    
27.         Next
    
28.         brr(r + 1, col) = brr(r + 1, col) + brr(i, col)
    
29.     Next
    
30.     [f1].Resize(r + 1, col) = brr
    
31. End Sub

复制代码

jiangxiaoyun

数据表式汇总.zip (30.07 KB, 下载次数: 7)

2018-8-16 21:16 上传

点击文件名下载附件

ardu95

jiangxiaoyun 发表于 2018-8-16 21:14

非常感谢帮助。
能否每一列都有总计？

ardu95

不知道为什么 发表于 2018-8-16 21:09
参考

谢谢老师帮助。
如果按日汇总，怎么改？