[已解决]跪求各位大大们帮忙做一个宏 好人一生平安 抱拳了老铁

mai998

要求:
自动生成名称为a，b，c，d,e,......的n多个txt文件，并且a.txt的内容为(注意:1,.....为图片a后面的一列的1.2.3.4.5.及数字下同)
1,.....
2,.....
3,.....
4,.....
5,.....
b.txt的内容为(注意:1,.....为图片b后面的一列的1.2.3.4.5.及数字下同)
1,.....
2,.....
3,.....
4,.....
5,.....
   
内容见图片    跪谢  
  附件以上传

最佳答案

月排行榜 / 总排行榜

冥王

2015-1-16 17:49

mai998 发表于 2015-1-16 17:47
我打开之后  按钮根本就不让  按啊   求教啊

你得启用宏啊，生成的文件夹打包发给你算了，看一下结果是不你要的

跳转到最佳答案楼层

蓝桥玄霜

欢迎新会员！
建议上传表格附件来说明问题。不要只上传图片，需要表格文件。
问题应该不难解决的。

ppp710715

a,b,c,d,e每个后面都刚好是5串数字吗？

冥王

最近刚看到这VB语句操作txt

ppp710715

1. Sub test1()
   
2.     rw = Cells(Rows.Count, 2).End(3).Row
   
3.     brr = Range("a1:a" & rw)
   
4.     Columns("A:A").Select
   
5.     Selection.SpecialCells(xlCellTypeBlanks).Select
   
6.     Selection.FormulaR1C1 = "=R[-1]C"
   
7.     arr = Range("a1:b" & rw)
   
8.     For i = 1 To UBound(arr)
   
9.       k = arr(i, 1)
   
10.       If i = 1 Then
    
11. 100:  Open ThisWorkbook.Path & k & ".txt" For Append As #2
    
12.       Print #2, arr(i, 2)
    
13.       ElseIf arr(i, 1) = arr(i - 1, 1) Then
    
14.         Print #2, arr(i, 2)
    
15.        Else
    
16.        Close #2
    
17.        GoTo 100
    
18.       End If
    
19.     Next
    
20.     Close #2
    
21.     [a1].Resize(rw) = brr
    
22.     MsgBox "操作完毕！"
    
23. End Sub

复制代码

ppp710715

test99.rar (7.06 KB, 下载次数: 6)

2015-1-16 14:26 上传

点击文件名下载附件

mai998

ppp710715 发表于 2015-1-16 13:12
a,b,c,d,e每个后面都刚好是5串数字吗？

是的  大神 每个后面固定5组数字

mai998

冥王 发表于 2015-1-16 13:25
最近刚看到这VB语句操作txt

运行错误啊

mai998

ppp710715 发表于 2015-1-16 14:26

你好 你这个 只能生成4个吗  我要生成很多的文件 麻烦给改改

mai998

蓝桥玄霜 发表于 2015-1-16 13:01
欢迎新会员！
建议上传表格附件来说明问题。不要只上传图片，需要表格文件。
问题应该不难解决的。

谢谢 老大  我的附件已上传