EXCEL中如何在每隔四行中插入四行空白行

A列必须有序号

1、打开你的工作薄，按 Alt+F11 进入VBA编程窗口
2、把工具栏第二个下拉按钮拉下来，选择“模块”，这样你就可以在左边栏看到“模块—模块1”这个层次结构
3、双击“模块1”，就会在右边打开一个空白的书写程序的地方，把下面这段程序复制粘贴进去

Sub insBlank()
Dim sh As Worksheet
Dim lastRow As Long
Set sh = ActiveSheet
lastRow = Range("A" & sh.Rows.Count).End(xlUp)
Application.ScreenUpdating = False
For i = 5 To lastRow Step 5
sh.Rows(i).Insert
Next
Application.ScreenUpdating = True
End Sub

4、关闭编程窗口回到工作表中，按Alt+F8,可以打开宏窗口，现在看到这个名为“insBlank”的宏了吧，点“执行”，它就会在你当前工作表中每4行插一个空行。

For i = 5 To lastRow Step 5
这中的两个5，就是你要几行插入一行加一，如要在四行后插入一行，则为5，以些类推。

hi我 教你简单方法