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

Question

把
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
排列成
1 9 17 25 33
2 10 18 26 34
3 11 19 27 35
4 12 20 28 36
5 13 21 29 37
6 14 22 30 38
7 15 23 31 39
8 16 24 32 40
这40个序号代表40个姓名.
204773001 王玉颖
204773002 陈广璐
204773003 陈 元
204773004 陈 琪
204773005 陈 磊
204773006 陈思云
204773007 朱晓妍
204773008 李祺文
204773009 伏琳娥
204773010 林 怡
204773011 张峥怡
204773012 张斯偞
204773013 张卢毅
204773014 黄曹磊
204773016 石龚一
204773017 许子豪
204773018 张 恒
204773019 李 腾
204773020 严天翔
204773021 周易晨
204773022 杨雍欣
204773023 杨成基
204773024 姜晓栋
204773130 陈星宇
204773027 姚莫邪
204773028 钱 超
204773029 高晓峰
204773030 潘 俊
204773031 薛晓鸣
204773131 成 俐
204773132 刘天逸
204773140 李逸青
204773032 马佩莹
204773133 郭 怡
204773034 成璐克
204773035 陆 怡
204773036 张俊婷
204773037 李思瑶
204773038 李晓玲
204773039 沈海莉
排成5X8
204773001王玉颖别 204773009伏琳娥 204773018张恒 .........

Answer 1

看看这个:

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

Answer 2

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

Answer 3

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

公式向下、向右复制。本回答被提问者采纳

Answer 4

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