第1个回答 推荐于2016-10-18
建一个宏来执行就行了。
工具 - 宏 - 宏--(输入宏名比如a)- 创建,在 Sub a() 和 End Sub 中间粘贴下面语句
For i = 2 To 200 * 3 Step 3
j = i & ":" & i + 1
Rows(j).Select
Selection.Insert Shift:=xlDown
Next i
【说明】“ i = 2的2” 是第一行要插入的数据,如果数据开始行在3,就改成3,“TO 200的200”是总共的行数,如果数据有1500行,就改成1500.执行时按工具--宏--宏-(选择宏名)--执行,就可以了。本回答被提问者采纳