excel表格中如何批量插入行

来源：百度知道 编辑：UC知道 时间：2024/06/17 16:57:56
excel表格中如何批量插入行？就是说在一个工作表中有若干行，我想在每行中间都再插入一行，可是一行一行太麻烦了，能批量插入吗？拜托各位
谢谢，你的回答真是太好了，我学会了。
可是还有一点请教：插入行以后如何批量填写相同的词语呢，或者说如何批量插入已复制的单元格？？？？？再次拜托

我太佩服你了，就是这个意思，不过还有一个问题：就是我的表头是前三行，这该怎么弄呢？

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