1、打开Excel表格,按Alt+F11打开Microsoft Visual Basic点击插入→模块。
2、复制下列代码粘贴到模块中,粘贴完成后关闭模块窗口和Microsoft Visual Basic窗口。
Sub 宏1()
For i = 1 To 50
Selection.EntireRow.Insert
ActiveCell.Offset(2, 0).Range("A1").Select
[ 查看全文 ]