作者：绿色风
分类：
时间：2022-08-17
浏览：126
楼主
wise |
Q:如何使用字典统计参加不同次数的人？
A：ALT+F11→插入模块→模块输入以下代码：
- Sub test()
- Dim Arr, Brr(), Dic As Object, i&, j&, ArrB, ArrC, s&
- Set Dic = CreateObject("scripting.dictionary")
- Arr = Range("A2:F" & Cells(Rows.Count, 1).End(xlUp).Row)
- '定义数组的区域
- ReDim Brr(1 To UBound(Arr), 1 To 4)
- '重新定义数组Brr
- For i = LBound(Arr) To UBound(Arr)
- '循环数组的行
- For j = 2 To 6
- '循环数组的列
- Dic(Arr(i, j)) = Dic(Arr(i, j)) + 1
- '把各科的名字添加到字典中
- Next j
- ArrB = Dic.keys
- ArrC = Dic.items
- '分别把字典的keys及items赋予给ArrB及ArrC数组
- For j = 0 To Dic.Count - 1
- '循环数组的count值
- s = ArrC(j)
- '把各个数组的item值赋予给s
- If s > 4 Then s = 4
- '如果s值大于4，则赋予其值为4
- If Len(Brr(i, s)) Then
- Brr(i, s) = Brr(i, s) & " " & ArrB(j)
- Else
- Brr(i, s) = ArrB(j)
- End If
- Next j
- Dic.RemoveAll
- '清空字典
- Next i
- Range("H2:K" & ActiveSheet.UsedRange.Rows.Count).ClearContents
- Range("H2").Resize(i - 1, 4) = Brr
- End Sub
 查找重复值.rar
|
2楼
bluexuemei |
字典+数组结合的好实例,学习! |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一