作者：绿色风
分类：
时间：2022-08-17
浏览：116
楼主
kevinchengcw |
Q: 如何用vba代码根据A列内容合并输出B列数据到以A列命名的文本文件中？
A: 代码如下：
- Sub test()
- Dim Dic As Object, Arr, N&
- Arr = Range("a1:b" & Cells(Rows.Count, 1).End(3).Row) '获取数据源区域内容到数组中
- Set Dic = CreateObject("scripting.dictionary") '创建字典项目
- For N = LBound(Arr) To UBound(Arr) '循环数组各项
- If Arr(N, 1) <> "" Then '如果数据非空,则
- If Dic.exists(CStr(Arr(N, 1))) Then '如果存在该字典项,则通过回车换行符分隔串接B列数据
- Dic(CStr(Arr(N, 1))) = Dic(CStr(Arr(N, 1))) & vbCrLf & Arr(N, 2)
- Else
- Dic.Add CStr(Arr(N, 1)), Arr(N, 2) '不存在则添加该字典项
- End If
- End If
- Next N
- Arr = Dic.keys '提取出字典的key
- For N = LBound(Arr) To UBound(Arr) '循环字典各key
- Open ThisWorkbook.Path & "\" & Arr(N) & ".txt" For Output As #1 '在文件目录下创建与key同名的文本文件
- Print #1, Dic(Arr(N)) '输出item内容到该文本文件中
- Close #1 '关闭文件
- Next N
- Set Dic = Nothing '完成后清空字典项目
- End Sub
详见附件及素材源帖.
 test.rar
|
2楼
水吉果果 |
学习** |
3楼
icenotcool |
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一