作者：绿色风
分类：
时间：2022-08-17
浏览：133
楼主
liuguansky |
Q:如何汇总次数并合并单元格？由左边数据 ，得到右边的结果。
A:用如下代码可以实现：
- Sub justsoso()
- Dim arr, brr(), d As Object, i&, t
- arr = Range("a3:a" & Cells(Rows.Count, 1).End(3).Row)
- Set d = CreateObject("scripting.dictionary")
- ReDim brr(1 To UBound(arr, 1), 1 To 2)
- For i = 1 To UBound(arr, 1)
- If Not d.Exists(arr(i, 1)) Then
- d(arr(i, 1)) = i
- brr(i, 1) = 1
- brr(i, 2) = arr(i, 1)
- Else
- brr(d(arr(i, 1)), 1) = brr(d(arr(i, 1)), 1) + 1
- End If
- Next
- d("") = i
- t = d.items
- Range("d:e").Clear
- Range("d2:e2") = Array("个数", "类别")
- Range("d3").Resize(UBound(arr, 1), 2) = brr
- For i = 0 To d.Count - 2
- Cells(t(i) + 2, 4).Resize(t(i + 1) - t(i)).Merge
- Cells(t(i) + 2, 5).Resize(t(i + 1) - t(i)).Merge
- Next
- End Sub
 桌面.rar
|
2楼
い卋玑┾宝珼 |
花花好棒
 |
3楼
芐雨 |
 学习了 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一