作者：绿色风
分类：
时间：2022-08-17
浏览：124
楼主
水星钓鱼 |
Q：如何用字典合并同类项，并将对应的项目用分隔符连接起来？
A：如下图所示：
主要利用数组和字典- Sub xyf()
- Dim oDic As Object
- Dim i As Long
- Dim j As Long
- Dim arr
- Set oDic = CreateObject("Scripting.Dictionary")
- j = Range("A65536").End(xlUp).Row
- arr = Application.InputBox("请选择要执行的区域", "示例", Type:=64)
- If IsArray(arr) Then
- With oDic
- For i = 1 To j
- If .Exists(arr(i, 1)) Then
- .Item(arr(i, 1)) = .Item(arr(i, 1)) & "/" & arr(i, 2)
- Else: .Add arr(i, 1), arr(i, 2)
- End If
- Next
- Range("F2:F" & UBound(.keys) + 2) = WorksheetFunction.Transpose(.keys)
- Range("g2").EntireColumn.NumberFormat = "@"
- Range("g2:G" & UBound(.items) + 2) = WorksheetFunction.Transpose(.items)
- End With
- End If
- End Sub
|
2楼
xyf2210 |
学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一