EXCEL怎么批量删除

就是普通的。经过排序整理后。我想从上往下删。。。

注意。排序后最左边的序号是乱的咯。不是123的排列。但我想要删除的肯定就是从上往下到一定数量的 行
比如我想删第1~5000行。。。。

    基本操作法

    选中第一行-->f5定位-->定位条件-->空值-->确定-->在选中的任一空单元格右键-->删除-->删除整列。操作图如下:


    VBA法,代码如下:

    Sub tst()
    Dim cel As Range
    For Each cel In Range("a1:iv1")
     If cel = 0 Then cel.EntireColumn.Delete
    Next
    End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答  2011-09-15
creenUpdating = False
For i = Sheet2.UsedRange.Rows.Count To 1 Step -1
If Application.WorksheetFunction.Sum(Rows(i)) = 0 Then Rows(i).Delete
Next
Application.ScreenUpdating = True

End Sub
你的空白行是就'J列有空白 其他都有数据么这代码是把表里面有空的行都删除掉 你要是就J列有空可以用 要是其他列也有空 可以用过滤的办法删除掉~~
第2中情况的代码我再找找看

找到了
Sub 删除所选区域空行()
'Deletes the entire row within the selection if the ENTIRE row contains no data.
'删除所选区域内空行
'We use Long in case they have over 32,767 rows selected.'我们用长整型以免出错
Dim i As Long

'We turn off calculation and screenupdating to speed up the macro. 关掉自动重算和屏幕刷新以提高速度
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False

'We work backwards because we are deleting rows. 由于要删除行,所以要FOR NEXT要倒着来
For i = Selection.Rows.Count To 1 Step -1
'for i=ActiveSheet.UsedRange.Rows.Count to 1 step -1
If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Delete
End If
Next i

.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub

这代码用的时候必要选择整列要不运算慢 你可以选J1:J100然后运行代码

第2个回答  2020-06-19

表格怎么批量删除内容?这个视频告诉你!办公软件实用技巧。

第3个回答  2011-09-15
电子表格(你表格最左边的序号)的左边是电子表格固有序号,你怎么排序都是不会变的,想删第第1~5000行,点一下电子表格固有序号1再找到电子表格固有序号5000,按住shitf(上档键)点一下电子表格固有序号5000,那么第1~5000行全选定了,再进行删除操作。
第4个回答  2011-09-14
工具——自动筛选,点下拉箭头——自定义——对话框中选小于等于5000,删除显示出来的行即可。本回答被提问者采纳