用VBA会很简单,你要是嫌麻烦的话,我给插入,我这里有安装了一个百宝箱,可以实现这个功能,
[email protected] 你也可以用VBA代码 你打开工作表,你的表标签里如果没有改名的话就是sheet旁边,右键 查看代码 你把这个复制进去Sub 隔行插入行()
Dim a As Integer
Dim b As Integer
a = WorksheetFunction.CountA(Range("a:a"))
b = 6
For x = 1 To a
Rows(b & ":" & b).Select
Selection.Insert Shift:=xlDown
b = b + 6
Next
End Sub
然后点上面的运行,或者F5就行。
本回答被网友采纳