统计同时计数和求和

Qs18

SQL统计次数和总和

wang-way

wang-way

练个手

1. Public Sub X()
   
2.     Dim dic As Object
   
3.     Set dic = CreateObject("Scripting.Dictionary")
   
4.     Dim wb As Workbook, sht As Worksheet
   
5.     Set wb = Application.ThisWorkbook
   
6.     Set sht = wb.Worksheets(1)
   
7.     With sht
   
8.         eRow = .Cells(.Rows.Count, 1).End(xlUp).Row
   
9.         Set Rng = .Range("A2:Z" & eRow)
   
10.         arr = Rng.Value
    
11.         For i = LBound(arr) To UBound(arr)
    
12.             Key = CStr(arr(i, 1))
    
13.             If Not dic.Exists(Key) Then
    
14.                 Ar = Array(Key, 1, arr(i, 2))
    
15.                 dic(Key) = Ar
    
16.             Else
    
17.                 Ar = dic(Key)
    
18.                 Ar(1) = Ar(1) + 1
    
19.                 Ar(2) = Ar(2) + arr(i, 2)
    
20.                 dic(Key) = Ar
    
21.             End If
    
22.         Next i
    
23.         Set Rng = .Range("d2")
    
24.         Set Rng = Rng.Resize(dic.Count, 3)
    
25.         Rng.Value = Application.Rept(dic.items, 1)
    
26.     End With
    
27. End Sub

复制代码

wang-way

wang-way

鲜花店练手

1. '' 过程开始 X改为你想要的名字
   
2. Public Sub X()
   
3.     '' 代码从这里开始写
   
4.     '' 声明名为dic的变量
   
5.     Dim dic As Object
   
6.     '' 创建一个字典dic
   
7.     Set dic = CreateObject("Scripting.Dictionary")
   
8.     '' 声明工作簿变量wb和工作表变量sht
   
9.     Dim wb As Workbook, sht As Worksheet
   
10.     '' 设置wb为当前工作簿
    
11.     Set wb = Application.ThisWorkbook
    
12.     '' 设置sht为指定名称的工作表，引号内填写工作表名称
    
13.     Set sht = wb.Worksheets(1)
    
14.     '' 使用With语句，方便对工作表Sht进行多次操作
    
15.     With sht
    
16.         '.Usedrange.Offset(1).clear
    
17.         '' 获取列A中最大数据行的行号
    
18.         eRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    
19.         '' 设置范围从A2开始到Z列的eRow行结束
    
20.         Set Rng = .Range("A3:Z" & eRow)
    
21.         '' 将范围Rng的值赋给数组Arr
    
22.         arr = Rng.Value
    
23.         '' 变量 i 从数组Arr最小索引开始，遍历至其最大索引
    
24.         For i = LBound(arr) To UBound(arr)
    
25.             Key = CStr(arr(i, 4))
    
26.             '' 若字典dic中不存在键key 则执行
    
27.             If Not dic.Exists(Key) Then
    
28.                 '' 创建一个数组Ar，只有一个元素1
    
29.                 '' 若字典dic中不存在键key 则执行
    
30.                 Ar = Array(Key, 1, arr(i, 7))
    
31.                 '' 把键值对 key-Ar 存入数组，key与Ar是一 一对应关系
    
32.                 dic(Key) = Ar
    
33.             Else
    
34.                 '' 若字典dic中存在键key 则执行
    
35.                 '' 取出字典中key对应的数组，赋值给Ar
    
36.                 Ar = dic(Key)
    
37.                 '' 对取出的数组Ar执行一些操作
    
38.                 Ar(1) = Ar(1) + 1
    
39.                 Ar(2) = Ar(2) + arr(i, 7)
    
40.                 '' 再次把键值对 key-Ar 存入数组，key与Ar是一 一对应关系
    
41.                 dic(Key) = Ar
    
42.             End If
    
43.         Next i
    
44.         ' 设置范围为A2单元格
    
45.         Set Rng = .Range("j3")
    
46.         ' 调整范围Rng的大小，行数为字典键值对数量dic.Count，列数为2
    
47.         Set Rng = Rng.Resize(dic.Count, 3)
    
48.         ' 调整范围Rng的大小，行数为字典键值对数量dic.Count，列数为值数组的元素数量
    
49.         Rng.Value = Application.Rept(dic.items, 1)
    
50.     End With
    
51. End Sub
    
52. '' 过程结束
    

复制代码

huangxuejin

wang-way 发表于 2024-6-18 22:31
鲜花店练手

小白的我仅有一声谢谢，谢谢各位老师，用宝贵的时间帮助了我，还是一声谢谢，谢谢