excel表格中如何大量查找数据并删除该行

如题所述

可以编写一段VBA代码完成:
假设是要查找A列包含XXX的,查到后将该行删除
sub
test()
Dim
i&,r&
r=cells(rows.count,1).end(xlup).row
'定位A列最后一行
for
i=r
to
1
step
-1
'从最后一行循环至第一行,倒过来循环是为了保证删除行时不会跳过行,从而造成漏行
if
instr(cells(i,1),"XXX")>0
then
'如果A列第i行单元中包含XXX,则执行删除整行操作
range("A"
&
i).EntireRow.delete
‘删除第i行
end
if
next
end
sub
温馨提示:答案为网友推荐,仅供参考
第1个回答  2019-03-17
ctrl+f
打开查找对话框,输入需要查找的内容,点查找全部,然后按CTRL+A在查找对话框中全选。
然关闭查找对话框,在任何一个已选中的数据上单击右键--删除--整行