小白求助，怎样用vba来实现excel的数据自动生成txt文件

鲨鱼辣椒789

各位大神好，请教一下怎样用vba来自动完成数据整理
需求：需要用D列的编号分别生成并以编号命名的txt文件，txt文件里面的内容就是A列的数据，我用笨办法手动做了一遍，附件内excel文件是原始数据，txt文件就是我想要的结果，求助各位大神可否有代码能实现自动化

WANT-T

有代码能实现自动化，每个月都在用的一个工具，将1500Wvip用户按地市拆到txt中，每50万一个文件，你这点数据量太小了，自己扣点代码拿去改改用就可以了！核心代码就是中间部分！

鲨鱼辣椒789

WANT-T 发表于 2023-7-12 09:20
有代码能实现自动化，每个月都在用的一个工具，将1500Wvip用户按地市拆到txt中，每50万一个文件，你这点数 ...

我这个量确实是比较少，一周可能也就最多几百个，可否详细指点一点我应该怎么修改代码，刚开始接触vba不太懂，谢谢老哥了

WANT-T

鲨鱼辣椒789 发表于 2023-7-12 09:24
我这个量确实是比较少，一周可能也就最多几百个，可否详细指点一点我应该怎么修改代码，刚开始接触vba不 ...

首先，前面读取数据部分改成从excel里读取；
其次，写入部分直接照搬；
最后，两部分代码攒一下，看看有没有bug；
以上三步完成，可解决你的问题

鲨鱼辣椒789

WANT-T 发表于 2023-7-12 09:27
首先，前面读取数据部分改成从excel里读取；
其次，写入部分直接照搬；
最后，两部分代码攒一下，看看 ...

好的，我先尝试一下

LIUZHU

每个编号只有一行数据，还是有多行数据？

鲨鱼辣椒789

LIUZHU 发表于 2023-7-12 09:32
每个编号只有一行数据，还是有多行数据？

有些编号只有一行数据，也有些编号有多行数据，不固定

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim mypath$, myname$
   
5.     Dim d As Object
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     With Worksheets("sheet1")
   
8.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
9.         arr = .Range("a2:e" & r)
   
10.         For i = 1 To UBound(arr)
    
11.             If Not d.exists(arr(i, 4)) Then
    
12.                 Set d(arr(i, 4)) = CreateObject("scripting.dictionary")
    
13.             End If
    
14.             d(arr(i, 4))(i) = Empty
    
15.         Next
    
16.     End With
    
17.     For Each aa In d.keys
    
18.         ss = Empty
    
19.         For Each bb In d(aa).keys
    
20.             ss = ss & vbLf & arr(bb, 1)
    
21.         Next
    
22.         Open ThisWorkbook.Path & "" & aa & ".txt" For Output As #1
    
23.         Print #1, Mid(ss, 2)
    
24.         Close #1
    
25.     Next
    
26. End Sub
    

复制代码

chxw68

详见附件。

鲨鱼辣椒789

chxw68 发表于 2023-7-12 09:41
详见附件。

太强了老哥，非常感谢