none
EXCLE空白文本框问题 RRS feed

  • 问题

  • 我这边有一个EXCEL文件,里面有很多空白文本框,估计是数以万计的,有什么办法可以快速删除呢?我尝试用CTRL+G指向OBJECT 然后点OK EXCEL停止响应,查看EXCEL.EXE内存占用由10几M飙升到600多M还没有停止的势头,过程已经用了30多分钟,请问有没办法可以快速把所有的空白文本框删除,因为此表内容非常多,重做比较麻烦!有大神拯救我吗?还是我只能让它一直LOAD.....直到把所有的文本框找出来然后删除,估计删除也要很多时间.......

    版本:OFFICE 2007 EXCEL

            OS:XP PRO SP3

    2013年3月15日 9:33

答案

  • 首先,请创建一份或多份备份文档,并确保所有的备份中的数据完整性。

    打开其中一份备份文档,选中需要清理空白文本框的工作表;

    按下 Alt + F11 打开 VBA 编辑器,在Microsoft Excel 对象下方,双击需要清理空白文本框的工作表

    将下列的宏命令复制并黏贴在右侧的代码编辑区,并按下 F5 执行:

    Sub DeleteTextbox()
    Dim oTextBox As TextBox
    For Each oTextBox In ActiveSheet.TextBoxes
        If oTextBox.Text = "" Then
        oTextBox.Delete
        End If
    Next oTextBox
    End Sub


    Max Meng
    TechNet Community Support


    2013年3月18日 9:50
    版主