电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

Excel电子表格工作簿减肥秘招

Excel电子表格工作簿减肥秘招_第1页
1/6
Excel电子表格工作簿减肥秘招_第2页
2/6
Excel电子表格工作簿减肥秘招_第3页
3/6
很多用户都遇到过 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 所示。 如果确认在工作表中存在大量的对象,而用户并不需要它们,可以用两种方法来处理: (1)刚才的定位方法中,当对象全部处于被选择状态时按键删除它们即可。 (2)使用宏在多个工作表中更加精确地删除这些无用对象。比如,可以根据需要只删除高度和宽度都小于14.25 磅(0.5 cm)的对象。 只删除活动工作表中特定大小的对象的代码为: Sub DelShapes() Dim sp As Shape, n For Each sp In ActiveSheet.Shapes If sp.Width <...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

Excel电子表格工作簿减肥秘招

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部