[已解决]如何将一行数据拆成等额的多行

雄鹰2013

如何将一行数据拆成等额的多行

最佳答案

月排行榜 / 总排行榜

dsmch

2015-1-4 16:23

…………

跳转到最佳答案楼层

baksy

A5公式，横拉、下拉；
=OFFSET($A$1,,(ROW(A1)-1)*10+COLUMN()-1)

baksy

或
=INDIRECT("r1c"&(ROW(A1)-1)*10+COLUMN(),)

dsmch

…………

grf1973

1. Sub tt()
   
2.     arr = Range([a1], [iv1].End(xlToLeft))
   
3.     ReDim brr(Int(UBound(arr, 2) / 10) + 1, 1 To 10)
   
4.     For i = 1 To UBound(arr, 2)
   
5.         If arr(1, i) <> "" Then
   
6.             k = k + 1
   
7.             p = Int((k - 0.01) / 10) + 1
   
8.             q = k Mod 10: If q = 0 Then q = 10
   
9.             brr(p, q) = arr(1, i)
   
10.         End If
    
11.     Next
    
12.     [a12].Resize(p, 10) = brr
    
13. End Sub
    

复制代码