第2个回答 2010-10-02
先在一空列的第二行输入公式=IF(MOD(ROW()+1,10),"",1)并向下填充,然后筛选这一列的“1”项,再用定位,插入行来完成。
第3个回答 2010-10-02
用录制宏,
如果不会,就随录制一点,然后复制下面的宏,覆盖掉你录的宏,按Ctrl+a
就行了
Sub 宏1()
'
' 宏1 宏
'
' 快捷键: Ctrl+a
'
For i = 1 To 100
ActiveCell.Rows("1:5").EntireRow.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveWindow.SmallScroll Down:=6
ActiveCell.Offset(15, 0).Range("A1").Select
Next i
End Sub