Excel文件太大的原因及解决办法，单独说明。

发布网友 发布时间：2022-03-07 22:02

我来回答

共3个回答

热心网友 时间：2022-03-07 23:32

这个问题我自己回答：
'此代码用于解决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

热心网友 时间：2022-03-08 00:50

这个问题我自己回答:
'此代码用于解决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。

热心网友 时间：2022-03-08 02:24

刚刚用了一下，20多M的文件变成600K了，好用，谢谢

补充一点，还真是在文件中发现了不少的小圆圈，也不知是什么，反正删了就没事了