EXCEL 表格里面出现大量的 TEXT BOX ;一个普通的文件内容居然有15MB;而且按方法删除就是会出现文件死机

我用的是 EXCEL 2007

可以编写一段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个回答  推荐于2017-12-15
Ctrl+G定位——定位条件——对象——确定——删除。
(如果对象是用控件,可调出控件工具箱,点击第一个按钮进入编辑状态,然后再用定位,删除。

我刚才用的,很有效,不过我的是EXCEL 2003,不知道你试过这个方法没有?

参考资料:http://zhidao.baidu.com/question/231730001.html

本回答被网友采纳
第2个回答  2011-07-26
按什么方法删除死机??你直接点击一个并删除会不会死机?
建议选中其中一个,然后按ctrl+a 再删除。追问

试过了,还是不行~~

第3个回答  2016-01-31
选择查找---定位条件---对象,这样会把所有的text box 选中,按del键就可以了
第4个回答  2013-09-05
Tep1:按下Ctrl+G健
Tep2:选择“对象”
Tep3:按Delete键删除即可
2003、2007、WPS等通用
相似回答