在EXCEL表中如何使用VBA程序自动筛选出符合条件的数据并删除

Question

如题所述

Answer 1

一般采用倒序的方式：例如，将D列中为“否”的整行删除：
Sub test()
For i = Cells(Rows.Count, 4).End(xltoup).Row To 1
If Range("D" & i) = "否" Then
Range("D" & i).EntireRow.Delete
End If
Next
End Sub

Answer 2

假定你删选的条件是单元格数据>10

sub test（）
set a=thisworkbook.sheets("sheet1")
dim mycell as range
for each mycell in a.UsedRange
if mycell>10 then
mycell.clear
end if
next
end sub本回答被网友采纳

Answer 3

神功盖世