[已解决]VBA：数据竖排转换为横排，并导出到txt文本

lijian8003

附件中有数据：
1 2 3 4 0
2 3 4 5 1
3 4 5 6 2
4 5 6 7 3
5 6 7 8 4
6 7 8 9 5
7 8 9 3 6
   
欲将A列-E列竖排数据，转换为横排数据：   
   
1234567   
2345678   
3456789   
4567893   
0123456   
   
然后，导入D:/数据/1.txt   
这样的宏代码，如何用数组形式表示？   

最佳答案

月排行榜 / 总排行榜

dsmch

2014-12-10 16:20

1. Sub Macro1()
   
2. Dim arr, i&, j%
   
3. arr = Range("a1").CurrentRegion
   
4. Open "D:/数据/1.txt" For Output As #1
   
5.     For j = 1 To UBound(arr, 2)
   
6.         p = ""
   
7.         For i = 1 To UBound(arr)
   
8.             p = p & arr(i, j)
   
9.         Next
   
10.         Print #1, p
    
11.     Next
    
12. Close #1
    
13. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, i&, j%
   
3. arr = Range("a1").CurrentRegion
   
4. Open "D:/数据/1.txt" For Output As #1
   
5.     For j = 1 To UBound(arr, 2)
   
6.         p = ""
   
7.         For i = 1 To UBound(arr)
   
8.             p = p & arr(i, j)
   
9.         Next
   
10.         Print #1, p
    
11.     Next
    
12. Close #1
    
13. End Sub

复制代码

ghostjiao

1. Sub demo()
   
2.     Dim fso As Object, txt, str$, arr, i%, j%
   
3.     Set fso = CreateObject("scripting.filesystemobject")
   
4.     Set txt = fso.CreateTextFile("D:/数据/1.txt")
   
5.     arr = Sheet1.Range("a1").CurrentRegion.Value
   
6.     For j = 1 To UBound(arr, 2)
   
7.         For i = 1 To UBound(arr)
   
8.             str = str & arr(i, j)
   
9.         Next
   
10.         txt.WriteLine str
    
11.         str = ""
    
12.     Next
    
13. End Sub

复制代码