怎样清除excel中的一堆文本框（从别人那里转来的）

下沙大学生网

   
$ ^3 k# @% n2 _0 M6 T6 O: k最近客户反映他们的Excel打开特别慢，而且改一个数值需要10几20分钟，特别不正常。我要求客户将有问题的Excel文件Email给我后，我发现一个简单的Excel文件有10几M，甚至几百M。

打开Excel文件，经过漫长的等待后，点击表格格线附近，发现很多隐形透明的文本框，数量非常多。有的几十个有的几百个，百度一下也没有找到到如何删除这个病毒的解决方法，可能杀毒软件没把这个当作是病毒吧，我将这定义为Excel文本框病毒。

   
如何清除Excel文本框病毒呢？我现在没有时间来写这样一个软件，不过可以告诉大家一个清除的方法：

   
首先打开要清除的Excel文件，因为Office2007及Office2003（Office XP及Office2000）的界面有所不同，我在这里分别讲。

   
7 j& g' c3 v' E, V) O/ F在Office2007中，点击“查找和选择”按钮 ，在弹出一下拉菜单中，选择“选择对像” ，选中之后，按CTRL+A全选，然后再按DEL删除，然后再保存。

在旧版的Office（Office2003/OfficeXP/Office200）中，中需要选择图形工具栏，然后点左边的图标，然后按CTRL+A全选，再按DEL删除，然后再保存就可以了。

   
当然，如果你上面两个都不会，那也没关系，按F5，点击定位条件按钮，在弹出的定位窗口中选择“对象”，按确定，然后再按DEL删除，然后再保存。

下沙大学生网

打开你的文件，选择“工具”－“宏”－“visua basic 编辑器”

在编辑器界面，选择“插入”－“模块”
+ W% ?+ x) [6 Z  R
$ a4 K3 ]9 P- w! {在模块代码框内输入以下代码，按F5，点击运行即可。
' s! L8 S# `- w+ y1 u
8 Z) i5 @& q9 p# [6 A) Y+ lSub deljx()
" w! d3 o- R" Q8 S" L. d) W    Dim i As Integer
, H- B0 g. e- `3 u+ d    On Error Resume Next
) i8 R$ L0 r" j, ^$ S        For i = 1 To 9999
            ActiveSheet.Shapes("Rectangle " & i & "").Select
$ i' w: ]: b  \7 y" g5 ~            Selection.Delete
$ `" C8 ]0 l3 d/ E8 S: J        Next
: k) K: P' l; Z" c, rEnd Sub
* h. _! z5 F- J$ f
8 t" x  F+ o3 P5 a: {1 H注意：for i = 1 to 9999 可能需要根据你的实际情况来改，9999的意思是假设你的文件里有9999个文本框，如果超过9999个文本框，那把9999改一下就好了。
/ r6 W/ d) V' l" M& ?
  E% b4 u4 F4 L# H. B# Q7 }看你的问题，应该是宏出了问题，建议针对宏病毒杀下毒，然后修改excel里宏的安全性。

qaz963120

谢谢你的分享哦

九溪黑玫瑰

谢谢分享  正在学习研究中