excel里面如何做到自动删除不需要的行,也就是单元格有某一数据时就删除,不是那一数据就不删

如题所述

这个可以使用VBA来实现,示例如下:

Sub DeleteRows()
Dim i, j, k, l As Long
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表
For i = 2 To 1000  '第二行到1000行
For j = 14 To 17   '第14列到17列
If mysheet1.Cells(i, j) = 3 Then  '如果单元格里面包含3,则删除行
mysheet1.Rows(i).Delete shift:=xlUp  '删除行后下行上移
End If
Next
Next

End Sub

运行后的结果如下:

温馨提示:答案为网友推荐,仅供参考
第1个回答  2018-01-26
自动删除这类操作,只有宏代码才能办到
第2个回答  2018-01-26
用编程代码
vba
可以实现
相似回答