
VBA
想实现这个功能得用宏,操作很简单,按下面来:先按 ALT+F11 打开
VBA编辑器,然后在左侧双击 ThisWorkbook,把下面这段代码复制进去:
VBASub XXX()xx = InputBox(请输入需要插入的行数:, 提示)Application.ScreenUpdating = FalseEndRow = Range(A65536).End(xlUp).RowFor i = 1 To EndRow Rows(i + 1 + (i - 1) * xx).Select For j = 1 To xx Selection.Insert Shift:=xlDown NextNextApplication.ScreenUpdating = TrueEnd Sub
粘完之后关掉编辑器,回到excel界面,接着点菜单栏的→→(对,三个宏),选XXX执行就行啦~运行后会弹出一个框,输入你要插多少行,点确定就完事了,超方便!