Excel电子表格工作簿减肥秘招
时间:2022-12-06 22:06:54
很多用户都遇到过Excel 文件在使用过程中不断增肥,反应越来越迟钝的现象,甚至发生文件损坏而丢失重要数据的可怕事件。如果是因为有大量数据的输入,那么文件体积增加也无可非议,此时应该通过优化表结构、把数据分散保存到多个工作簿文件的方法来减小单个文件的体积。然而很多用户都遇到过Excel 文件在使用过程中不断增肥,反应越来越迟钝的现象,甚至发生文件损坏而丢失重要数据的可怕事件。如果是因为有大量数据的输入,那么文件体积增加也无可非议,此时应该通过优化表结构、把数据分散保存到多个工作簿文件的方法来减小单个文件的体积。然而,在很多时候,这些拥有“臃肿”身材的工作簿文件里面只有少量的数据,那么,它是怎么“肥”起来的呢?
本技巧中会罗列一些常见的Excel 文件体积虚增的原因及处理办法。
1 工作表中存在大量的细小图形对象
工作表中如果存在大量的细小图形对象,那么文件体积就可能在用户毫不知情的情况下暴增,这是一种很常见的“Excel 肥胖症”。可以使用下面两种方法来检查Excel 工作表是否存在这种症状。
(1)在工作表中按键调出“定位”对话框,单击“定位条件”按钮,在“定位条件”对话框中选择“对象”项,单击“确定”,如图1 所示。然后观察工作表上是否会显示很多被选定的对象。
如果工作簿中包含多个工作表,需要在每个工作表中用这种方法进行查找。关于“定位”功能的更多技巧,请参阅技巧28。
注意:隐藏列或行中的对象利用这种方法无法被看到。
(2)用VBA 对工作簿中的对象进行计数,查看在每个工作表中实际存在的对象数量,如果此数量不合理,就说明有问题。按打开VBA 编辑器窗口,单击菜单“插入”→“模块”来插入一个新模块,默认情况下为“模块1”,然后在模块1 的代码窗口中输入以下代码:
Sub CountShapes()
Dim n As Double
Dim ws As Worksheet
Dim Content As String
For Each ws In Worksheets
n = ws.Shapes.Count
Content = Content & "工作表" & ws.Name & " 有" & n & " 个对象" & vbCrLf
Next
MsgBox Content
End Sub
最后,按F5 键来运行这段代码,就能看到检查结果。在看似空白的工作表中,存在着大量的图形对象,如图2 所示。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
你知道如何从Word混合文本中提取姓名吗?
![](https://img.aspxhome.com/file/2023/6/24216_0s.jpg)
Win10 20H2系统如何重装网卡驱动?
![](https://img.aspxhome.com/file/2023/9/49319_0s.png)
怎样解决右键菜单中没有word2013
![](https://img.aspxhome.com/file/2023/3/18783_0s.jpg)
在excel表格中输入以0开头的数字不消失的两种方法分享
![](https://img.aspxhome.com/file/2023/2/42112_0s.jpg)
Excel怎么设计经典的人工成本统计表格?
![](https://img.aspxhome.com/file/2023/3/40443_0s.jpg)
Excel表格怎么制作供应商年终结算表?
![](https://img.aspxhome.com/file/2023/0/40090_0s.jpg)
如何解决word插入索引和目录“错误!未找到图形项目表”的问题
![](https://img.aspxhome.com/file/2023/1/29491_0s.jpg)
Word 2016文件试图打开时遇到错误该怎么办?
![](https://img.aspxhome.com/file/2023/1/26081_0s.jpg)
Word中怎样自动生成公式编号
WPS文字如何批注修订文稿或取消修订文稿?
![](https://img.aspxhome.com/file/2023/6/a163706_0s.jpg)
Word计算器功能使用动画教程
![](https://img.aspxhome.com/file/2023/6/33486_0s.gif)
Word怎么将打印预览和打印加到快速访问栏
![](https://img.aspxhome.com/file/2023/4/32044_0s.png)
几组最最实用word快捷键,Word水平如何,用快捷键就能够很好的体现出来
Win10如何强制锁定任务栏?Win10锁定任务栏教程
![](https://img.aspxhome.com/file/2023/3/51673_0s.jpg)
如何解决office打开word文档时出现乱码的问题
![](https://img.aspxhome.com/file/2023/2/15722_0s.jpg)
Win10更新后显示oem分区怎么隐藏?隐藏oem分区的操作方法
![](https://img.aspxhome.com/file/2023/1/49061_0s.jpg)
如何在excel2019表格中设置自动换行
![](https://img.aspxhome.com/file/2023/7/a140237_0s.jpg)
excel2016怎么创建水平项目符号列表?
![](https://img.aspxhome.com/file/2023/0/40160_0s.jpg)
word怎样设置不一样的页眉
如何解决Excel2010中Hyperlink函数在工作表创建目录提示"引用无效"的问题
![](https://img.aspxhome.com/file/2023/3/36163_0s.jpg)