Excel可以使用的两百多个常用宏

代码目录链接类别指定允许编辑区域点击编辑解除允许编辑区域限制点击编辑返回光标所在行数点击查找和引用在A1返回当前选中单元格数量点击查找和引用返回当前工作簿中工作表数量点击查找和引用返回光标选择区域的行数和列数点击查找和引用工作表中包含数据的最大行数点击查找和引用返回A列数据的最大行数点击查找和引用返回A列最后一个非空单元行号点击查找和引用返回表中第一个非空单元地址(行搜索)点击查找和引用返回表中各非空单元区域地址(行搜索)点击查找和引用返回第一个数值行号点击查找和引用返回第1行最右边非空单元的列号点击查找和引用返回连续数值单元的数量点击查找和引用统计指定范围和内容的单元数量点击查找和引用统计不同颜色的数字的和（自定义函数）点击查找和引用返回非空单元数量点击查找和引用返回A列非空单元数量点击查找和引用把a列不重复值取到e列点击查找和引用当前选区的行列数点击查找和引用将B列数据添加超链接到K列点击超链接删除B列数据的超链接点击超链接分离临时表A列数据的文本和超链接并整理到数据库表点击超链接分离临时表A列数据的文本和超链接并会同其他数据整理到数据库表点击超链接重排窗口点击窗口将第5行移到窗口的最上面点击窗口奇偶页分别打印点击打印自动打印多工作表第一页点击打印查找A列文本循环插入分页符点击打印在指定单元记录打印和预览次数（工作簿代码）点击打印定义指定单元内容为页眉/页脚点击打印对指定工作表执行取消隐藏》打印》隐藏工作表点击打印显示指定工作表的打印预览点击打印弹出打印对话框点击打印返回总页码点击打印不连续区域插入当前文件名和表名及地址点击单元赋值不连续区域录入当前单元地址点击单元赋值连续区域录入当前单元地址点击单元赋值返回当前单元地址点击单元赋值不连续区域录入当前日期点击单元赋值不连续区域录入当前数字日期点击单元赋值不连续区域录入当前日期和时间点击单元赋值不连续区域录入对勾点击单元赋值不连续区域录入当前文件名点击单元赋值不连续区域添加文本点击单元赋值不连续区域插入文本点击单元赋值从指定位置向下同时录入多单元指定内容点击单元赋值当前单元录入计算机名点击单元赋值当前单元录入计算机用户名点击单元赋值拷贝A1公式和格式到A2点击单元赋值复制单元数值点击单元赋值添加文本点击单元赋值右侧单元自动加5(工作表代码)点击单元赋值当前单元加2点击单元赋值A列等于A列减B列点击单元赋值将A1单元录入的数据累加到B1单元（工作表代码）点击单元赋值在指定颜色区域选择单元时添加/取消√（工作表代码）点击单元赋值在指定区域选择单元时添加/取消√（工作表代码）点击单元赋值双击指定单元，循环录入文本（工作表代码）点击单元赋值单元区域引用（工作表代码）点击单元赋值在指定区域选择单元时数值加1（工作表代码）点击单元赋值混合文本的编号点击单元赋值指定区域单元双击数据累加（工作表代码）点击单元赋值自动数字金额转大写（工作表代码）点击单元赋值当指定区域修改时在其右侧的2个单元返回当前日期和时间（工作表代码）点击单元赋值指定单元显示光标位置内容（工作表代码）点击单元赋值将Sheet1的A列的非空值写到Sheet2的A列点击单元赋值将全部工作表名称写到A列点击单元赋值将A列数据排序到D列点击单元赋值将指定范围的数据排列到D列点击单元赋值使单元内容保持不变的工作表代码点击单元赋值拷贝指定表不相邻多列数据到新位置点击单元赋值在所有工作表的A1单元返回顺序号点击单元赋值在A列产生不重复随机数点击单元赋值将A列数据随机排列到F列点击单元赋值取消选定区域的公式只保留值(假空转真空)点击单元赋值填公式点击单元赋值清除A列再插入序号点击单元赋值提示并全部清除当前选择区域点击单元赋值全部清除当前选择区域点击单元赋值清除指定区域数值点击单元赋值对第一张工作表的指定区域进行排序点击单元赋值在A和B列返回当前选区的名称和公式点击单元赋值光标定位到指定工作表A列最后数据行下一单元点击定位定位选定单元格式相同的全部单元格点击定位按当前单元文本定位点击定位按固定文本定位点击定位删除包含固定文本单元的行或列点击定位定位数据及区域以上的空值点击定位用于光标选定多区域跳转指定单元(工作表代码)点击定位为指定工作表设置滚动范围（工作簿代码）点击定位选择下一行点击定位选择第5行开始所有数据行点击定位选择光标或选区所在行点击定位选择光标或选区所在列点击定位选择到指定列的最后行点击定位单元反选点击定位光标移动点击定位按当前单元文本选择打开指定文件单元点击定位回车光标向右点击定位回车光标向下点击定位全选固定范围内小于0的单元点击定位全选选定范围内小于0的单元点击定位选择2至4行点击定位将A列最后数据行以上的所有B列图片大小调整为所在单元大小点击对象将所选区域文本插入新建文本框点击对象将全部工作表的A1单元作为单击按钮（工作簿代码）点击对象去除指定范围内的对象点击对象在M和N列的14行以下选择单元时显示调用日历控件（工作表代码）点击对象插入数值条件格式点击格式调整选中对象中的文字点击格式按光标选定颜色隐藏本列其他颜色行点击格式固定区域单元分类变色点击格式A列半角内容变红点击格式强行合并单元点击格式设置单元区域格式点击格式指定行高和列宽点击格式指定单元的行高和列宽与A1单元相同点击格式打开全部隐藏工作表点击工作表按aa工作表A列的内容排列工作表标签顺序点击工作表以A1单元文本作表名插入工作表点击工作表删除全部未选定工作表点击工作表工作表标签排序点击工作表定义指定工作表标签颜色点击工作表建立工作表文本目录点击工作表查另一文件的全部表名点击工作表解除全部工作表保护点击工作表以指定区域为表目录补充新表点击工作表按A列数据批量修改表名称点击工作表按A列数据批量创建新表(控件按钮代码)点击工作表保护工作表时取消选定锁定单元点击工作表深度隐藏指定工作表点击工作表隐藏指定工作表点击工作表隐藏当前工作表点击工作表返回当前工作表名称点击工作表获取上一次所进入工作簿的工作表名称点击工作表打开工作簿自动隐藏录入表以外的其他表点击工作表除最左边工作表外深度隐藏所有表点击工作表关闭文件时自动隐藏指定工作表(ThisWorkbook)点击工作表打开文件时提示指定工作表是保护状态(ThisWorkbook)点击工作表建立当前工作表的副本为001表点击工作表在第一个表前插入多工作表点击工作表撤消工作表保护并取消密码点击工作表重算指定表点击工作表隐藏指定工作表的指定列点击工作表单元格录入1位字符就跳转(工作表代码)点击工作表当前行下插入1行点击工作表取消指定行或列的隐藏点击工作表新建一个工作表点击工作表选择多表为工作组点击工作表新建一个工作簿点击工作簿复制当前工作簿的报表到临时工作簿点击工作簿删除指定文件点击工作簿删除指定行点击行列操作删除A列为指定内容的行点击行列操作删除A列非数字单元行点击行列操作有条件删除当前行点击行列操作光标所在行上移一行点击行列操作隐藏/显示指定列空值行点击行列操作插入10行点击行列操作删除A列空行点击行列操作循环宏点击宏管理双击单元执行宏(工作表代码)点击宏管理双击指定区域单元执行宏(工作表代码)点击宏管理进入单元执行宏(工作表代码)点击宏管理进入指定区域单元执行宏(工作表代码)点击宏管理在多个宏中依次循环执行一个（控件按钮代码）点击宏管理在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）点击宏管理在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）点击宏管理根据A1单元文本隐藏/显示按钮（控件按钮代码）点击控件当前单元返回按钮名称（控件按钮代码）点击控件当前单元内容返回到按钮名称（控件按钮代码）点击控件为指定工作表加指定密码保护表点击密码在有密码的工作表执行代码点击密码执行前需要验证密码的宏(控件按钮代码)点击密码光标定位到名称指定位置点击名称选择名称定义的数据区点击名称将名称1的数据写到名称2点击名称为当前选定的多单元插入指定名称点击名称删除全部名称点击名称批量插入地址批注点击批注批量插入统一批注点击批注以A1单元内容批量插入批注点击批注插入透明批注点击批注合并A1至C1的内容写到D15单元的批注中点击批注录制宏时调用“停止录制”工具栏点击其他高亮显示行（工作表代码）点击其他高亮显示行和列（工作表代码）点击其他改变Excel界面标题的宏（工作簿代码）点击其他清除剪贴板点击其他批量清除软回车点击其他在F1单元显示光标位置批注内容的代码点击其他显示光标所在单元的批注的代码点击其他处理导入的显示为科学计数法样式的身份证号点击其他返回圆周率π点击其他添加自定义序列点击其他返回光标所在行号点击其他VBA返回公式结果点击其他复制单元格所在行点击其他复制单元格所在列点击其他自动重算点击其他手动重算点击其他高级筛选5列不重复数据至指定表点击筛选自动筛选全部显示指定列点击筛选自动筛选第2列值为A的行点击筛选取消自动筛选()点击筛选全部显示指定表的自动筛选点击筛选选择单元区域触发事件（工作表代码）点击事件当修改指定单元内容时自动执行宏（工作表代码）点击事件被指定单元内容限制执行宏点击事件双击单元隐藏该行（工作表代码）点击事件闹钟——到指定时间执行宏（工作簿代码）点击事件B列录入数据时在A列返回记录时间（工作表代码）点击事件每编辑一个单元保存文件点击事件判断指定文件是否已经打开点击事件单元格录入数据时运行宏的代码点击事件焦点到A列时运行宏的代码点击事件有条件执行宏点击事件有条件执行不同的宏点击事件提示确定或取消执行宏点击事件提示开始和结束点击事件在当前选区有条件替换数值为文本点击事件根据A1单元内容返回C1数值点击事件根据A1内容选择执行宏点击事件打开文件时执行指定宏(工作簿代码)点击事件关闭文件时执行指定宏(工作簿代码)点击事件延时15秒执行重排窗口宏点击事件合并各工作表内容点击事件合并指定目录中所有文件中相同格式工作表的数据点击事件当指定日期（每月10日）打开文件执行宏点击事件提示并清空单元区域点击事件在当前工作组各表中分别执行指定宏点击事件更新透视表数据项点击数据加数据有效限制点击数据取消数据有效限制点击数据根据B列最后数据快速合并A列单元格的控件代码点击数据按照当前行A列的图片名称插入图片到H列点击图片在目录表建立本工作簿中各表链接目录点击文件管理当前文件另存到指定目录点击文件管理另存指定文件名点击文件管理以本工作表名称另存文件到当前目录点击文件管理将本工作表单独另存文件到Excel当前默认目录点击文件管理以活动工作表名称另存文件到Excel当前默认目录点击文件管理另存所有工作表为工作簿点击文件管理以指定单元内容为新文件名另存文件点击文件管理以当前日期为新文件名另存文件点击文件管理以当前日期和时间为新文件名另存文件点击文件管理另存本表为TXT文件点击文件管理引用指定位置单元内容为部分文件名另存文件点击文件管理保存并退出Excel点击文件管理用单元格A1的内容作为文件名另存当前工作簿点击文件管理[禁用/启用]保存和另存的代码点击文件管理在指定工作表的指定单元返回光标当前多选区地址（工作簿代码）点击信息返回指定单元的行高和列宽点击信息指定选择单元区域弹出消息点击信息弹出提示A1单元内容点击信息朗读朗读A列,按ESC键中止点击语音朗读固定语句，请按ESC键终止点击语音反方向文本(自定义函数)点击自定义函数宏文件集▲打开全部隐藏工作表返回Sub打开全部隐藏工作表()DimiAsIntegerFori=1ToSheets.CountSheets(i).Visible=TrueNextiEndSub▲循环宏返回Sub循环()AAA=Range(C2)DimiAsLongDimtimesAsLongtimes=AAA'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)Fori=1TotimesCall过滤一行IfRange(完成标志)=完成ThenExitFor'如果名为'完成标志'的命名单元的值等于'完成',则退出循环,如果一开始就等于'完成',则只执行一次循环就退出'IfSh