生成循环数的代码求助

demonimissyou

Sub 循环()
Dim i, j, k, L, n
i = Application.InputBox("输入需要填充的行数", "输入", , , , , , 1)
For j = 2 To i Step 5
Cells(j, 1) = 1
Next
For k = 3 To i Step 5
Cells(k, 1) = 2
Next
For L = 4 To i Step 5
Cells(L, 1) = 3
Next
For m = 5 To i Step 5
Cells(m, 1) = 4
Next
For n = 6 To i Step 5
Cells(n, 1) = 5
Next
End Sub

笨鸟飞不高

Function GetLoop(m As Long, n As Long)
    Dim i&, r&
    ReDim arr(1 To m, 1 To 1)
    Do
        For i = 1 To n
            r = r + 1
            If r > m Then Exit Do
            arr(r, 1) = i
        Next
    Loop
    GetLoop = arr
End Function

修改一个！！

准提部林

ReDim arr(1 To 100, 0)
For i = 1 To UBound(arr)
     arr(i, 0) =( i - 1) Mod 5 +1
Next i
[a2].resize(ubound(arr))=arr