资源描述：
《excel常用宏大全》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、Excel常用宏大全（一）259个常用宏-excelhome-LangQueS(1)2008-04-0117:21打开全部隐藏工作表Sub打开全部隐藏工作表()DimiAsIntegerFori=1ToSheets.Count Sheets(i).Visible=TrueNextiEndSub循环宏Sub循环()AAA=Range("C2")DimiAsLongDimtimesAsLongtimes=AAA 'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483
2、647)Fori=1TotimesCall过滤一行 IfRange("完成标志")="完成"ThenExitFor'如果名为'完成标志'的命名单元的值等于'完成',则退出循环,如果一开始就等于'完成',则只执行一次循环就退出'IfSheets("传送参数").Range("A"&i).Text="完成"ThenExitFor '如果某列出现"完成"内容则退出循环beconsistentwithinthesamedisk.Alternateunifiedcorerequirementsplac
3、edontheterminalstripterminals,onlineidentityandensurethecoppercoreisnotexposed.6.4.6enclosurewithinthesametothecablecoreprovidesbindingintoacircle,harnesstiespacingisgenerally100mm;branchofficesshallbebindingonbothends,eachcoreNextiEndSub录制宏时调用“停止录制”工具栏S
4、ub录制宏时调用停止录制工具栏()Application.CommandBars("StopRecording").Visible=TrueEndSub高级筛选5列不重复数据至指定表Sub高级筛选5列不重复数据至Sheet2()Sheets("Sheet2").Range("A1:E65536")=""'清除Sheet2的A:D列Range("A1:E65536").AdvancedFilterAction:=xlFilterCopy,CopyToRange:=Sheet2.Range(_
5、"A1"),Unique:=True Sheet2.Columns("A:E").SortKey1:=Sheet2.Range("A2"),Order1:=xlAscending,Header:=xlGuess,_ OrderCustom:=1,MatchCase:=False,Orientation:=xlTopToBottom,SortMethod_ :=xlPinYinEndSub双击单元执行宏(工作表代码)PrivateSubWorksheet_BeforeDoubl
6、eClick(ByValTargetAsRange,CancelAsBoolean)IfRange("$A$1")="关闭"ThenExitSubSelectCaseTarget.Address Case"$A$4" Call宏1beconsistentwithinthesamedisk.Alternateunifiedcorerequirementsplacedontheterminalstripterminals,onlineidentityandensurethecoppercoreisn
7、otexposed.6.4.6enclosurewithinthesametothecablecoreprovidesbindingintoacircle,harnesstiespacingisgenerally100mm;branchofficesshallbebindingonbothends,eachcore Cancel=True Case"$B$4" Call宏2 Cancel=True Case"$C$4" Call宏3 Cancel=TrueCase"$E
8、$4" Call宏4 Cancel=TrueEndSelectEndSub双击指定区域单元执行宏(工作表代码)PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)IfRange("$A$1")="关闭"ThenExitSubIfNotApplication.Intersect(Target,Range("A4:A9","C4:C9"))
