在EXCEL表中如何使用VBA程序自动筛选出符合条件的数据并删除
3个回答
展开全部
一般采用倒序的方式：例如，将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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
假定你删选的条件是单元格数据>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
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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
