<pre id=\"best-answer-content\" class=\"reply-text mb10\">电子表格批量插入行：
altF11
插入模块
将下列代码粘贴进去
把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
