统计求和代码，谢谢老师

深秋红叶2019

问题如下图片红色文字描述，共四个问题，谢谢

microyip

http://club.excelhome.net/thread-1310803-1-1.html 多表多工作簿汇总，参考变通一下

answer6141

1. Sub test()
   
2. Dim i, j, k, m, n, irow, jrow As Long
   
3. Dim arr, brr, crr
   
4. Dim d1, d2, d3 As Object
   
5. Set d1 = CreateObject("scripting.dictionary")
   
6. Set d2 = CreateObject("scripting.dictionary")
   
7. With Sheets("报名登记")
   
8.     irow = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
   
9.     arr = .Range("a7:o" & irow)
   
10.     For i = LBound(arr) To UBound(arr)
    
11.         d1(arr(i, 2)) = d1(arr(i, 2)) + arr(i, 11) '累计缴费
    
12.         d2(arr(i, 2)) = d2(arr(i, 2)) + 1 '次数
    
13.     Next
    
14.     crr = d1.items
    
15.     For k = 0 To UBound(crr)
    
16.         Debug.Print crr(k)
    
17.     Next
    
18. End With
    
19.     With Sheets("学员信息建档")
    
20.         jrow = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
    
21.         brr = .Range("a3:l" & jrow)
    
22.         brr(1, 10) = UBound(arr, 1)
    
23.         brr(1, 11) = UBound(brr, 1)
    
24.         For j = 1 To UBound(brr)
    
25.             brr(j, 9) = d1(brr(j, 1))
    
26.             brr(j, 10) = d2(brr(j, 1))
    
27.         Next
    
28.         .Range("a3").Resize(UBound(brr, 1), UBound(brr, 2)) = brr
    
29.     End With
    
30. End Sub
    
31. 试试这个，有用赏花哦

复制代码

深秋红叶2019

microyip 发表于 2020-1-30 08:00
http://club.excelhome.net/thread-1310803-1-1.html 多表多工作簿汇总，参考变通一下

谢谢老师，好东西一定要收藏

深秋红叶2019

answer6141 发表于 2020-1-30 09:54

谢谢老师

深秋红叶2019

answer6141 发表于 2020-1-30 09:54

老师好像没结果出来

answer6141

深秋红叶2019 发表于 2020-1-30 11:51
老师好像没结果出来

头一次少了个 点
你在试下

深秋红叶2019

answer6141 发表于 2020-1-30 12:27
头一次少了个 点
你在试下

老师点放在哪个位置呢

answer6141

深秋红叶2019 发表于 2020-1-30 12:37
老师点放在哪个位置呢

我代码编辑过了，你重新复制看看，我也忘了在哪了，在with里面少加了一个点，偶尔对，偶尔不对，看运气