[已解决]求助

水木

求助：排序.rar (8.71 KB, 下载次数: 11)

2017-4-20 14:26 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

Excel学徒123

2017-4-20 14:39

公式的

1. =OFFSET($A$2,INT((ROW(A1)-1)/5),MOD(ROW(A5),5))

复制代码

数据量大就用代码吧

1. 
   
2. Sub SortsData()
   
3.     Dim arrSrc, arrRst()
   
4.     Dim icol%
   
5.     Dim lrow&, lCnt&
   
6.     arrSrc = Range("a2:e" & Cells(Rows.Count, 1).End(3).Row).Value
   
7.     For lrow = 1 To UBound(arrSrc)
   
8.         For icol = 1 To UBound(arrSrc, 2)
   
9.             lCnt = lCnt + 1
   
10.             ReDim Preserve arrRst(1 To lCnt)
    
11.             arrRst(lCnt) = arrSrc(lrow, icol)
    
12.         Next
    
13.     Next
    
14.     Range("h2").Resize(lCnt) = Application.Transpose(arrRst)
    
15. End Sub
    

复制代码

跳转到最佳答案楼层

Excel学徒123

公式的

1. =OFFSET($A$2,INT((ROW(A1)-1)/5),MOD(ROW(A5),5))

复制代码

数据量大就用代码吧

1. 
   
2. Sub SortsData()
   
3.     Dim arrSrc, arrRst()
   
4.     Dim icol%
   
5.     Dim lrow&, lCnt&
   
6.     arrSrc = Range("a2:e" & Cells(Rows.Count, 1).End(3).Row).Value
   
7.     For lrow = 1 To UBound(arrSrc)
   
8.         For icol = 1 To UBound(arrSrc, 2)
   
9.             lCnt = lCnt + 1
   
10.             ReDim Preserve arrRst(1 To lCnt)
    
11.             arrRst(lCnt) = arrSrc(lrow, icol)
    
12.         Next
    
13.     Next
    
14.     Range("h2").Resize(lCnt) = Application.Transpose(arrRst)
    
15. End Sub
    

复制代码