[已解决]如何把多列数据整合到一列上？不是连接

gumingjian

如何把多列数据整合到一列上？不是连接，而是顺序的输入到一列上。请高手帮忙写段代码，因为实际的数据远不止这些，谢谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-4-2 22:43

1. Sub test()
   
2.     Dim arr, result()
   
3.     Dim lCount&, i&, j&
   
4.     arr = Range("a1").CurrentRegion
   
5.     If Not IsArray(arr) Then
   
6.         MsgBox "A1单元格区域数据不足"
   
7.         Exit Sub
   
8.     End If
   
9.     ReDim result(1 To (UBound(arr) - 1) * UBound(arr, 2), 1 To 1)
   
10.     For i = 1 To UBound(arr, 2)
    
11.         For j = 2 To UBound(arr)
    
12.             lCount = lCount + 1
    
13.             result(lCount, 1) = arr(j, i)
    
14.         Next
    
15.     Next
    
16.     Range("f2:f" & Rows.Count).ClearContents
    
17.     Range("f2").Resize(lCount).Value = result
    
18.     MsgBox "完成"
    
19. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

楼主是要公式还是代码？

冠军欧洲2010

.......

gumingjian

hwc2ycy 发表于 2014-4-2 16:32
楼主是要公式还是代码？

代码，谢谢

hwc2ycy

1. Sub test()
   
2.     Dim arr, result()
   
3.     Dim lCount&, i&, j&
   
4.     arr = Range("a1").CurrentRegion
   
5.     If Not IsArray(arr) Then
   
6.         MsgBox "A1单元格区域数据不足"
   
7.         Exit Sub
   
8.     End If
   
9.     ReDim result(1 To (UBound(arr) - 1) * UBound(arr, 2), 1 To 1)
   
10.     For i = 1 To UBound(arr, 2)
    
11.         For j = 2 To UBound(arr)
    
12.             lCount = lCount + 1
    
13.             result(lCount, 1) = arr(j, i)
    
14.         Next
    
15.     Next
    
16.     Range("f2:f" & Rows.Count).ClearContents
    
17.     Range("f2").Resize(lCount).Value = result
    
18.     MsgBox "完成"
    
19. End Sub

复制代码