none
EXCLE空白文本框问题 RRS feed

 > 

  • 问题

  • Question
    登录进行投票
    0
    登录进行投票

    我这边有一个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
    |

答案

  • Question
    登录进行投票
    0
    登录进行投票

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

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

    按下 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
    |
    版主