VBA实现循环多行辅助

fengdiyelx

就是将某10行数 重复复制，但是要根据最大序号停止

如附件

ww87725244

1. Sub aa()
   
2. Dim ar, i&, ar1()
   
3. With Sheet1
   
4.     ar = [f2:f11]
   
5.     i = 1
   
6.     Do
   
7.         ReDim Preserve ar1(1 To 1, 1 To i)
   
8.         If i Mod 10 = 0 Then
   
9.             ar1(1, i) = ar(10, 1)
   
10.         Else
    
11.             ar1(1, i) = ar(i Mod 10, 1)
    
12.         End If
    
13.         i = i + 1
    
14.     Loop Until i = .UsedRange.Rows.Count
    
15.     .[b2].Resize(UBound(ar1, 2), 1) = Application.Transpose(ar1)
    
16. End With
    
17. End Sub
    

复制代码

longming3

Sub aa()
    v = Range("a65536").End(3).Row - 1
    br = [f2:f11]
    ReDim ar(1 To v, 1 To 1)
    For i = 1 To v
        k = k + 1
        ar(i, 1) = br(k, 1)
        If k = 10 Then k = 0
    Next
    [c2].Resize(v) = ar
End Sub

chaohuahch

longming3 发表于 2018-7-29 12:29
Sub aa()
    v = Range("a65536").End(3).Row - 1
    br = [f2:f11]

If k = 10 Then k = 0 这一句，很赞。