如何在excel中多行的每行下添加多行。如原来有100行已输入数据,现在我要在每行下增加5行空白行。

来源:百度知道 编辑:UC知道 时间:2024/05/29 05:14:27

先按下alt + F11
在弹出来的VBE窗口中,点上面的“插入”---模块--在下面的窗口中复制粘贴下面的代码

Sub qgrmdtj()
w = Range("a65536").End(xlUp).Row
For i = 4 To 6 * w Step 6
For j = 1 To 5
Rows(i).EntireRow.Insert
Next
Next
End Sub

之后按下 F5 运行代码即可

注:条件是你的数据是从A列开始的,从第一行向下的

可以借用序列号来实现。首先,你在你原始数据最左边插入一列,在第一个单元格输入1后往下拖,给其用序列号来管理顺序,以免后面的排序打乱。接着,还是在首列下面没有数据的地方开始,再输入1,往下拖,直到100行,需要添加多少行就重复多少次,按你的要求,可以重复5次,这样,就有1——100的空白行5组了。然后排序,第一条件是首列,即序列号所在列,当然,第二条件就是你有数据的列了,比如B列,排完后每行下面都有5行空白的了。如果不需要,再删除首列即可