excel在工作中常用技巧

《excel在工作中常用技巧》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、Excel在工作中常用技巧一、excel瘦身技术在我们日常工作中有时会出现Excel文档无故增大。我曾经见过一个文档中共有20个工作表，每个工作表屮只冇200—1000条数据，但是该工作表冇45M大小。由于文档太大，打开、编辑等各项操作都很慢。经检查，该表中存在大量的“对象”，该对象导致了文档虚胖，经过瘦身后该文档就剩4M大小。现在讲讲怎样为其瘦身。1、可以先查看文档屮存在多少对象，打开文档，在文档屮任意一个工作表名称上单击鼠标右键查看代码，打开VB编辑器。将下面代码复制到编辑器中。复制号之间的代码(不包括号)*****************************

2、*************************************，查看整个工作簿中的对象SubCountShapes()DimnAsDoubleDimwsAsWorksheetDimContentAsStringForEachwslnWorksheetsn=ws.Shapes.CountContent=Content&”工作表“&ws.Name&M有“&n&“个对象"&vbCrLfNextMsgBoxContentEndSub******************************************************************朴Q

3、)・・重命名(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-SheetlXjShee

4、tlWorkxhttt按宇母库

5、按分类序

6、（名称）

7、Sheetl■DisplayPageBreaksFalseDispltyRx(htToL«ftFtlstEnableAutoFilterFels«EnableCalculationTrue▼VisualBasic编辑器窗口复制代码后，点击页面上绿色小三角，运行代码。MicrosoftExcel工作表Sheetl有2960个对您工作表Sheet2有2960个对余工作表Sheet3有2960个对鮫运行后可以看出，该文档屮每个工作表屮包含的对彖数量。实事求是的说，就是这些无用的对象导致了文档虚胖，现在來删除这些对象，现在清除

8、刚才粘贴的代码，重新复制下面的代码到VB编辑器中，点击运行按钮。复制“"号之间的代码(不包括号)****************************************************，删除工作簿屮的对象SubDel()DimshAsWorksheet,nForEachshInThisWorkbook.Worksheetssh.Drawingobjects.DeleteNextshEndSub********************************************************好了，由于对象太多，需要运行一段时间，请耐心等待。运

9、行完代码后，保存文档，现在看看文档冇多大？二、合并工作表在我们的实际工作中会有这么一种情况，一个文档中有若干个结构相同的工作表，我们需要把这若干个工作表都复制到一个工作表中，用下面的代码可以轻松搞定。首先新建一个工作表，在该工作表名上点击右键查看代码，将以下代码复制到其屮并运行。*************************************，合并当前工作簿下的所有工作表Sub合并当前工作簿下的所有工作表()Application.Screenllpdating=FalseForj=1ToSheets.CountIfSheets(j).NameoActive

10、Sheet.NameThenX=Range("A65536,,).End(xlUp).Row+1Sheets(j).UsedRange.CopyCells(X,1)EndIfNextRange(HBl").SelectApplication.Screenllpdating=TrueMsgBox"当前工作簿卜•的全部工作表已经合并完毕！",vblnformation,"提示”EndSub完成后根拯需求手动删除不必要的表头。因为合并时将各个工作表中的表头都合并过来了。三、几个常用技巧1＞快速填充在表中需要将序号填写到其中，我们通常是在第一行输