Excel中如何把40个序号排列成5X8的格式?

Excel中如何把40个序号排列成5X8的格式?

=IF(ROW(A1)>8,"",OFFSET($A$1,ROW(A1)-1+(COLUMN(A1)-1)*8,0)&"")

公式向下、向右复制。

输入1 2 9 10 选中A1:B2向右拉5列，松开，向下拉8列，ok

先输入两行数字
1 9 17 25 33
2 10 18 26 34
选中这两行单元格后拖动填充柄到第8行

看看这个:
Sub test()
Dim i As Integer
Dim j As Integer
Dim a As Integer
a = 1
For i = 1 To 5
    For j = 1 To 8
        Cells(j, i).Value = a         
        a = a + 1
    Next
Next
End Sub
如果变量a不是数值,那么就应该把a换成a所在的数组或单元格的位置
单元格的代码是:cells(a,1).value,意思是第一列第a行的值,当然也可能是第1行第a列的值:cells(1,a).value,当然了,实际情况可能并不在第一行,第一列,那么也可以把1换成2,3,4......等等,总之就是a所在的位置就对了 
比如下面的例子:
Sub test()
Dim i As Integer
Dim j As Integer
Dim a As Integer
a = 1
For i = 1 To 5
    For j = 1 To 8
        Cells(j, i).Value = Cells(a,7).value         
        a = a + 1
    Next
Next
End Sub