excel文件类型大小型

问题描述

精选答案

'此代码用于解决EXCEl文件过大的问题。通过“清除”命令清除没有使用的单元格中被设置的格式等。

'将此代码COPY在工作薄的模块内，根据自己文档中各表实际使用的最大范围修改清除范围的设定后运行就OK。

'我是通过将工作薄中的表逐个地移动到空工作薄中，然后保存原表再检查文件大小变化情况，最终找出导致文件变大的那个表进行清除多余内容。

'用这工具将34M的一个工作薄清理到2.5M。

'使用前一定要在备份上运行，确定你要清除的范围是正确的。

'哪位有兴趣了给做个对话框，免得用错害了大家！

Sub 清除EXCEL多余文件()

For Each SH In Sheets

SH.Select

Rows("2001:65536").Select'代码中的范围是将要清除的整行行标。

'Columns("AA:BA").Select '这里可同时加入对列的清理，但建议不要作，如果触动了未激活的列，反而会增大文件。

Selection.Clear

Next

End Sub

特别说明一下，此操作要进入VBA窗口中，对于VBA不熟的那你就自己录个宏，然后在宏自己建的模块中粘贴运行就行了，运行前要将光标移至这段代码内。