[已解决]VBA：多列数值倒序合并成一列

lijian8003

现有多列数据，欲倒序合并成一列，用宏代码如何实现？
示例：
I列   J列  K列  L列         

01	11	21	31
02	12	22	32
03	13	23	33
04	14	24	34
05	15	25	35
06	16	26	36
07	17	27	37
08	18	28	38
09	19	29	39
10	20	30	40

倒序合并成一列，写入N列

10 20 30  40
09 19 29 39
08 18 28 38
07 17 27 37
06 16 26 36
05 15 25 35
04 14 24 34
03 13 23 33
02 12 22 32
01 11 21 31

最佳答案

月排行榜 / 总排行榜

心正意诚身修

2021-10-27 12:09

1. Sub 数据合并()
   
2. Dim ARR, BRR(), K As Integer, M As Integer, L As Integer, S As Byte
   
3. L = Range("I65536").End(xlUp).Row
   
4. ARR = Range("I7:L" & L)
   
5. ReDim BRR(1 To 1000)
   
6.     For K = UBound(ARR) To 1 Step -1
   
7.         M = M + 1
   
8.         For S = 1 To UBound(ARR, 2)
   
9.             BRR(M) = BRR(M) & ARR(K, S) & " "
   
10.         Next
    
11.     Next
    
12. Range("N7").Resize(M, 1) = Application.Transpose(BRR)
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

心正意诚身修

1. Sub 数据合并()
   
2. Dim ARR, BRR(), K As Integer, M As Integer, L As Integer, S As Byte
   
3. L = Range("I65536").End(xlUp).Row
   
4. ARR = Range("I7:L" & L)
   
5. ReDim BRR(1 To 1000)
   
6.     For K = UBound(ARR) To 1 Step -1
   
7.         M = M + 1
   
8.         For S = 1 To UBound(ARR, 2)
   
9.             BRR(M) = BRR(M) & ARR(K, S) & " "
   
10.         Next
    
11.     Next
    
12. Range("N7").Resize(M, 1) = Application.Transpose(BRR)
    
13. End Sub
    

复制代码

cui26896

看错了！见谅！！！