ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2692|回复: 7

[求助] excel变成12M大

[复制链接]

TA的精华主题

TA的得分主题

发表于 2011-2-5 01:04 | 显示全部楼层 |阅读模式
看过网上关于怎么解决虚胖的教程,也尝试过,但是仍然无法解决问题。。

现在上传,请路过的老师帮我看看,解决下,方便的话,告诉我是什么原因引起的,应该如何解决。

先行谢过了~~

新建文件夹.zip

163.53 KB, 下载次数: 27

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-2-5 01:06 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本来excel里面有三个工作表的 但是12M压缩后还是上传不了 所以删掉一个 剩6M多 还是上次不了 不得已再压缩了一次  请路过的老师帮帮忙 帮我看看 到底是啥原因造成的呀

TA的精华主题

TA的得分主题

发表于 2011-2-5 02:31 | 显示全部楼层
原帖由 fengwaw 于 2011-2-5 01:06 发表
本来excel里面有三个工作表的 但是12M压缩后还是上传不了 所以删掉一个 剩6M多 还是上次不了 不得已再压缩了一次  请路过的老师帮帮忙 帮我看看 到底是啥原因造成的呀


重新建一个新表,把里面的数据、公式重新放进去,不要用粘贴,用选择性数值粘贴,公式重新编辑一下就好了。
你试试

TA的精华主题

TA的得分主题

发表于 2011-2-5 03:43 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
"日报" 带有 32256 个 隐藏的 autoshape

使用以下代码 删除



  1. Sub RemoveAllShapes()
  2. 'Loop through the Shapes collection
  3.     Dim myshape As Shape
  4.     Dim i As Long, Total As Long
  5.    
  6.     i = 0
  7.     Total = ActiveSheet.Shapes.Count
  8.     If Total > 0 Then
  9.         For Each myshape In ActiveSheet.Shapes
  10.             i = i + 1
  11.             Debug.Print myshape.Name & " | Type=" & myshape.Type & " | " & Format(i / Total * 100, "0.00") & "%"
  12.             myshape.Delete
  13.             'DoEvents
  14.         Next myshape
  15.         Debug.Print "DONE!"
  16.         MsgBox "DELETE " & i & " shape(s)!"
  17.     End If
  18.    
  19. End Sub
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-2-5 08:32 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
原帖由 msconfig98 于 2011-2-5 03:43 发表
"日报" 带有 32256 个 隐藏的 autoshape

使用以下代码 删除



Sub RemoveAllShapes()
'Loop through the Shapes collection
    Dim myshape As Shape
    Dim i As Long, Total As Long
   
    i = ...



请问 excel里怎么使用代码呀 真不知道呀~~

TA的精华主题

TA的得分主题

发表于 2011-2-5 09:58 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
原帖由 fengwaw 于 2011-2-5 01:06 发表
本来excel里面有三个工作表的 但是12M压缩后还是上传不了 所以删掉一个 剩6M多 还是上次不了 不得已再压缩了一次  请路过的老师帮帮忙 帮我看看 到底是啥原因造成的呀

1。“日报”工作表内最后一个单元格在 O27,但是,楼主却是按整列设置单元格格式的,所以,平白无故地有 65509(EXCEL2003)或 1048549(EXCEL2007) 行被设置了格式,所以虚增了很多容量;
2。“销售清单”工作表最后一个单元格在 P93。问题与第 1个是一样的。

所以,归根结底的问题是楼主不要为整个列或行设置格式!

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-2-5 15:43 | 显示全部楼层
噢噢 明白了 就是因为变成整行整列设置了格式,所以导致一下子变得那么大了

TA的精华主题

TA的得分主题

发表于 2011-2-5 16:18 | 显示全部楼层
很好奇怎么会那么大啊!所以进来看一下。顺便学习一下,以后自己遇到就能解决了。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-24 22:32 , Processed in 0.046415 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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