[已解决]用VBA数组把A列拆分结果保存D列

laoau138

用VBA数组把A列拆分结果保存D列

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-19 12:45

1. Sub aaa()
   
2. Dim arr, brr, i&, j&, n&, r&
   
3. arr = [a1].CurrentRegion
   
4. n = UBound(arr)
   
5. ReDim brr(1 To n * 6 - 25, 1 To 1)
   
6. For i = 1 To n - 4
   
7.   For j = i To i + 4
   
8.     r = r + 1
   
9.     brr(r, 1) = arr(j, 1)
   
10.   Next j
    
11.   r = r + 1
    
12. Next i
    
13. [d1].Resize(UBound(brr)) = brr
    
14. End Sub

复制代码

跳转到最佳答案楼层

Excel学徒123

1. Sub test()
   
2.     Dim arrSrc, arrRst()
   
3.     Dim lrow&
   
4.     Dim iCnt%, irow%
   
5.     arrSrc = Range("a1").CurrentRegion.Value
   
6.     For lrow = 1 To UBound(arrSrc) - 4
   
7.         For irow = lrow To lrow + 4
   
8.             iCnt = iCnt + 1
   
9.             ReDim Preserve arrRst(1 To 1, 1 To iCnt)
   
10.             arrRst(1, iCnt) = arrSrc(irow, 1)
    
11.         Next
    
12.         iCnt = iCnt + 1
    
13.         ReDim Preserve arrRst(1 To 1, 1 To iCnt)
    
14.         arrRst(1, iCnt) = ""
    
15.     Next
    
16.     Range("e1").Resize(iCnt, 1) = Application.Transpose(arrRst)
    
17. End Sub
    

复制代码

一直都是求助，一点都没进步？？？？？？

大灰狼1976

1. Sub aaa()
   
2. Dim arr, brr, i&, j&, n&, r&
   
3. arr = [a1].CurrentRegion
   
4. n = UBound(arr)
   
5. ReDim brr(1 To n * 6 - 25, 1 To 1)
   
6. For i = 1 To n - 4
   
7.   For j = i To i + 4
   
8.     r = r + 1
   
9.     brr(r, 1) = arr(j, 1)
   
10.   Next j
    
11.   r = r + 1
    
12. Next i
    
13. [d1].Resize(UBound(brr)) = brr
    
14. End Sub

复制代码