请问各位大虾如何在EXCEL中每行下面插入相同的几行数据？

偶是菜鸟，哪位请赐教，不胜感激！！！！！！！！

如下表：
姓名 学号
张一 00091474638
赵三 00014217163
李三 00073636301
王九 00053122632
朱成 00026737398
张一 00009776564
赵三 00065996694
张一 00038098577
赵三 00040179099
王五 00071495001
李三 00011518542
王九 00000439297
朱成 00004226479
张一 00073042964

要插入表头： 姓名 学号
将空白列输入系数：以c2输入数字1，c3设置公式=c2+1,以下单元格向下填充。如下

姓名 学号 索引
张一 00091474638 1
赵三 00014217163 2
李三 00073636301 3
王九 00053122632 4
朱成 00026737398 5
张一 00009776564 6
赵三 00065996694 7
张一 00038098577 8
赵三 00040179099 9
王五 00071495001 10
李三 00011518542 11
王九 00000439297 12
朱成 00004226479 13
张一 00073042964 14

再复制与数据同样多的表头到空白行，如下：
姓名 学号 索引
张一 00091474638 1
赵三 00014217163 2
李三 00073636301 3
王九 00053122632 4
朱成 00026737398 5
张一 00009776564 6
赵三 00065996694 7
张一 00038098577 8
赵三 00040179099 9
王五 00071495001 10
李三 00011518542 11
王九 00000439297 12
朱成 00004226479 13
张一 00073042964 14
姓名 学号
姓名 学号
姓名 学号
姓名 学号
姓名 学号
姓名 学号
姓名 学号
姓名 学号
姓名 学号
姓名 学号
姓名 学号
姓名 学号
姓名 学号
姓名 学号
在第一行表头C(行号)单元格输入 1.5
c(行号+1）单元格（也就是行号下面的单元格输入=c(行号)+1
如此表头的单元格是C16,在C16输入1.5，在C17输入公式 =c16+1
表如下：
姓名 学号 索引
张一 00091474638 1
赵三 00014217163 2
李三 00073636301 3
王九 00053122632 4
朱成 00026737398 5
张一 00009776564 6
赵三 00065996694 7
张一 00038098577 8
赵三 00040179099 9
王五 00071495001 10
李三 00011518542 11
王九 00000439297 12
朱成 00004226479 13
张一 00073042964 14
姓名 学号 1.5
姓名 学号 2.5
姓名 学号 3.5
姓名 学号 4.5
姓名 学号 5.5
姓名 学号 6.5
姓名 学号 7.5
姓名 学号 8.5
姓名 学号 9.5
姓名 学号 10.5
姓名 学号 11.5
姓名 学号 12.5
姓名 学号 13.5
姓名 学号 14.5
姓名 学号 15.5

之后再按索引排序，排序之后如下表：

姓名 学号 索引
张一 00091474638 1
姓名 学号 1.5
赵三 00014217163 2.5
姓名 学号 3.5
李三 00073636301 4.5
姓名 学号 5.5
王九 00053122632 6.5
姓名 学号 7.5
朱成 00026737398 8.5
姓名 学号 9.5
张一 00009776564 10.5
姓名 学号 11.5
赵三 00065996694 12.5
姓名 学号 13.5
张一 00038098577 14.5
姓名 学号 15.5
赵三 00040179099 16.5
姓名 学号 17.5
王五 00071495001 18.5
姓名 学号 19.5
李三 00011518542 20.5
姓名 学号 21.5
王九 00000439297 22.5
姓名 学号 23.5
朱成 00004226479 24.5
姓名 学号 25.5
张一 00073042964 26.5
姓名 学号 27.5
姓名 学号 28.5

再删除多余表头就OK了.

此工作完成（有多行表头且无合并单元格的话，再设置一个系数，或是1.6，反正比以前的系数大就OK，这样排序才会正确。）

不过，如果表头有多行的话，就会出现错误了
请参考我以前的回答：

最简单的方法，最实用的方法，最可行的方法
用宏

使用宏前请备份表格。以防设置行列数不准造成误操作。

Sub aa()
firstrow = 1 '表头在第几行
rowno = 1 '表头的数量，可能有2行或者3行
isblankrange = 3 ‘判断的依据，以哪列不为空为准。选择一列数据都不为空的
starrange = firstrow+rowno '数据开始行,如果不等于表头加表头行数，请输入
Do While Cells(starrange, isblankrange).Value <> 0
Rows(Trim(firstrow) & ":" & Trim(firstrow + rowno - 1)).Select
Selection.Copy
Rows(starrange).Select
Selection.Insert Shift:=xlDown
starrange = starrange + 1 + rowno
Loop
End Sub

修改前面变量属性后，执行就行了。

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/fppspqpp.html