Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2196|回复: 9

[已解决]奇怪的工作表

[复制链接]
发表于 2016-9-2 08:57 | 显示全部楼层 |阅读模式
附件是只有一个工作表的工作簿,原文件经操作人员使用数年后,文件体积越来越大,我已删除其他工作表,并将本工作表内容全部删除,只留一张空表了,但是文件体积依然很大,不知何故,请高手帮助分析,谢谢!

奇怪的工作表.rar (727.27 KB, 下载次数: 26)
发表于 2016-9-2 09:02 | 显示全部楼层    本楼为最佳答案   
本帖最后由 Excel学徒123 于 2016-9-2 09:08 编辑

打开非常慢,刚进去之后也非常卡,用定位找到了一点点对象在里面,其他的还在试

QQ图片20160902085935.png

点评

我把这方面的可能性给忽略了,多谢!!  发表于 2016-9-2 09:36

评分

参与人数 1 +33 收起 理由
zjdh + 33

查看全部评分

回复

使用道具 举报

发表于 2016-9-2 09:07 | 显示全部楼层
里面有64313个TEXT BOX。

点评

多谢!!  发表于 2016-9-2 09:37

评分

参与人数 1 +33 收起 理由
zjdh + 33

查看全部评分

回复

使用道具 举报

发表于 2016-9-2 09:48 | 显示全部楼层
怎样快速删除它们啊。。。。{:241:}

点评

定位>>>对象>>>确定 然后delete  发表于 2016-9-2 10:18
回复

使用道具 举报

发表于 2016-9-2 10:09 | 显示全部楼层
里面有64313个shapes。。。,执行下代码,大概要好几分钟
  1. Sub test()
  2.     For Each shp In ActiveSheet.Shapes
  3.         shp.Delete
  4.         n = n + 1
  5.     Next
  6.     MsgBox n
  7. End Sub
复制代码
最后工作薄仅37kb

点评

我也是这样删除的  发表于 2016-9-2 10:35

评分

参与人数 1 +19 收起 理由
zjdh + 19

查看全部评分

回复

使用道具 举报

发表于 2016-9-2 10:20 | 显示全部楼层
我一定位,就未响应了。。。。
运行类似5楼的代码,也是未响应了。。。。


可能我比较急吧{:031:}

回复

使用道具 举报

发表于 2016-9-2 10:34 | 显示全部楼层
爱疯 发表于 2016-9-2 10:20
我一定位,就未响应了。。。。
运行类似5楼的代码,也是未响应了。。。。

我是等了好一会才选中那些对象的,这种问题我在公司也遇到过,里面太多的文本框了,不注意就着了道
回复

使用道具 举报

 楼主| 发表于 2016-9-2 10:40 | 显示全部楼层
本帖最后由 zjdh 于 2016-9-2 12:56 编辑

感谢各位高手参与和帮助!!{:2812:}
回复

使用道具 举报

发表于 2016-9-2 10:44 | 显示全部楼层
爱疯 发表于 2016-9-2 10:20
我一定位,就未响应了。。。。
运行类似5楼的代码,也是未响应了。。。。

我也是一按F5就不动了就换了代码来操作,但是整个运行过程时间也很长。
回复

使用道具 举报

发表于 2016-9-2 10:49 | 显示全部楼层
还有个方法也能压缩容量,把xls另存为高版本的xlsx
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-4-26 16:30 , Processed in 0.369771 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表