找一个没有数据的列或者干脆插入一列也行,第一行输入公式MOD(ROW(),61),然后拖拽复制到整列,也可以把鼠标移到单元格右下角,出现实心黑十字时,双击,则整列有数据的行数内都被自动填充了。然后对这一列筛选0,这样就显示出所以61的整数倍的行了,通过左侧的数字行标选择所有要删除的行,右键删除行就好了,最后取消筛选。向你这种情况需要删除如此多的行,最后一步可以通过shift键帮助选择!
公式的话麻烦点,
添加辅助列假设 H列
H1
输入公式 =MOD(ROW(H1),61)
向下填充,
然后 自动筛选 H列 值为 0的行,删除即可,推荐还是用代码
删除行,不是公式做的事,所以你需要用vba
代码如下
Sub 处理()
For i = 158783 To 61 Step -61
Rows(i).Delete Shift:=xlUp
Next
End Sub