插入一列(或者利用现成的空列)。有数据的行用填充柄填充1~n的顺序数。移动到没有数据的空行上,也在这个辅助列上,在连续的两个单元格输入10.5、20.5,选择这两个单元格,用填充柄向下填充足够的行数,然后按这个辅助列排序。最后删除这个辅助列。
双击图片,看动画。
先在一空列的第二行输入公式=IF(MOD(ROW()+1,10),"",1)并向下填充,然后筛选这一列的“1”项,再用定位,插入行来完成。
用录制宏,
如果不会,就随录制一点,然后复制下面的宏,覆盖掉你录的宏,按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