副本Excel宏---259个常用宏

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