这种奇特的等差数列如何写？

c81

 这种奇特的等差数列如何写？

已知A列有n个自然数，要求把它分成m组（m人工输入），n／m不能整除的情况按其模+1，比如下图例B组是按m＝3来的，然后如图那样的等差数列产生在B列。（颜色不要，我只是方便大家阅读）

我在别的地方套了个得总行的vba

Sub CountRows()

 x = ActiveCell.Row
 y = ActiveCell.Column
 n= 0

 Do While Cells(x, y).Value <> ""
x = x + 1
n = n+ 1
 Loop

End Sub

然后就写不来了，请大家帮个忙，谢谢。

[此贴子已经被作者于2006-7-20 0:16:24编辑过]

northwolves

Sub CountRows()
Application.ScreenUpdating = False
Dim n As Long, i As Long, j As Long, k As Long, arr
n = Range("a65536").End(xlUp).Row
arr = Range("a1:a" & n)
m = InputBox("please enter m", , 3)
For i = 1 To m
For j = i To n Step m
k = k + 1
arr(k, 1) = j
Next
Next
Range("b1:b" & n) = arr
Application.ScreenUpdating = True
End Sub

c81

多谢版主快手！