Question

EXCEL自动插入空白行

每个序号下面需要插入25行空白行，求助大神快速解决的方法。一行一行插入的不用推荐了，因为每天大量处理，这个有些麻烦。谢谢。

Answer 1

A列数据后，B列顺序12345...n,然后复制12345...n,粘贴到B列随后。B列数据排序即可。

Answer 2

Sub 插入行()
Dim I%
For I = 1 To Range("A65536").End(xlUp).Row * 25 Step 25 + 1
Rows(I + 1 & ":" & I + 25).Select

Selection.Insert Shift:=xlDown
Next
End Sub
试下

追问

谢谢，公式不熟，具体怎么操作呢？

追答

复制代码到 SHEET的代码窗口，

关闭代码窗口，返回表格，按ALT+F8执行