作者:乔山办公网日期:
返回目录:excel表格制作
EXCEL表格太大了,一页打印不了怎么办
'此代码用于解决EXCEl文件过大的问题。通过“清除”命令清除没有使用的单元格中被设置的格式等。
'将此代码COPY在工作薄的模块内,根据自己文档中各表实际使用的最大范围修改清除范围的设定后运行就OK。
'我是通过将工作薄中的表逐个地移动到空7a686964616fe58685e5aeb9337工作薄中,然后保存原表再检查文件大小变化情况,最终找出导致文件变大的那个表进行清除多余内容。
'用这工具将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不熟的那你就自己录个宏,然后在宏自己建的模块中粘贴运行就行了,运行前要将光标移至这段代码内。
1、如图所示 用来百演示的表格大小为2.10MB
2、使用鼠标选中起始度行 如图所示 左键单专击15即可
3、然后同时键入Ctrl+Shrift+↓ 会选中起始行之下的所有表格
4、然后再键入Ctrl+-(减号) 回到起始行 此时已清除无用对象了属
5、回到表格所在的文件夹 你还看到 文件大小已经变成19.8KB了