如何在EXCEL数据表中（大量数据）每行下插入多行空行！急求回答！跪谢！

发布网友发布时间：2022-04-23 06:48

我来回答

共4个回答

热心网友时间：2023-10-06 04:17

1、以下数据为模拟数据，在A列设定为任意名称。

2、在B列设置为数字，填充数字序列为已有行一样多。

3、现在是最重要的一步，主要看需求：比如现在要插入三行空白列，那么就将步骤2中填充的数字，复制粘帖三次在下方。

4、粘帖完成后，启用筛选，在菜单栏找到数据→筛选，或者按快捷键：ALT+D+F+F。

5、点击首行上下拉箭头按钮，在弹出菜单中选择升序。

6、可以看到每一行下面多了3个空白行，然后删除B列辅助列即可。

热心网友时间：2023-10-06 04:17

需要做宏实现。
按ALT+F11
打开后双击左侧ThisWorkBook打开编辑器把下面的代码贴进去。
Sub XXX()
xx = InputBox("请输入需要插入的行数：", "提示")
Application.ScreenUpdating = False
EndRow = Range("A65536").End(xlUp).Row
For i = 1 To EndRow
Rows(i + 1 + (i - 1) * xx).Select
For j = 1 To xx
Selection.Insert Shift:=xlDown
Next
Next
Application.ScreenUpdating = True
End Sub

关掉编辑器回到表格。按菜单中的工具---宏---宏---选中XXX点执行，
这时就弹出对话框，输入你要插入的行数点确定就OK了。

热心网友时间：2023-10-06 04:18

1.在空余列（比如p列）的第一格填1、第二格填41，选定两格下拉，至数据行的尾行，然后右拉。这样有数据的行就有了两列（p、q列）间隔40的序号。
2.在p列的空白格开始向下填充序号：1、2、3、4……(多拉一些，超过上面的最大序号）；
3.在Q列的空白格(比如q1023)开始输入：=if(countif(p:p,p1023)>1,"百",q1023) 下拉；
4.对Q列(扩展)排序，中文自然被排到最下面。然后，删除p、q两列。

热心网友时间：2023-10-06 04:18

这个不需要用宏的，用公式就能解决