[已解决]增加要求-----提取表格指定位置的数据到文本里的VBA代码

学习学习vba

附件下载: 20141124.rar (3.03 KB, 下载次数: 3)

2014-11-24 10:07 上传

点击文件名下载附件

先感谢dsmch老师的解答
原帖子在
http://www.excelpx.com/thread-334886-1-1.html

在此基础上,延伸一下.

延伸的地方,如图所示...

要代码实现::提取完对应的G列数据后,继续提取H列的数据,
比如B列的最后一列的数据09 06 11 03 02
09,提取完与之对应的G10::ty后,再继续提取H10的9
最后数据依次每行写入指定的文本...


附件 和原帖一样. 求助1,求助2

最佳答案

月排行榜 / 总排行榜

dsmch

2014-11-24 12:16

………………

跳转到最佳答案楼层

学习学习vba

希望dsmch老师 能再次帮忙解答

希dsmch老师能看得明白..


谢谢

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, ar, br, d, d2, i&, j%
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Set d2 = CreateObject("scripting.dictionary")
   
5. arr = Sheet1.Range("b1").CurrentRegion
   
6. brr = Sheet1.[e2:g25]
   
7. For i = 1 To UBound(brr)
   
8.     s = IIf(i < 12, 1, 2)
   
9.     d(brr(i, 1) & "," & s) = brr(i, 3)
   
10. Next
    
11. ar = Sheet2.Range("b1").CurrentRegion
    
12. br = Sheet2.[k2:m25]
    
13. For i = 1 To UBound(br)
    
14.     s = IIf(i < 12, 1, 2)
    
15.     d2(br(i, 1) & "," & s) = br(i, 3)
    
16. Next
    
17. n = UBound(arr)
    
18. n2 = UBound(ar)
    
19. x = Split(arr(n, 1))
    
20. Open ThisWorkbook.Path & "\1.txt" For Output As #1
    
21.     For j = 1 To 2
    
22.         For i = 0 To UBound(x)
    
23.             Print #1, d(x(i) & "," & j)
    
24.         Next
    
25.     Next
    
26.     For j = 1 To 2
    
27.         For i = 1 To UBound(ar, 2)
    
28.             Print #1, d2(ar(n2, i) & "," & j)
    
29.         Next
    
30.     Next
    
31. Close #1
    
32. End Sub

复制代码

学习学习vba

dsmch 发表于 2014-11-24 10:46

老师好...

测试 代码1结果...

1.txt内容

ty
域
op
测
取
试
提
域
gh
df
试
op
ui
区
qw
jk
域
区
l;
取

结果不对 哦...H列 没提取到.

学习学习vba

看代码...意思好像是 把  表1 表2的 一次性提取出来了...

学习学习vba

原先的 求助1的代码 提取到G列的结果为

er
区
试
ui
提
测
l;
jk
区
as

现在代码要提取多一列 H列的数据..
那么就要多加多一列的结果

2
3
6
9
11
12
13
16
19
21

当然 提取到的顺序可以不一样..结果对就行....


最后 求助1的代码 得到的结果1.txt的内容 应该为内容顺序不一样没关系,最终提取的结果一样就行)

er
区
试
ui
提
测
l;
jk
区
as
2
3
6
9
11
12
13
16
19
21

dsmch

结果并为一行

学习学习vba

dsmch老师好...

首先 代码 提取的数据 并为一行的话,结果是对的.
但我不好处理并行的数据
结果 能一个数据一行吗.?
不要并未一行的,,,
结果文本,类似下面的.
再次麻烦老师了

ty
9
域
6
op
11
测
3
取
2
试
29
提
26
域
31
gh
23
df
22

dsmch

………………

学习学习vba

dsmch 发表于 2014-11-24 12:16
………………

dsmch老师好...


代码运算结果没问题//

1.txt的内容  H列的数据 前后都有空格..


我自己用Replace处理了一下...

OK了


谢谢 dsmch老师