Excel在工作中常用技巧.docx

Excel在工作中常用技巧.docxExcel在工作中常用技巧一、excel瘦身技术在我们日常工作中有时会出现Excel文档无故增大。我曾经见过一个文档中共有20个工作表,每个工作表屮只冇200—1000条数据,但是该工作表冇45M大小。由于文档太大,打开、编辑等各项操作都很慢。经检查,该表中存在大量的“对象”,该对象导致了文档虚胖,经过瘦身后该文档就剩4M大小。现在讲讲怎样为其瘦身。1、可以先查看文档屮存在多少对象,打开文档,在文档屮任意一个工作表名称上单击鼠标右键\查看代码,打开VB编辑器。将下面代码复制到编辑器中。复制号之间的代码(不包括号)******************************************************************,查看整个工作簿中的对象SubCountShapes()DimnAsDoubleDimwsAsWorksheetDimContentAsStringForEachwslnWorksheetsn==Content&”工作表“&&M有“&n&“个对象"&vbCrLfNextMsgBoxContentEndSub******************************************************************朴Q)・・重命名(R)移湖Kg制(M)・・・2歸代码QD◎砌工作表(£)・・・工作表标►隐菽但)鮭隐姦◎・・・诜工全部工件表(S)►►'SheetlJ"匕匕1乙 OIltJGIJ-(9x文件(D扁辑(D应图GO活入(D佃(Q)调试©运行®IMCD外接程序®奁口(W)帮助但):画回・JI 弟么—》U」固&于号❷行2•列1[(M)运行按钮Tfl・VBAProject■icros«ftExcelMicrosoftExcel对jftShttll(Shtetl)She«t2(Sh«et2)She«t3(Sh••⑶ThisWorkbook将代码复制到此处nrStt-Sheetl XjSheetlWorkxhttt按宇母库|按分类序|(名称)|Sheetl■DisplayPageBreaksFalseDispltyRx(htToL«ftFtlstEnableAutoFilterFels«EnableCalculationTrueVisualBasic编辑器窗口复制代码后,点击页面上绿色小三角,运行代码。MicrosoftExcel工作表Sheetl有2960个对您工作表Sheet2有2960个对余工作表Sheet3有2960个对鮫运行后可以看出,该文档屮每个工作表屮包含的对彖数量。实事求是的说,就是这些无用的对象导致了文档虚胖,现在來删除这些对象,现在清除刚才粘贴的代码,重新复制下面的代码到VB编辑器中,点击运行按钮。复制“"号之间的代码(不包括号)****************************************************,删除工作簿屮的对象SubDel()DimshAsWorksheet,****************************************