魔法少女アイ在线播放:在电子表格中如何批量间隔插入行?

来源:百度文库 编辑:九乡新闻网 时间:2024/04/27 09:48:07

在电子表格中如何批量间隔插入行?

电子表格批量插入行:
alt+ F11
插入模块
将下列代码粘贴进去
把50改成你实际需要插入的数据的行数
Sub 宏1()
For i = 1 To 50
Selection.EntireRow.Insert
ActiveCell.Offset(2, 0).Range("A1").Select
Next i
End Sub

然后鼠标选定第一行数据任意单元格,选择菜单 工具-宏-运行宏,选择刚才的宏1,执行

看你的问题补充,感觉你像是要做工资条,假设第一行是表头,即为你要复制的内容,那么代码如下,注意需要选择第三行第一单元格(A3),执行宏,否则可能出错
Sub 宏1()
For i = 1 To 50
Selection.EntireRow.Insert
Rows("1:1").Copy'复制第一行数据,所以执行宏的时候必须选择的是某行的开始单元格否则会粘贴出错
ActiveSheet.Paste
ActiveCell.Offset(2, 0).Range("A1").Select
Next i
End Sub