excel常用宏集合

1：打开所有隐藏工作表2：循环宏3：录制宏时调用“停止录制”工具栏4：高级筛选5列不重复数据至指定表5：双击单元执行宏(工作表代码)6：双击指定区域单元执行宏(工作表代码)7：进入单元执行宏(工作表代码)8：进入指定区域单元执行宏(工作表代码)9：在多个宏中依次循环执行一个（控件按钮代码）10：在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）11：在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）12：根据A1单元文本隐藏/显示按钮（控件按钮代码）13：当前单元返回按钮名称（控件按钮代码）14：当前单元内容返回到按钮名称（控件按钮代码）15：奇偶页分别打印16：自动打印多工作表第一页17：查找A列文本循环插入分页符18：将A列最后数据行以上的所有B列图片大小调整为所在单元大小19：返回光标所在行数20：在A1返回当前选中单元格数量21：返回当前工作簿中工作表数量22：返回光标选择区域的行数和列数23：工作表中包含数据的最大行数24：返回A列数据的最大行数25：将所选区域文本插入新建文本框26：批量插入地址批注27：批量插入统一批注28：以A1单元内容批量插入批注29：不连续区域插入当前文件名和表名及地址30：不连续区域录入当前单元地址31：连续区域录入当前单元地址32：返回当前单元地址33：不连续区域录入当前日期34：不连续区域录入当前数字日期35：不连续区域录入当前日期和时间36：不连续区域录入对勾37：不连续区域录入当前文件名38：不连续区域添加文本39：不连续区域插入文本40：从指定位置向下同时录入多单元指定内容41：按aa工作表A列的内容排列工作表标签顺序42：以A1单元文本作表名插入工作表43：删除所有未选定工作表44：工作表标签排序45：定义指定工作表标签颜色46：在目录表建立本工作簿中各表链接目录47：建立工作表文本目录48：查另一文件的所有表名49：当前单元录入计算机名50：当前单元录入计算机用户名51：解除所有工作表保护52：为指定工作表加指定密码保护表53：在有密码的工作表执行代码54：执行前需要验证密码的宏(控件按钮代码)55：执行前需要验证密码的宏()56：拷贝A1公式和格式到A257：复制单元数值58：插入数值条件格式59：插入透明批注60：添加文本61：光标定位到指定工作表A列最后数据行下一单元62：定位选定单元格式相同的所有单元格63：按当前单元文本定位64：按固定文本定位65：删除包含固定文本单元的行或列66：定位数据及区域以上的空值67：右侧单元自动加5(工作表代码)68：当前单元加269：A列等于A列减B列70：用于光标选定多区域跳转指定单元(工作表代码)71：将A1单元录入的数据累加到B1单元（工作表代码）72：在指定颜色区域选择单元时添加/取消√（工作表代码）73：在指定区域选择单元时添加/取消√（工作表代码）74：双击指定单元，循环录入文本（工作表代码）75：双击指定单元，循环录入文本（工作表代码）76：单元区域引用（工作表代码）77：在指定区域选择单元时数值加1（工作表代码）78：混合文本的编号79：指定区域单元双击数据累加（工作表代码）80：选择单元区域触发事件（工作表代码）81：当修改指定单元内容时自动执行宏（工作表代码）82：被指定单元内容限制执行宏83：双击单元隐藏该行（工作表代码）84：高亮显示行（工作表代码）85：高亮显示行和列（工作表代码）86：为指定工作表设置滚动范围（工作簿代码）87：在指定单元记录打印和预览次数（工作簿代码）88：自动数字金额转大写（工作表代码）89：将所有工作表的A1单元作为单击按钮（工作簿代码）90：闹钟——到指定时间执行宏（工作簿代码）91：改变Excel界面标题的宏（工作簿代码）92：在指定工作表的指定单元返回光标当前多选区地址（工作簿代码）93：B列录入数据时在A列返回记录时间（工作表代码）94：当指定区域修改时在其右侧的2个单元返回当前日期和时间（工作表代码）95：指定单元显示光标位置内容（工作表代码）96：每编辑一个单元保存文件97：指定允许编辑区域98：解除允许编辑区域限制99：删除指定行100：删除A列为指定内容的行1：打开所有隐藏工作表Sub打开所有隐藏工作表()DimiAsIntegerFori=1ToSheets.CountSheets(i).Visible=TrueNextiEndSub2：循环宏Sub循环()AAA=Range(C2)DimiAsLongDimtimesAsLongtimes=AAA'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)Fori=1TotimesCall过滤一行IfRange(完成标志)=完成ThenExitFor'假如名为'完成标志'的命名单元的值等于'完成',则退出循环,假如一开始就等于'完成',则只执行一次循环就退出'IfSheets(传送参数).Range(A&i).Text=完成ThenExitFor'假如某列出现完成内容则退出循环NextiEndSub3：录制宏时调用“停止录制”工具栏Sub录制宏时调用停止录制工具栏()Application.CommandBars(StopRecording).Visible=TrueEndSub4：高级筛选5列不重复数据至指定表Sub高级筛选5列不重复数据至Sheet2()Sheets(Sheet2).Range(A1:E65536)='清除Sheet2的A:D列Range(A1:E65536).AdvancedFilterAction:=xlFilterCopy,CopyToRange:=Sheet2.Range(_A1),Unique:=TrueSheet2.Columns(A:E).SortKey1:=Sheet2.Range(A2),Order1:=xlAscending,Header:=xlGuess,_OrderCustom:=1,MatchCase:=False,Orientation:=xlTopToBottom,SortMethod_:=xlPinYinEndSub5：双击单元执行宏(工作表代码)PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)IfRange($A$1)=关闭ThenExitSubSelectCaseTarget.AddressCase$A$4Call宏1Cancel=TrueCase$B$4Call宏2Cancel=TrueCase$C$4Call宏3Cancel=TrueCase$E$4Call宏4Cancel=TrueEndSelectEndSub6：双击指定区域单元执行宏(工作表代码)PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)IfRange($A$1)=关闭ThenExitSubIfNotApplication.Intersect(Target,Range(A4:A9,C4:C9))IsNothingThenCall打开隐藏表EndSub7：进入单元执行宏(工作表代码)PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)'以单元格进入代替按钮对象调用宏IfRange($A$1)=关闭ThenExitSubSelectCaseTarget.AddressCase$A$5'单元地址(Target.Address),或命名单元名字(Target.Name)Call宏1Case$B$5Call宏2Case$C$5Call宏3EndSelectEndSub8：进入指定区域单元执行宏(工作表代码)PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)IfRange($A$1)=关闭ThenExitSubIfNotApplication.Intersect(Target,Range(A4:A9,C4:C9))IsNothingThenCall打开隐藏表EndSub9：在多个宏中依次循环执行一个（控件按钮代码）PrivateSubCommandButton1_Click()StaticRunMacroAsIntegerSelectCaseRunMacroCase0宏1RunMacro=1Case1宏2RunMacro=2Case2宏3RunMacro=0EndSelectEndSub10：在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）PrivateSubCommandButton1_Click()WithCommandButton1If.Caption=保护工作表ThenCall保护工作表.Caption=取消工作表保护ExitSubEndIfIf.Caption=取消工作表保护ThenCall取消工作表保护.Caption=保护工作表ExitSubEndIfEndWithEndSub11：在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）OptionExplicitPrivateSubCommandButton1_Click()WithCommandButton1If.Caption=宏1ThenCall宏1.Caption=宏2ExitSubEndIfIf.Caption=宏2ThenCall宏2.Caption=宏3ExitSubEndIfIf.Caption=宏3ThenCall宏3.Caption=宏1ExitSubEndIfEndWithEndSub12：根据A1单元文本隐藏/显示按钮（控件按钮代码）PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)IfRange(A1)2ThenCommandButton1.Visible=1ElseCommandButton1.Visible=0EndIfEndSubPrivateSubCommandButton1_Click()重排窗口EndSub13：当前单元返回按钮名称（控件按钮代码）PrivateSubCommandButton1_Click()ActiveCell=CommandButton1.CaptionEndSub14：当前单元内容返回到按钮名称（控件按钮代码）PrivateSubCommandButton1_Click()CommandButton1.Caption=ActiveCellEndSub15：奇偶页分别打印Sub奇偶页分别打印()Dimi%,Ps%Ps=ExecuteExcel4Macro(GET.DOCUMENT(50))'总页数MsgBox现在打印奇数页,按确定开始.Fori=1ToPsStep2ActiveSheet.PrintOutfrom:=i,To:=iNextiMsgBox现在打印偶数页,按确定开始.Fori=2ToPsStep2ActiveSheet.PrintOutfrom:=i,To:=iNextiEndSub16：自动打印多工作表第一页Sub自动打印多工作表第一页()DimshAsIntegerDimxDimyDimsyDimsyzx=InputBox(请输入起始工作表名字:)sy=InputBox(请输入结束工作表名字:)y=Sheets(x).Indexsyz=Sheets(sy).IndexForsh=yTosyzSheets(sh).SelectSheets(sh).PrintOutfrom:=1,To:=1NextshEndSub17：查找A列文本循环插入分页符Sub循环插入分页符()'Selection=Workbooks(临时表).Sheets(表2).Range(A1)调用指定地址内容DimiAsLongDimtimesAs