[已解决]如何快速使得数组中的数据按照正确结果I列形式向下排列（6列转换为1列）？

zhongyong6899

请教高手：
利用EXCEL功能，如何快速使得数组中的数据按照正确结果I列形式向下排列（6列转换为1列）？万分感谢！！！

最佳答案

月排行榜 / 总排行榜

雪舞子

2016-1-25 14:54

1. Sub test()
   
2.     Dim arr, brr(), ii&, j&, n&
   
3.     arr = Range("b2").CurrentRegion
   
4.     ReDim brr(1 To (UBound(arr) - 1) * UBound(arr, 2), 1 To 1)
   
5.     For i = 2 To UBound(arr)
   
6.         For j = 1 To UBound(arr, 2)
   
7.             n = n + 1
   
8.             brr(n, 1) = arr(i, j)
   
9.         Next
   
10.     Next
    
11.     [k2].Resize(UBound(brr)) = brr
    
12. End Sub

复制代码

如何快速使得数组中的数据按照正确结果I列形式向下排列（6列转换为1列）？.rar (14.16 KB, 下载次数: 8)

2016-1-25 14:54 上传

点击文件名下载附件

跳转到最佳答案楼层

雪舞子

1. Sub test()
   
2.     Dim arr, brr(), ii&, j&, n&
   
3.     arr = Range("b2").CurrentRegion
   
4.     ReDim brr(1 To (UBound(arr) - 1) * UBound(arr, 2), 1 To 1)
   
5.     For i = 2 To UBound(arr)
   
6.         For j = 1 To UBound(arr, 2)
   
7.             n = n + 1
   
8.             brr(n, 1) = arr(i, j)
   
9.         Next
   
10.     Next
    
11.     [k2].Resize(UBound(brr)) = brr
    
12. End Sub

复制代码

如何快速使得数组中的数据按照正确结果I列形式向下排列（6列转换为1列）？.rar (14.16 KB, 下载次数: 8)

2016-1-25 14:54 上传

点击文件名下载附件