[已解决]求高手帮我减掉这个胖子的肥膘！！

huangcaiguang

今日清理公司文档发现一个虚胖的文件，压缩一下由十几M变为了1M，一直找不到原因，表格不多，定位对象也没发现什么异常啊，公式的计算也不复杂，莫非真遇上EXCEL的BUG??

最佳答案

月排行榜 / 总排行榜

展翅

2013-10-23 17:59

由于定位也需要花很多时间，该用代码来删除：

Sub deleteobjects()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
    sh.DrawingObjects.Delete
Next
MsgBox "完成"
End Sub


完成后的文件240K。
(, 下载次数: 1)

上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

[已解决]请查找文件大的原因在哪里？
http://www.excelpx.com/thread-253873-1-1.html

hwc2ycy

数据这么多，还怪表大了？
你把内容全清除了试试。
要么就存成XLSX格式，会小很多。

hwc2ycy

害我EXCEL挂几次了。

hwc2ycy

14.8M，你这也有很整啊。

huangcaiguang

hwc2ycy 发表于 2013-6-10 23:06
数据这么多，还怪表大了？
你把内容全清除了试试。
要么就存成XLSX格式，会小很多。

这应该不是BUG吧！我怎么没发现多少数据啊，就12个表嘛，每个表一个简单表格会把计算机给弄死？？我这个本来就是2003版的啊？

huangcaiguang

hwc2ycy 发表于 2013-6-10 23:06
数据这么多，还怪表大了？
你把内容全清除了试试。
要么就存成XLSX格式，会小很多。

关键是怎么一普通压缩就小了那么多、这不是虚胖是什么啊？

huangcaiguang

hwc2ycy 发表于 2013-6-10 23:08
害我EXCEL挂几次了。

有没有办法让这个文档编辑时不那么卡啊（不拆分成单个工作簿的前提下！！）

hwc2ycy

关键是你公式也多，最好改成手工计算，不然修改一个单元格，全工作簿都在重新计算。
我点一个单元格都奇卡。

hwc2ycy

删除到只一个工作表还有6M多。
看来还是有问题。