Excel常用命令

合集下载

Excel常用快捷键大全(汇总)

21.复制上面单元格的数据到下面的单元格：：Ctrl+D 22.复制左边的数据到右边的单元格：Ctrl+R 23.选定当前区域：Ctrl+* 24.设置单元格格式：Ctrl+1 25.加粗：Ctrl+2 26.斜体：Ctrl+3 27.下划线：Ctrl+4 28.关闭“office助手”提供的消息：Esc 29.通过“office助手”获取帮助信息：F1 30.显示下一项提示：Alt+N 31.显示前一项提示：Alt+B 32.在向导中显示或隐藏“office助手”：空格键 33.切换到下一个程序：Alt+Tab 34.切换到前一个程序：Alt+Shift+Tab 35.显示windwos“开始”菜单：Ctrl+Esc 36.关闭活动工作薄窗口：Ctrl+W 37.恢复活动工作薄窗口：Ctrl+F5 38.切换到下一个工作薄窗口：Ctrl+F6 39.隐藏行：Ctrl+9 40.取消隐藏行：Ctrl+Shift+( 41.隐藏列：Ctrl+0 42.取消隐藏列：Ctrl+Shift+) 43.显示“单元格”命令：Ctrl+1
55.显示或隐藏“常用”工具栏：Ctrl+7
55.移到行首：Home
56.取消行或列分组：Alt+Shift+左方向键
56.移到行尾：End
57.对行或列分组：Alt+Shift+右方向键
57.编辑单元格批注：Shift+F2
58.显示或隐藏分级显示符号：Ctrl+8
58.由行或列标志创建名称：Ctrl+Shift+F3

excel常用命令及使用方法

excel常用命令及使用方法一、基本概念Excel是Microsoft公司推出的一款功能强大的电子表格软件，它提供了丰富的函数和工具，可以用于数据计算、分析、筛选、汇总等。

在Excel中，常用的命令和功能包括单元格、工作表、数据筛选、数据排序、数据透视表等，熟练掌握这些命令和功能，可以大大提高工作效率。

1. 单元格：选中单元格后，可以使用该单元格周围的工具栏进行各种操作，如填充、格式化、求和等。

使用方法：选中单元格后，可以看到该单元格周围的工具栏中显示了一些常用的命令，如“求和”、“排序”、“格式化”等，可以根据需要选择相应的命令。

2. 工作表：Excel中包含多个工作表，每个工作表可以存放不同的数据类型。

在工作表中，可以使用不同的命令进行数据输入、编辑、格式化等操作。

使用方法：在工作表中，可以通过单击工作表标签来切换不同的工作表，每个工作表标签下方都有一些常用的命令按钮，如“插入”、“删除”、“格式化”等，可以根据需要选择相应的命令。

3. 数据筛选：Excel提供了数据筛选功能，可以根据不同的条件对数据进行筛选，方便用户快速找到需要的数据。

使用方法：在数据表中，单击工具栏中的“筛选”按钮，在每个列标题处会出现一个下拉箭头，单击下拉箭头可以选择不同的筛选条件和值。

4. 数据排序：Excel提供了数据排序功能，可以根据不同的数据类型进行排序，方便用户快速整理数据。

使用方法：在数据表中，单击工具栏中的“排序”按钮，在弹出的对话框中选择排序依据和排序方式，单击“确定”即可完成排序。

5. 公式和函数：Excel提供了丰富的函数和公式，可以用于数据计算、统计和分析。

使用方法：在单元格中输入函数或公式的名称和参数，按回车键即可得到结果。

常用的函数包括求和、平均值、计数等。

6. 图表：Excel提供了多种图表类型，可以用于数据可视化。

使用方法：选中需要制作图表的数据区域，然后单击工具栏中的“图表”按钮，选择相应的图表类型和布局，单击“确定”即可完成图表制作。

excel表格常用操作命令

excel表格常用操作命令办公室文员、助理都可以学学，留着迟早用得着！一、输入三个“=”，回车，得到一条双直线；二、输入三个“~”，回车，得到一条波浪线；三、输入三个“*”或“-”或“#”，回车，惊喜多多；在单元格内输入=now（）显示日期在单元格内输入=CHOOSE(WEEKDAY(I3,2),"星期一","星期二","星期三","星期四","星期五","星期六","星期日") 显示星期几Excel常用函数大全.隔行颜色效果（奇数行颜色）：=MOD(ROW(),2)=12.隔行颜色效果（偶数行颜色）：=MOD(ROW(),2)=03.如果希望设置格式为每3行应用一次底纹，可以使用公式：=MOD(ROW(),3)=14.如果希望设置奇偶列不同底纹，只要把公式中的ROW()改为COLUMN()即可，如：=MOD(COLUMN(),2)5.如果希望设置国际象棋棋盘式底纹(白色＋自定义色):=MOD(ROW()+COLUMN(),2)说明：该条件格式的公式用于判断行号与列号之和除以2的余数是否为0。

如果为0，说明行数与列数的奇偶性相同，则填充单元格为指定色，否则就不填充。

在条件格式中，公式结果返回一个数字时，非0数字即为TRUE，0和错误值为FALSE。

因此，上面的公式也可以写为：=MOD(ROW()+COLUMN(),2)<>06.如果希望设置国际象棋棋盘式底纹(自定义色＋自定义色):加入样式2：=MOD(ROW()+COLUMN(),2)=0二。

用颜色进行筛选excel2007可以按单元格颜色、字体颜色或图标进行排序。

如果是excel2003，需要添加辅助列，用定义名称的方法得到对应的颜色号，然后对辅助列进行排序：颜色单元格在A列，选中B1,插入->名称->定义，输入a，下面输入公式=get.cell(24,$a1)，此法可得到字体色的序列号。

excell常用命令

一、单元格内换行1、ALT+ENTER （不随单元格大小改变）2、格式/单元格式/自动换行（随单元格大小改变）二、显示计算式1、在B1设置名称/EVALUATE($A1),那么B1返回A1的值三、取整函数1、INT(A1),向下取整，若A1=189.85,则返回1892、FIXED(A1,n),n为保留小数位数，四舍五入。

例：FIXED(A1,2),若A1=189.8567,则返回189.863、TRUNC(A1,n),n为保留小数位数，不四舍五入。

例：FIXED(A1,2),若A1=189.8567,则返回189.854、RMB(A1),例：RMB（A1），若A1=1889.8567,则返回￥1,889.86四、小写数字转换为人民币大写1、自己编的 "大写（人民币）："&IF(A1-INT(A1)<0.005,TEXT(INT(A1),"[dbnum2]")&"元整",IF(A1*10-INT(A1*10)<0.05,TEXT(INT(A1),"[dbnum2]")&"元"&TEXT(INT(A1*10-INT(A1)*10),"[dbnum2]")&"角整",TEXT(INT(A1),"[dbnum2]")&"元"&TEXT(INT(A1*10-INT(A1)*10),"[dbnum2]")&"角"&TEXT((FIXED(A1*100,0)-INT(A1*10)*10),"[dbnum2]")&"分"))测试中...... 测试成功，只限于正数A1 单元格为想转换的数值2、高手编的TEXT(LEFT(RMB(A1),LEN(RMB(A1))-3),"[>0][dbnum2]G/通用格式元;[<0]负[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整")五、选择性粘贴的用处数值/加/减/乘/除/转置...........六、RIGHT/MID/LEFT 函数的应用RIGHT(A1,2),若A1=我爱玫瑰花，则返回我爱返回字符窜前2个字符LEFT(A1,3),若A1=我爱玫瑰花，则返回玫瑰花返回字符窜后3个字符MID(A1,2,3),若A1=我爱玫瑰花，则返回爱玫瑰返回从第2个字符开始的3个字符七、打印格式的设置1、设定打印区域框选需要打印的区域/文件/打印区域/设置打印区域2、页眉页眉标题可以选择（工作表名称/标签名称）3、页脚设置页码等....4、可以设置锁定顶端标题行/左端标题行页面设置/工作表/顶端标题行5、页码可以在页面/起始页码设置开始打印的其实页码八、关于单元格零值显示为空白的几种方法1、(1)在格式/自定义中找到_ * #,##0.00_ ;_ * -#,##0.00_ ;_ * "-"??_ ;_ @_(2)把它改为_ * #,##0.00_ ;_ * -#,##0.00_ ;_ * " "??_ ;_ @_(3)在需要设置的一列选择修改后的格式2、用if条件如果公式结果等于零显示" " 不等于零则等于公式结果3、如果只是想不显示0的话,在工具>选项里把零值前面的勾去掉就行了九、日期函数=today（）十、关于汇总1、满足一个条件的汇总SUMIF(A1:A12,C1,B1:B12),若A1:A12中满足单元格C1（C1也可是具体数字），返回对应B1:B12相应单元格之和。

excel命令汇总

想在单位混的好，Excel要熟知（特全）
１、自动筛选２、字符替换３、表里编辑宏４、表中导入外部数据５、行列快速转换６、在表中运行宏
７、在表中添加宏８、文字与字母的分列合并９、加多个视图１０、设置
表中打印区域１１、表中建立图表
１２、获取网络数据１３、表中搜索函数１４、表中插入超级键接１５、
打印指定页面１６、冻结行、列标题
１７、调用宏１８、用函数向导输入公式１９、一次打开多个表２０、锁
定和隐藏公式２１、共享工作表
２２、将公式转换为数值２３、标签颜色２４、设只读密码２５、防止数
据重复办理入２６、添加页眉页脚
２７、表中加单位２８、更改保存位置２９、拆分窗口３０、保护工作蒲
３１、调用宏３２、自动填充序列
３３、设置数据对齐方式３４、直接输入函数３５、字符格式设置３６、
输入数据下拉列表３７、正确输入身份证号码
３８、页面背景设置３９、数据输入范围控制41、数据排序操作４０、如
何按条件显示、４２、如何利用高级
４３、数据格式设置４４、模板的保存和调用４５、监视窗口４６、行列
隐藏操作４７、姓名信息４８、工作表加密保存４９、引用方式转换５０、中文日期格式５１、工作表移动５２、工作表复制５３、分区域锁定
５４、行列高设置５５、大写数字设置５６、单元格合并５７、加载宏
５８、表格标题重复打印５９、表格边框设置
６０、跨列居中６１、公式求值。

Excel表格实用技巧大全及全部快捷键

Excel表格实用技巧大全及全部快捷键一、让数据显示不一致颜色在学生成绩分析表中，假如想让总分大于等于500分的分数以蓝色显示，小于500分的分数以红色显示。

操作的步骤如下：首先，选中总分所在列，执行“格式→条件格式”，在弹出的“条件格式”对话框中，将第一个框中设为“单元格数值”、第二个框中设为“大于或者等于”，然后在第三个框中输入500，单击[格式]按钮，在“单元格格式”对话框中，将“字体”的颜色设置为蓝色，然后再单击[添加]按钮，并以同样方法设置小于500，字体设置为红色，最后单击[确定]按钮。

这时候，只要你的总分大于或者等于500分，就会以蓝色数字显示，否则以红色显示。

二、将成绩合理排序假如需要将学生成绩按着学生的总分进行从高到低排序，当遇到总分一样的则按姓氏排序。

操作步骤如下：先选中所有的数据列，选择“数据→排序”，然后在弹出“排序”窗口的“要紧关键字”下拉列表中选择“总分”，并选中“递减”单选框，在“次要关键字” 下拉列表中选择“姓名”，最后单击[确定]按钮。

三.分数排行:假如需要将学生成绩按着学生的总分进行从高到低排序，当遇到总分一样的则按姓氏排序。

操作步骤如下：先选中所有的数据列，选择“数据→排序”，然后在弹出“排序”窗口的“要紧关键字”下拉列表中选择“总分”，并选中“递减”单选框，在“次要关键字” 下拉列表中选择“姓名”，最后单击[确定]按钮四、操纵数据类型在输入工作表的时候，需要在单元格中只输入整数而不能输入小数，或者者只能输入日期型的数据。

幸好Excel 2003具有自动推断、即时分析并弹出警告的功能。

先选择某些特定单元格，然后选择“数据→有效性”，在“数据有效性”对话框中，选择“设置”选项卡，然后在“同意”框中选择特定的数据类型，当然还要给这个类型加上一些特定的要求，如整数务必是介于某一数之间等等。

另外你能够选择“出错警告”选项卡，设置输入类型出错后以什么方式出现警告提示信息。

EXCLE实用操作大全

EXCLE实用操作大全1.快速删除选定区域数据如果用鼠标右键向上或向左(反向)拖动选定单元格区域的填充柄时，没有将其拖出选定区域即释放了鼠标右键，则将删除选定区域中的部分或全部数据(即拖动过程中变成灰色模糊的单元格区域，在释放了鼠标右键后其内容将被删除)。

2.快速移动/复制单元格 : Ctrl先选定单元格，然后移动鼠标指针到单元格边框上，按下鼠标左键并拖动到新位置，然后释放按键即可移动。

若要复制单元格，则在释放鼠标之前按下Ctrl 即可。

3.快速修改单元格式次序: Shift在拖放选定的一个或多个单元格至新位置的同时，按住Shift键可以快速修改单元格内容的次序。

方法为:选定单元格，按下Shift键，移动鼠标指针至单元格边缘，直至出现拖放指针箭头，然后进行拖放操作。

上下拖拉时鼠标在单元格间边界处会变成一个水平“工”状标志，左右拖拉时会变成垂直“工”状标志，释放鼠标按钮完成操作后，单元格间的次序即发生了变化。

4.快速查找在执行查找操作之前，可以将查找区域确定在某个单元格区域、整个工作表（可选定此工作表内的任意一个单元格）或者工作簿里的多个工作表范围内。

在输入查找内容时，可以使用问号（？）和星号（*）作为通配符，以方便查找操作。

问号（？）代表一个字符，星号（*）代表一个或多个字符。

需要注意的问题是，既然问号（？）和星号（*）作为通配符使用，那么如何查找问号（？）和星号（*）呢？只要在这两个字符前加上波浪号(～)就可以了。

5.在多个Excel工作簿间快速切换: Ctrl+Tab按下“Ctrl+Tab”可在打开的工作簿间切换。

6.双击单元格某边选取单元格区域如果在双击单元格边框的同时按下Shift键，根据此方向相邻单元格为空白单元格或非空白单元格选取从这个单元格到最远空白单元格或非空白单元格的区域。

7.快速选定不连续单元格按下组合键“Shift+F8”，激活“添加选定”模式，此时工作簿下方的状态栏中会显示出“添加”字样，以后分别单击不连续的单元格或单元格区域即可选定，而不必按住Ctrl键不放。

excel指令大全

1、编辑公式F2（快捷方式）；2、在已有的单元格中批量加入一段固定字符（&命令+ 拖曳）；3、F9可计算出选中部分对应的结果；4、Ctrl+`键可快速查看公式内容和公式结果；5、D:D 第D列全部单元格；6、D:H第D列和第H列的所有单元格；7、R2C8 第2行和第8列交叉处的单元格；8、R[2]C[8] 下2行右8行所指的单元格；9、C 当前光标所在位置的单元格；10、$是绝对引用的意思（D3 $D$3）；11、绝对引用和相对引用可以用F4键快速切换；12、=DATE(2014,1,4)-TODAY()&"天" 这是一个倒计时的公式；13、=DATE(MID(A4,1,4),MID(A4,5,2),MID(A4,7,2))非日期格式转化成日期格式公式；14、=DATEV ALUE("2013-11-04")表示的是将日期文本转化成所对应的序列号的函数；15、=DATEDIF(A14,TODAY(),"Y") 计算年龄；16、WEEKDAY() 函数用于返回特定日期所对应的星期数；17、year（）函数用于返回某制定日期对应的年份；18、year（today（））-year（a2）表示计算年龄；19、yearfrac（）函数用于返回两个日期之间的天数占全年天数的百分比；20、edate（）函数用于返回两个日期之间的天数所占全年天数的百分比；21、emonth（）函数用于返回特定日期之前或之后月份中的最后一天日期；22、networkdays()函数用于返回指定两个日期之间完整的工作日数值，不包括周末和指定的假期；23、time（）函数用于返回某一特定时间的小数值；24、=TIMEV ALUE("8:30:00")函数可以将任何时间转换成时间小数值；25、minute（）从给定的时间中提取分钟数；26、second（）从给定的时间中提取秒数；27、hour（）从给定的时间中提取时钟数；28、not（）求反函数；29、left（）是一个文本函数，从特定字符串中提取指定位数的字符串；30、vlookup（）false精确查找ture近似查找；31、if(A2>=85,”A”,if(A2>=70,”B”,if(A2>=60,”C”,if(A2<60,”D”))))一个if函数的简单应用主要看清楚括号；32、理解一个if和or组合函数if(or(a2=”硬盘”,a2=”内存”,a2=”cpu”),”电脑设备”,”其他办公用品”)33、个人所得税中if的应用If(“a2<=1000,””,if(a2<=5000,(a2-1000)*0.1,if(a2<=10000,(a2-5000)*0.15+25,if(a2<= 20000,(a2-10000)*0.2+125,(a2-20000)*0.25+375))))34、asc()可以将字符串中的全角英文字符更改为半角英文字符；35、char()用于返回数字代码所对应的字符；36、code()返回文本字符串中的第一个字符所对应的数学代码；37、concatenate()在某列字符后面快速添加固定字符；38、exact()用于测试两个字符串是否完全相同，如果是，返回true；反之，返回false；39、left()从指定的字符串中的最左边开始返回指定书目的字符；40、leftb()从指定的字符串中的最左边开始返回指定书目的字符（以字节为单位）；41、len()用于返回字符串的长度；42、mid()用于从文本字符串中提取指定位置开始的特定书目的字符；43、proper()用于将文本字符串中的首字母及任何非首字母之后的首字母转换成大写；44、replace()是使用其他文本字符串并根据指定的字数替换另一文本字符串中的部分文本；45、rept()用于按照给定的次数重复显示文本；46、right()用于返回某个文本字符串中最后一个或几个字符；47、search()用于从文本字符串中查找特定字符或文本字符串的位置编号；48、substitute()用于在文本字符串中，用特定文本来替代文本字符串指定的旧文本；49、text()将数值转换成为按指定数字格式表示的文本；50、trim()删除文本单词之间的单个空格之外的所有空格；51、upper()用于将文本转换成大写形式；52、lower()用于将一个文本字符串中的所有大写字母转换成小写字母；53、dollar()用于按照货币格式将小数四舍五入到指定的位数并转换成文本；54、rmb()按照货币格式将小数四舍五入到指定的位数并转换成文本；55、bahttext()将数字转换成泰语文本并添加前缀“泰铢”；56、value()将代表数字的文本字符串换成数字；57、sum()用于返回某一单元格区域中所有数字之和；58、数组公式必须按组合键（shift+ctrl+enter）才能得到正确结果；59、abs()用于计算指定数值的绝对值；60、ceiling()用于将参数number向上舍入（沿绝对值增大的方向）为最接近的significance的倍数；61、int()用于将指定数值向下取整为最接近的整数；62、trunc()用于将数字的小数部分截去；63、floor()用于将number向下舍入（向零的方向）到最接近的significance的倍数；64、round()用于按指定位数对其数值进行四舍五入；65、mround()用于返回参数按指定基数舍入后的数值；66、roundup()用于按照指定的位数对数值进行向上舍入；67、rounddown()用于按照指定的位数对数值进行向下舍入；68、even()用于指定的数值沿绝对值增大方向取整，并返回最接近的偶数；69、odd()用于将指定的数值沿绝对值增大方向取整，并返回最接近的奇数；70、mod()用于求两个数值相除后的余数，其结果的正负号与除数相同；71、quotient()用于返回两个数值相处后的整数部分，即舍去商的小数部分；72、gcd()用于返回两个或多个整数的最大公约数；73、lcm()计算两个或多个整数的最小公倍数；74、product()求任意长方体的体积；75、power()求任意数值（底数）的三次或多次指数的方根值；76、rand()返回一个大于等于0小于1的随机数如果要生成a、b之间的随机实数，可以使用公式“=rand()*(b-a)+a”如果在某一个单元格内应用公式”=rand()”，然后再编辑状态下按住F9键，将会产生一个变化的随机数；=ROUND(RAND()*99+1,0) 随机自动生成1~100之间的整数值；77、randbetween()用于返回位于两个指定数值之间的一个随机数；78、roman()用于将阿拉伯数字转换成文本形式的罗马数字；79、sign()用于返回数值所对应的符号，整数返回1；零返回0；负数返回-1；80、sqrt()用于返回指定正数值的算术平方根；81、sqrtpi()用于返回指定正数值与π的乘积的平方根值；82、sumproduct()用于在指定的几组数组中，将数组间对应的元素相乘，并返回乘积之和；一个应用：从学生档案表中统计出生年月19930901-19940831之间且性别为”女”de 学生人数————Sumproduct(($E$2:$E$100>=19930901)*($E$2:$E$100<=19940831)*($C$2:$C $100=”女”)) （*有相当于且的作用）83、subtotal()用于返回列表或数据库中的分类汇总；84、sumsq()用于返回所有参数的平方和；85、sumx2my2()用于返回两数组中对应数值的平方差之和；86、sumx2py2()用于返回两数组中对应数值的平方和的总和；87、sumxmy2()用于返回两数组中对应数值之差的平方和；88、mdeterm()用于返回一个数组的矩阵行列式的值；89、minverse()用于返回数组矩阵的逆矩阵；90、mmult()用于返回两数组的矩阵乘积；91、ln()用于求自然底数的对数值；92、exp()用于返回以e为底数，指定指数的幂值；93、log10()求取以10为底数的对数值；94、log()求取指定底数和指数的对数值；95、fact()函数用于求指定正数值的阶乘；96、factdouble()用于返回参数number的半阶乘9！=9*7*5*3*1；97、multinomial()用于返回参数和的阶乘与各参数阶乘乘积的比值；98、将指定角度转换成为弧度A1*pi()/180；99、radians()将角度转换成弧度；100、degrees()将指定的弧度转换成角度；101、sin()求指定角度的正弦值；102、sinh()求指定实数的双曲正弦值；103、cos()求指定角度的余弦值；104、cosh()求指定实数的双曲余弦值；105、tan()求指定角度的正切值；106、tanh()求指定实数的双曲正切值；107、asin()求指定正弦值的角度数；108、asinh()、acos()、acosh()、atan()作用类似；109、atan2()指定x坐标、y坐标的反正切值；110、atanh()求在-1~1范围内指定实数的反双曲正切值；112、amordegrc(资产原值，购入资产的日期，第一个期间结束的日期，资产在使用寿命结束时的残值，期间，折旧率，所使用的年基准) 年基准—0或省略或4，则一年按360天计算，若为1，则按实际天数计算；若为3，则一年按365天计算；计算每个会计期间的折旧值；113、amorling()以法国会计系统计算每个会计期间的折旧值；114、sln(资产原值，可使用年限，折旧后价值)采用直线法计算的固定资产的每月折旧额；115、db(资产原值，资产残值，折旧期限，需要计算折旧的时间，第一年的月份数)使用固定余额递减法计算一笔资产在给定期间内的折旧值；116、ddb()采用双倍余额递减法计算一笔资产在给定期间内的折旧值；117、vdb(资产原值，资产残值，折旧期限，进行折旧计算的起始期间，进行折旧计算的截止期间，余额递减速率，一逻辑值)使用双倍余额递减法或其他指定的方法，返回指定的任何期间内（包括部分期间的资产折旧值）；118、syd(资产原值，资产残值，折旧期限，期间)返回某项固定资产按年限总和折旧法计算的指定期间的折旧值；119、pmt(贷款利率，付款时间数，现值，未来值，指定各期的付款时间是在期初1还是期末0)；120、ipmt()基于固定利率及等额分期付款方式，返回贷款在某一给定期限内的利息偿还额；121、ppmt()基于固定利率及等额分期付款方式，返回贷款在某一给定期间内的本金偿还额；122、cumipmt()返回一笔贷款在给定的两个期间累计偿还的利息数额；123、cumprinc()用于返回一笔贷款在给定的两个期间累计偿还的本金数额；124、fv()基于固定利率及等额分期付款方式，返回某项投资的未来值；125、nper()基于固定利率及等额分期付款方式，返回某项投资(或贷款)的总期数；126、npv()用于通过使用贴现率以及一系列未来之处（负值）和收入（正值），返回一项投资的净现值；127、xnpv()用于返回一组不定期现金流的净现值；128、pv()用于返回投资的现值，即一系列未来付款的当前值的累积和；129、fvschedule()计算某项投资在可变利率下的未来值；130、ispmt()用于计算特定投资期内要支付的利息额；131、irr()返回由数值代表的一组现金流的内部收益率；132、mirr()返回由数值代表的一组现金流的修正内部收益率；133、xirr()返回一组不定期现金流的内部收益率；134、rate()用于返回年金的各期利率；135、accrint()计算有价证券定期应付利息金额；136、accrintm()计算有价债券一次性应付利息金额；137、coupdaybs()返回当前付息期内截止到成交日的天数；138、coupdays()用于返回成交日所在的付息期的天数；139、coupdaysnc()用于返回从成交日到下一付息日之间的天数；140、coupncd()返回一个表示在成交日之后下一个付息日的序列号；141、coupnum()计算债券成交日到到期日之间的利息应付次数；142、couppcd()计算债券成交之日之前的上一个付息日期；143、disc()用于返回有价证券的贴现率；144、intrate()计算债券的一次性付息利率；145、oddfprice()计算债券首期付息日的价格；146、oddfyield()计算债券首期付息日的收益率；147、oddlprice()计算债券末期付息日的价格；148、oddlyield()计算债券末期付息日的收益率；149、price()计算面值$100债券的发行价格；150、pricedisc()计算$100面值债券的折价发行价格；151、pricemat()计算到期付息的$100面值的债券的发行一样；152、yield()计算$100面值债券的收益率；153、yielddisc()用于返回折价发行的有价债券的年收益率；154、yieldmat()计算到期付息的有价证券的年收益率；155、received()计算购买债券到期的总回报金额；156、tbillprice()用于返回面值$100的国库券的价格；157、tbillyield()用于返回国库券的收益率；168、duration()计算定期债券的修正期限；169、mduration()计算定期债券macauley修正期限；170、effect()利用给定的名义年利率和一年中的复利期数；171、nominal()基于给定的实际利率和年复利期数，返回名义年利率；172、dollarde()将以分数表示的证券价格转换成以小数表示的证券价格；173、dollarfr()将以小数表示的证券价格转换成以分数表示的证券价格；174、average()用于计算所有参数的算术平均值；175、avedev()用于返回一组数据与其均值的绝对偏差的平均值（测定数据的离散程度）；176、averageif()用于返回某个区域内满足给定条件的所有单元格的平均值(算术平均值)；177、count()返回数字参数的个数；178、counta()返回包含任何值（包括数字、文本、逻辑值）的参数列表中的非空值单元格个数或参数个数；179、countblank()用于计算某个单元格区域中空白单元格的数目；180、countif()用于计算单元格区域中满足给定条件的单元格的个数；181、countifs()用于计算某个区域中满足多重条件的单元格数目；182、large()返回某一个数据集中的某个最大值；183、small()用于返回某一数据集中的某个最小值；184、max()用于返回数据集中的最大数值；185、min()用于返回数据集中的最小值；186、rank()用于返回一个数值在一组数值中的排位；187、percentrank()用于返回特定数值在一个数据集中的百分比排位；188、percentile()返回数值区域的k百分点对应数值；189、permut()用于返回从给定数目的元素集合中选取的若干元素的组合数；190、median()用于返回给定数值集合的中位数；191、mode()统计出一组数据中哪个数据出现次数最多；192、quartile()用于返回一组数据的四分位数；193、binomdist()用于返回一元二项分布的概率值；194、chidist()返回X2分布的单尾概率；195、chiinv()用于返回X2分布单尾概率的反函数值；196、expondist()求指定数值的指数分布；197、fdist()用于返回F概率分布，它可以确定两个数据系列是否存在变化程度上的不同；198、gammadist()用于返回伽马分布，用它研究具有偏态分布的变量，通常用于排队分析；199、gammainv()用于返回伽马累计分布函数的反函数；200、gammaln()用于返回伽马函数的自然对数；201、kurt()用于返回数据集的峰值；202、normdist()用于返回给定平均值和标准偏差的正态分布函数值；203、normsdist()求指定数值的标准正态分布累计分布；204、norminv()用于返回指定平均值和标准偏差的正态累积分布函数的反函数值；205、negbinomdist()用于返回负二项式分布；206、lognormdist()用于返回x的对数累计分布函数值；207、loginv()用于返回x的对数正态累积分布函数的反函数值；208、hypgeomdist()用于返回超几何分布；209、prob()用于返回区域中的数值落在指定区间内的概率；210、poisson()用于返回泊松分布；211、skew()返回分布的偏斜度；212、standardize()返回以mean为平均值，以standard_dev为标准偏差的分布的正太花数值；213、tdist()返回指定数值和自由度的学生t分布的百分位点；214、tinv()返回作为概率和自由度函数的t分布的t值；215、ttest()用于返回与学生t检验相关的概率；216、weibull()用于返回韦伯分布，进行可靠性分析；217、betadist()返回累积beta分布的概率密度函数；218、betainv()返回指定的beta分布的累积分布函数的反函数值；219、fisher()返回点x的fisher变换，该变换生成一个正态分布二非偏斜的函数；220、fisherinv()返回fisher变换的反函数值；221、critbinom()返回使累积二项式分布小于或等于临界值的最小值；222、frequency()计算数值在某个区域内的出现频率，然后返回一个垂直数组；223、ztest()返回z检验的单尾概率值；224、var()用于估算样本方差；225、vara()用来估算给定样本的方差，与var的区别在于文本和逻辑值(true和false)也将参与计算；226、varp()用于计算样本总体的方差；227、varpa()用于计算样本总体的方差（包括文本）；228、stdev()用于估算样本的标准偏差，即反应数据相对于平均值(mean)的离散程度；229、stdeva()用于计算基于给定样本的标准偏差，包括true和false等逻辑值；230、stdevp()用于返回整个样本总体的标准偏差，它反映了样本总体相对于平均值(mean)的离散程度；231、stdevpa()用于计算样本总体的标准偏差，文本值和逻辑值也参与计算；232、confidence()用于返回一个值，利用该值可以构建总体平均值的置信区间；233、trend()用于返回一条线性回归拟合线的值；234、correl()返回两个不同事物之间的相关系数；235、devsq()返回数据点与各自样本平均值的偏差的平方和；236、geomean()用于返回正数数组或数据区域的几何平均值；237、growth()用于对给定的数据预测指数增长值；238、linest()使用最小二乘法对已经数据进行最佳直线拟合，并返回描述此直线的数组；239、logest()在回归分析中logest函数，计算最符合观测数据组的指数回归拟合曲线，并返回描述该曲线的数值数组；240、steyx()用于返回通过线性回归法计算每个x的y预测值时所产生的标准误差，标准误差用来度量根据单个x变量计算出的y预测值的误差量；241、covar()返回协方差；242、chitest()返回独立性检验值；243、forecast()根据预测点预测出未来考试成绩；244、intercept() 计算学生考试成绩的线性回归直线的截距；245、psq()返回学生考试成绩的pearson成绩矩相关系数的平方；246、dsum()用于返回列表或数据库列中满足指定条件的数字之和；247、daverage()用于返回列表或数据库中满足指定条件的列中数值的平均值；248、dcount()用于返回数据库中或列表中满足指定条件且包含数字的的单元格个数；249、dcounta()用于返回数据库或列表中满足指定条件的非空单元格个数；250、dget()用于从列表或数据库的列中提取符合指定条件的单个值；251、dmax()用于返回列表或数据库中的列中满足指定条件的最大数值；252、dmin()用于返回列表或数据库中的列中满足指定条件的最小数值；253、dproduct()用于返回列表或数据库中的列中满足指定条件的数值的乘积；254、dstdev()用于返回列表或数据库中的列中满足指定条件的记录字段(列)中的数字作为一个样本估算出的样本总体标准偏差；255、dvar()用于返回列表或数据库中的列中满足指定条件的记录字段（列）中的数字作为一个样本估算出的样本总体方差；256、dvarp()用于返回列表或数据库中的列中满足指定条件的记录字段（列）中的数字作为样本总体估算出的样本总体方差；257、address()用于按照给定的行号和列标，建立文本类型的单元格地址；258、areas()用于返回引用中包含的区域个数；259、choose()用于从给定的参数中返回指定的值；260、column()用于返回给定引用的列标；261、row()返回引用的行号；262、rows()用于返回引用或数组的行数；263、lookup()用于从单行或单列区域或者从一个数组返回值，具有向量型和数组型两组形式；264、hlookup()用于在表格或数值数组的首行查找指定的数值，并由此返回表格或数组当前列中指定行出的数值；265、vlookup()用于在表格或数值数组的首列查找指定的值，并由此返回表格或数组当前行中指定列处的值；266、match()用于返回在指定方式下与指定数值匹配的数组中元素的对应位置；267、index()用于返回数据或数组中的元素之，此元素由行序号和列序号的索引值给定；268、indirect()返回由文本字符串指定的引用，并立即对引用进行计算，并显示内容；269、offset()以指定的引用为参考系，通过给定的偏移量得到新的引用，返回的引用可以为一个单元格或单元格区域，并可以指定返回的行数或列数；270、transpose()将表格中的行列标识项相互转置；271、hyperlink()用于创建一个快捷方式（跳转），打开存储在网络服务器、intranet 或internet中的文件；272、cell()用于返回在某一引用区域的左上角单元格的格式、位置或内容等信息；273、info()用于返回有关当前操作环境的信息；274、type()返回数值的类型，如日期型数据、文本型数据、逻辑值等；275、error.type()用于返回对应于Microsoft Excel2007中某一错误值的数字；276、iseven()用于判断指定值是否为偶数，如果是则返回true，不是则返回false；277、isodd()用于判断指定值是否为奇数；278、isblank()用于判断指定值是否为空值；279、isnumber()用于判断指定数据是否为数字；280、istext()用于判断指定数据是否为文本；281、isnontext()用于判断指定数据是否为非文本；282、islogical()用于判断指定数据是否为逻辑值；283、isref()用于判断指定数据是否为引用；284、isna()用于判断指定值是否为错误值”#N/A”;285、iserr()用于判断指定值是否为错误值#N/A”之外的任何错误值；286、iserror()用于判断指定值是否为任意错误值；287、n()用于返回转化为数值后的值；288、na()用于返回错误值”#N/A”，错误值”#N/A”表示“无法得到有效值”；289、besseli()返回修正bessel函数值；290、besselj()返回bessel函数值；291、bin2oct()将二进制编码转为八进制编码；292、bin2dec()将二进制编码转为十进制编码；293、bin2hex()将二进制编码转为十六进制编码；294、oct2bin()将八进制编码转换为二进制编码；295、oct2dec()将八进制编码转换成十进制编码；296、oct2hex()将八进制编码转换成十六进制编码；297、dec2bin()将十进制编码转换成二进制编码；298、dec2oct()将十进制编码转换成八进制编码；299、hex2bin()将十六进制编码转换成二进制编码；300、hex2oct()将十六进制编码转换成八进制编码；301、hex2dec()将十六进制编码转换成十进制编码；302、convert()将数字从一个度量系统转换到另一个度量系统中；303、erf()返回误差函数在上下限之间的积分；304、complex()将实系数及虚系数转换成x+yi或x+yj形式的复数；305、imabs()用于返回以x+yi或x+yj文本格式表示的复数的绝对值；306、imag()求任意复数的虚系数；307、imconjugate()求任意复数的共轭复数；308、imsum()求任意两个或多个复数的和；309、imdiv()求任意两个复数的商；310、improduct()求任意两个或多个复数的积；311、imexp()求任意复数的指数；312、imsqrt()求任意复数的平方根；313、delta()测试两个数值是否相等；314、gestep()用于比较给定参数的大小；。

Excel命令大全

第一节入门1．启动Excel：“开始”→“程序”→“Microsoft Excel”→鼠标左键2．Excel组成：标题栏、菜单栏、工作簿窗口、状态栏等。

①标题栏：显示应用程序名及工作簿名字标题栏右端有三个按钮：最小化、最大化/还原和关闭按钮。

②工作簿窗口：Excel主要工作区，它是一个独立的子窗口。

每次启动Excel时，Excel总是在应用程序窗口内显示一个空白的工作簿窗口，并将其标题命名为Book1。

标题名可通过菜单栏中的“保存”命令进行修改。

③菜单栏：可对工作簿窗口中的数据进行不同的处理。

用鼠标指向菜单栏中想要的菜单，然后单击鼠标左键，即可显示该菜单。

再用鼠标单击该菜单中列出的某个菜单项命令，可执行该菜单的任务。

菜单栏中某些菜单项命令后跟有一个箭头，(表示该菜单项后还有一级菜单。

用鼠标单击该菜单项，就可显出其级联的子菜单)。

菜单栏中某些菜单项后跟有省略号“…”，（表示选择该菜单项后将会弹出一个对话框，需要你输入一些信息或指定一些设置。

）④工具栏：包括常用工具栏、格式工具栏、绘图工具栏等。

工具栏上的按钮和下拉式列表框、组合框代表了一些常用的菜单命令操作或进行一些选择和输入操作。

功能是让用户加强操作速度。

常用工具栏：( 打开打印拼写检查复制格式刷重复粘贴函数缩放控制)1) 常用工具栏按钮及其功能?a新建:建立新的工作簿。

b打开: 打开已存在的文档。

c保存: 保存当前活动文档已更改的内容d 打印用当前打印设置打印文档e 打印预览在打印预览模式下显示当前活动文档的内容f 拼写检查启动拼写检查器g 剪切将选定区域剪切到粘贴板h 复制将选定区域复制到粘贴板i 粘贴粘贴粘贴板内容j 格式刷复制并粘贴单元格及对象格式k 撤消取消最后一次操作命令l 重复重复前次操作和命令m 自动求和插入SUM函数并要求选择求和区域n 粘贴函数显示函数向导以插入或编辑函数o升序将某列按行升序排列p降序将某列按行降序排列q 缩放控制缩放窗口内文档显示比例i格式工具栏：格式工具栏按钮及按钮s 字体选择字体t字体大小选择字体大小u 粗体使选定文字变为粗体字v 斜体使选定文字变为斜体字w下划线使选定文字加下划线x 左对齐文本靠左对齐y 居中文本居中对齐t右对齐文本靠右对齐@跨列居中文本在选定的列居中# 边框给所选定的区域加边框线2)当鼠标指针移到某个工具栏按钮上时，该按钮下方会显示有关该功能的描述信息，Microsoft Excel 2000用于电子表格的按键在工作表或工作簿中移动和滚动的按键注意要扩大“帮助”窗口以充满屏幕，请按下(ALT+ 空格键，然后按下X 键)。

257个常用Excel宏命令-工具-牧龙在野！

257个常用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列为指定内容的行101、删除A列非数字单元行102、有条件删除当前行103、选择下一行104、选择第5行开始所有数据行105、选择光标或选区所在行106、选择光标或选区所在列107、光标定位到名称指定位置108、选择名称定义的数据区109、选择到指定列的最后行110、将Sheet1的A列的非空值写到Sheet2的A列111、将名称1的数据写到名称2112、单元反选113、调整选中对象中的文字114、去除指定范围内的对象115、更新透视表数据项116、将全部工作表名称写到A列117、为当前选定的多单元插入指定名称118、删除全部名称119、以指定区域为表目录补充新表120、按A列数据批量修改表名称121、按A列数据批量创建新表(控件按钮代码) 122、清除剪贴板123、批量清除软回车124、判断指定文件是否已经打开125、当前文件另存到指定目录126、另存指定文件名127、以本工作表名称另存文件到当前目录128、将本工作表单独另存文件到Excel当前默认目录129、以活动工作表名称另存文件到Excel当前默认目录130、另存所有工作表为工作簿131、以指定单元内容为新文件名另存文件133、以当前日期和时间为新文件名另存文件134、另存本表为TXT文件135、引用指定位置单元内容为部分文件名另存文件136、将A列数据排序到D列137、将指定范围的数据排列到D列138、光标所在行上移一行139、加数据有效限制140、取消数据有效限制141、重排窗口143、回车光标向右144、回车光标向下146、保存并退出Excel147、隐藏/显示指定列空值行148、深度隐藏指定工作表149、隐藏指定工作表150、隐藏当前工作表151、返回当前工作表名称152、获取上一次所进入工作簿的工作表名称153、按光标选定颜色隐藏本列其他颜色行154、打开工作簿自动隐藏录入表以外的其他表155、除最左边工作表外深度隐藏所有表156、关闭文件时自动隐藏指定工作表(ThisWorkbook) 157、打开文件时提示指定工作表是保护状态(ThisWorkbook) 158、插入10行159、全选固定范围内小于0的单元160、全选选定范围内小于0的单元161、固定区域单元分类变色162、A列半角内容变红163、单元格录入数据时运行宏的代码164、根据B列最后数据快速合并A列单元格的控件代码165、在F1单元显示光标位置批注内容的代码166、显示光标所在单元的批注的代码167、使单元内容保持不变的工作表代码168、有条件执行宏169、有条件执行不同的宏170、提示确定或取消执行宏171、提示开始和结束172、拷贝指定表不相邻多列数据到新位置173、选择2至4行174、在当前选区有条件替换数值为文本175、自动筛选全部显示指定列176、自动筛选第2列值为A的行177、取消自动筛选()178、全部显示指定表的自动筛选179、强行合并单元180、设置单元区域格式181、在所有工作表的A1单元返回顺序号182、根据A1单元内容返回C1数值183、根据A1内容选择执行宏184、删除A列空行185、在A列产生不重复随机数186、将A列数据随机排列到F列187、取消选定区域的公式只保留值(假空转真空) 188、处理导入的显示为科学计数法样式的身份证号189、返回指定单元的行高和列宽190、指定行高和列宽191、指定单元的行高和列宽与A1单元相同191、填公式192、建立当前工作表的副本为001表193、在第一个表前插入多工作表194、清除A列再插入序号195、反方向文本(自定义函数)196、指定选择单元区域弹出消息197、将B列数据添加超链接到K列198、删除B列数据的超链接199、分离临时表A列数据的文本和超链接并整理到数据库表200、分离临时表A列数据的文本和超链接并会同其他数据整理到数据库表201、返回A列最后一个非空单元行号202、返回表中第一个非空单元地址(行搜索)203、返回表中各非空单元区域地址(行搜索)204、返回第一个数值行号205、返回第1行最右边非空单元的列号206、返回连续数值单元的数量207、统计指定范围和内容的单元数量208、统计不同颜色的数字的和（自定义函数）209、返回非空单元数量210、返回A列非空单元数量211、返回圆周率π212、定义指定单元内容为页眉/页脚213、提示并全部清除当前选择区域214、全部清除当前选择区域215、清除指定区域数值216、对指定工作表执行取消隐藏》打印》隐藏工作表217、打开文件时执行指定宏(工作簿代码)218、关闭文件时执行指定宏(工作簿代码)219、弹出提示A1单元内容220、延时15秒执行重排窗口宏221、撤消工作表保护并取消密码222、重算指定表223、将第5行移到窗口的最上面224、对第一张工作表的指定区域进行排序225、显示指定工作表的打印预览226、用单元格A1的内容作为文件名另存当前工作簿227、[禁用/启用]保存和另存的代码228、在A和B列返回当前选区的名称和公式229、朗读朗读A列,按ESC键中止230、朗读固定语句，请按ESC键终止231、在M和N列的14行以下选择单元时显示调用日历控件（工作表代码）232、添加自定义序列233、弹出打印对话框234、返回总页码235、合并各工作表内容236、合并指定目录中所有文件中相同格式工作表的数据237、隐藏指定工作表的指定列238、把a列不重复值取到e列239、当前选区的行列数240、单元格录入1位字符就跳转(工作表代码)241、当指定日期（每月10日）打开文件执行宏242、提示并清空单元区域243、返回光标所在行号244、按照当前行A列的图片名称插入图片到H列245、当前行下插入1行246、取消指定行或列的隐藏247、复制单元格所在行248、复制单元格所在列249、新建一个工作表250、新建一个工作簿251、选择多表为工作组252、在当前工作组各表中分别执行指定宏253、复制当前工作簿的报表到临时工作簿254、删除指定文件255、合并A1至C1的内容写到D15单元的批注中256、自动重算257、手动重算命令：1、打开全部隐藏工作表Sub 打开全部隐藏工作表()Dim i AsIntegerFor i = 1To Sheets.CountSheets(i).Visible = TrueNextiEnd Sub2、循环宏Sub 循环()AAA =Range('C2')Dim i AsLongDim timesAs Longtimes =AAA'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)For i = 1To timesCall 过滤一行If Range('完成标志') = '完成' ThenExit For'如果名为'完成标志'的命名单元的值等于'完成',则退出循环,如果一开始就等于'完成',则只执行一次循环就退出'If Sheets('传送参数').Range('A' & i).Text = '完成'Then ExitFor'如果某列出现'完成'内容则退出循环NextiEnd Sub3、录制宏时调用“停止录制”工具栏Sub 录制宏时调用停止录制工具栏()mandBars('Stop Recording').Visible = True End Sub4、高级筛选5列不重复数据至指定表Sub 高级筛选5列不重复数据至Sheet2()Sheets('Sheet2').Range('A1:E65536') = '' '清除Sheet2的A:D 列Range('A1:E65536').AdvancedFilterAction:=xlFilterCopy,CopyT oRange:=Sheet2.Range( _ 'A1'), Unique:=TrueSheet2.Columns('A:E').SortKey1:=Sheet2.Range('A2'),Order1:=xlAscending,Header:=xlGuess, _OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom,SortMethod _:=xlPinYinEnd Sub5、双击单元执行宏(工作表代码)Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean)IfRange('$A$1') = '关闭' ThenExit SubSelectCase Target.AddressCase '$A$4'Call 宏1Cancel = TrueCase '$B$4'Call 宏2Cancel = TrueCase '$C$4'Call 宏3Cancel = TrueCase '$E$4'Call 宏4Cancel = TrueEndSelectEnd Sub6、双击指定区域单元执行宏(工作表代码)Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean)IfRange('$A$1') = '关闭' Then Exit SubIf NotApplication.Intersect(Target, Range('A4:A9', 'C4:C9')) Is NothingThen Call 打开隐藏表End Sub7、进入单元执行宏(工作表代码)Private Sub Worksheet_SelectionChange(ByVal Target As Range)'以单元格进入代替按钮对象调用宏IfRange('$A$1') = '关闭' Then Exit SubSelectCase Target.AddressCase '$A$5' '单元地址(Target.Address),或命名单元名字()Call 宏1Case '$B$5'Call 宏2Case '$C$5'Call 宏3EndSelectEnd Sub8、进入指定区域单元执行宏(工作表代码)Private Sub Worksheet_SelectionChange(ByVal Target As Range)IfRange('$A$1') = '关闭' Then Exit SubIf NotApplication.Intersect(Target, Range('A4:A9','C4:C9')) IsNothingThen Call 打开隐藏表End Sub9、在多个宏中依次循环执行一个（控件按钮代码）Private Sub CommandButton1_Click()StaticRunMacro As IntegerSelectCase RunMacroCase 0宏1RunMacro = 1Case 1宏2RunMacro = 2Case 2宏3RunMacro = 0EndSelectEnd Sub10、在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）Private Sub CommandButton1_Click()WithCommandButton1If .Caption = '保护工作表' ThenCall 保护工作表.Caption = '取消工作表保护'End IfIf .Caption = '取消工作表保护' ThenCall 取消工作表保护.Caption = '保护工作表'Exit SubEnd IfEndWithEnd Sub11、在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）Option ExplicitPrivate Sub CommandButton1_Click()WithCommandButton1If .Caption = '宏1' ThenCall 宏1.Caption = '宏2'Exit SubEnd IfIf .Caption = '宏2' ThenCall 宏2.Caption = '宏3'Exit SubEnd IfIf .Caption = '宏3' ThenCall 宏3.Caption = '宏1'End IfEndWithEnd Sub12、根据A1单元文本隐藏/显示按钮（控件按钮代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Range('A1') > 2 ThenCommandButton1.Visible = 1ElseCommandButton1.Visible = 0End IfEnd SubPrivate Sub CommandButton1_Click()重排窗口End Sub13、当前单元返回按钮名称（控件按钮代码）Private Sub CommandButton1_Click()ActiveCell = CommandButton1.CaptionEnd Sub14、当前单元内容返回到按钮名称（控件按钮代码）Private Sub CommandButton1_Click() CommandButton1.Caption = ActiveCellEnd Sub15、奇偶页分别打印Sub 奇偶页分别打印()Dim i%, Ps%Ps = ExecuteExcel4Macro('GET.DOCUMENT(50)') '总页数MsgBox '现在打印奇数页,按确定开始.'For i = 1 To Ps Step 2ActiveSheet.PrintOut from:=i, To:=iNext iMsgBox '现在打印偶数页,按确定开始.'For i = 2 To Ps Step 2ActiveSheet.PrintOut from:=i, To:=iNext iEnd Sub16、自动打印多工作表第一页Sub 自动打印多工作表第一页()Dim sh As IntegerDim xDim yDim syDim syzx = InputBox('请输入起始工作表名字:')sy = InputBox('请输入结束工作表名字:')y = Sheets(x).Indexsyz = Sheets(sy).IndexFor sh = y To syzSheets(sh).SelectSheets(sh).PrintOut from:=1, To:=1Next shEnd Sub17、查找A列文本循环插入分页符Sub 循环插入分页符()' Selection = Workbooks('临时表').Sheets('表2').Range('A1')调用指定地址内容Dim i As LongDim times As Longtimes=Application.WorksheetFunction.CountIf(Sheet1.Range('a:a'),'分页')'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)For i = 1 To timesCall 插入分页符Next iEnd SubSub 插入分页符()Cells.Find(What:='分页',After:=ActiveCell, LookIn:=xlValues,LookAt:= _xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,MatchCase:=False) _.ActivateActiveWindow.SelectedSheets.HPageBreaks.AddBefore:=ActiveCellEnd SubSub 取消原分页()Cells.SelectActiveSheet.ResetAllPageBreaksEnd Sub18、将A列最后数据行以上的所有B列图片大小调整为所在单元大小Sub 将A列最后数据行以上的所有B列图片大小调整为所在单元大小()Dim PicAs Picture, i&i =[A65536].End(xlUp).RowFor EachPic In Sheet1.PicturesIf Not Application.Intersect(Pic.TopLeftCell, Range('B1:B'& i)) Is Nothing ThenPic.Top = Pic.T opLeftCell.TopPic.Left = Pic.TopLeftCell.LeftPic.Height = Pic.TopLeftCell.HeightPic.Width = Pic.TopLeftCell.WidthEnd IfNextEnd Sub19、返回光标所在行数Sub 返回光标所在行数()x =ActiveCell.RowRange('A1') = xEnd Sub20、在A1返回当前选中单元格数量Sub 在A1返回当前选中单元格数量() [A1] =Selection.CountEnd Sub21、返回当前工作簿中工作表数量Sub 返回当前工作簿中工作表数量() t =Application.Sheets.Count MsgBoxtEnd Sub22、返回光标选择区域的行数和列数Sub 返回光标选择区域的行数和列数() x =Selection.Rows.County =Selection.Columns.CountRange('A1') = xRange('A2') = yEnd Sub23、工作表中包含数据的最大行数Sub 包含数据的最大行数()n =Cells.Find('*', , , , 1, 2).RowMsgBoxnEnd Sub24、返回A列数据的最大行数Sub 返回A列数据的最大行数()n =Range('a65536').End(xlUp).RowRange('B1') = nEnd Sub25、将所选区域文本插入新建文本框Sub 将所选区域文本插入新建文本框()For Eachrag In Selectionn = n & rag.Value & Chr(10)NextActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizon tal,ActiveCell.Left + ActiveCell.Width, ActiveCell.Top+ActiveCell.Height, 250#, 100).SelectSelection.Characters.Text = '问题：' & nWithSelection.Characters(Start:=1, Length:=3).Font.Name = '黑体'.FontStyle = '常规'.Size = 12EndWithEnd Sub26、批量插入地址批注Sub 批量插入地址批注()On ErrorResume NextDim r AsRangeIfSelection.Cells.Count > 0 ThenFor Each r In Selectionment.Deleter.AddCommentment.Visible = Falsement.Text Text:='本单元格：' & r.Address& ' of ' & Selection.AddressNextEndIfEnd Sub27、批量插入统一批注Sub 批量插入统一批注()Dim r AsRange, msg As Stringmsg =InputBox('请输入欲批量插入的批注', '提示', '随便输点什么吧')IfSelection.Cells.Count > 0 ThenFor Each r In Selectionr.AddCommentment.Visible = Falsement.Text Text:=msgNextEndIfEnd Sub28、以A1单元内容批量插入批注Sub 以A1单元内容批量插入批注()Dim r AsRangeIfSelection.Cells.Count > 0 ThenFor Each r In Selectionr.AddCommentment.Visible = Falsement.Text Text:=[a1].TextNextEndIfEnd Sub29、不连续区域插入当前文件名和表名及地址Sub 批量插入当前文件名和表名及地址()For Eachmycell In Selectionmycell.FormulaR1C1 = '[' + + ']' + + '!' + mycell.AddressNextEnd Sub30、不连续区域录入当前单元地址Sub 区域录入当前单元地址()For Eachmycell In Selectionmycell.FormulaR1C1 = mycell.AddressNextEnd Sub31、连续区域录入当前单元地址Sub 连续区域录入当前单元地址()Selection= '=ADDRESS(ROW(),COLUMN(),4,1)'Selection.CopySelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,SkipBlanks _:=False, Transpose:=FalseEnd Sub32、返回当前单元地址Sub 返回当前单元地址()d =ActiveCell.Address[A1] =dEnd Sub33、不连续区域录入当前日期Sub 区域录入当前日期()Selection.FormulaR1C1 = Format(Now(), 'yyyy-m-d')End Sub34、不连续区域录入当前数字日期Sub 区域录入当前数字日期()Selection.FormulaR1C1 = Format(Now(), 'yyyymmdd')End Sub35、不连续区域录入当前日期和时间Sub 区域录入当前日期和时间()Selection.FormulaR1C1 = Format(Now(), 'yyyy-m-d h:mm:ss') End Sub36、不连续区域录入对勾Sub 批量录入对勾()Selection.FormulaR1C1 = '√'End Sub37、不连续区域录入当前文件名Sub 批量录入当前文件名()Selection.FormulaR1C1 = End Sub38、不连续区域添加文本Sub 批量添加文本()Dim s AsRangeFor Eachs In Selections = s & '文本内容'NextEnd Sub39、不连续区域插入文本Sub 批量插入文本()Dim s AsRangeFor Eachs In Selections = '文本内容' & sNextEnd Sub40、从指定位置向下同时录入多单元指定内容Sub 从指定位置向下同时录入多单元指定内容()Dimarrarr =Array('1', '2', '13', '25', '46', '12', '0', '20')[B2].Resize(8, 1) =Application.WorksheetFunction.Transpose(arr)End Sub41、按aa工作表A列的内容排列工作表标签顺序Sub 按aa工作表A列的内容排列工作表标签顺序()Dim I%,str1$I = 1Sheets('aa').SelectDo WhileCells(I, 1).Value <> ''str1 = Trim(Cells(I, 1).Value)Sheets(str1).SelectSheets(str1).Move after:=Sheets(I)I = I + 1Sheets('aa').SelectLoopEnd Sub42、以A1单元文本作表名插入工作表Sub 以A1单元文本作表名插入工作表()Dim nm AsStringnm =[a1]Sheets.Add = nmEnd Sub43、删除全部未选定工作表Sub 删除全部未选定工作表()Dim shtAs Worksheet, n As Integer, iFlag As Boolean DimShtName() As Stringn =ActiveWindow.SelectedSheets.Count ReDimShtName(1 To n)n = 1For Eachsht In ActiveWindow.SelectedSheets ShtName(n) = n = n + 1NextApplication.DisplayAlerts = FalseFor Eachsht In SheetsiFlag = FalseFor i = 1 To n - 1If ShtName(i) = TheniFlag = TrueExit ForEnd IfNextIf Not iFlag Then sht.DeleteNextApplication.DisplayAlerts = TrueEnd Sub44、工作表标签排序Sub 工作表标签排序()Dim i AsLong, j As Long, nums As Long, msg As Longmsg =MsgBox('工作表按升序排列请选'是[Y]'. ' & vbCrLf& vbCrLf & '工作表按降序排列请选 '否[N]'',vbYesNoCancel, '工作表排序')If msg =vbCancel Then Exit Subnums =Sheets.CountIf msg =vbYes Then 'Sort ascendingFor i = 1 To numsFor j = i To numsIf UCase(Sheets(j).Name) < UCase(Sheets(i).Name)ThenSheets(j).Move Before:=Sheets(i)End IfNext jNextiElse'Sort descendingFor i = 1 To numsFor j = i To numsIf UCase(Sheets(j).Name) > UCase(Sheets(i).Name)ThenSheets(j).Move Before:=Sheets(i)End IfNext jNext iEndIfEnd Sub259个常用宏-excelhome(2)2009-08-15 14:11:4545、定义指定工作表标签颜色Sub 定义指定工作表标签颜色()Sheets('Sheet1').Tab.ColorIndex = 46 End Sub46、在目录表建立本工作簿中各表链接目录Sub 在目录表建立本工作簿中各表链接目录() Dim s%,Rng As RangeOn ErrorResume NextSheets('目录').ActivateIf Err =0 ThenSheets('目录').UsedRange.DeleteElseSheets.Add = '目录'EndIfFor i = 1To Sheets.CountIf Sheets(i).Name <> '目录' Thens = s + 1Set Rng = Sheets('目录').Cells(((s - 1) Mod 20) + 1, (s - 1) \ 20 + 1+ 1)Rng = Format(s, ' 0') & '. ' &Sheets(i).NameActiveSheet.Hyperlinks.Add Rng, '#' &Sheets(i).Name & '!A1',ScreenTip:=Sheets(i).NameEnd IfNextSheets('目录').Range('b:iv').EntireColumn.ColumnWidth = 20 End Sub47、建立工作表文本目录Sub 建立工作表文本目录()Sheets.Add before:=Sheets(1)Sheets(1).Name = '目录'For i = 2To Sheets.CountCells(i - 1, 1) = Sheets(i).Name'Sheets(1).Hyperlinks.Add Cells(i - 1, 1), '#' &Sheets(i).Name &'!A1' '添加超链接NextEnd Sub48、查另一文件的全部表名Sub 查另一文件的全部表名()On ErrorResume NextDimi%Dim sh AsWorksheetApplication.ScreenUpdating = FalseWorkbooks.Open Filename:=ThisWorkbook.Path &'\2.xls' Windows('1.xls').Activate '当前文件名称Sheets('Sheet1').Select '当前表名称i =1 '将表名称返回到第1行For Eachsh In Workbooks('2.xls').WorksheetsCells(i, 1) = '将表名称返回到第1列i = i +1 '返回每个表名称向下移动1行NextshWindows('2.xls').Close '关闭对象文件Application.ScreenUpdating = TrueEnd Sub49、当前单元录入计算机名Sub 当前单元录入计算机名()Selection =Environ('COMPUTERNAME')'Selection = Workbooks('临时表').Sheets('表2').Range('A1')调用指定地址内容EndSub50、当前单元录入计算机用户名Sub 当前单元录入计算机用户名()Selection =Environ('Username')'Selection = Workbooks('临时表').Sheets('表2').Range('A1')调用指定地址内容End Sub51、解除全部工作表保护Sub 解除全部工作表保护()Dim n AsIntegerFor n = 1T o Sheets.CountSheets(n).UnprotectNextnEnd Sub52、为指定工作表加指定密码保护表Sub 为指定工作表加指定密码保护表()Sheet10.Protect Password:='123'End Sub53、在有密码的工作表执行代码Sub 在有密码的工作表执行代码()Sheets('1').Unprotect Password:=123 '假定表名为“1”，密码为“123” 打开工作表Range('C:C').SpecialCells(xlCellTypeBlanks).EntireRow.Hidde n =True '隐藏C列空值行Sheets('1').ProtectPassword:=123 '重新用密码保护工作表54、执行前需要验证密码的宏(控件按钮代码)Private Sub CommandButton1_Click()IfInputBox('请输入密码：') <> '123' Then'密码是123 MsgBox '密码错误,按确定退出!', 64, '提示'Exit SubEndIfCells(1,1) = 10End Sub55、执行前需要验证密码的宏()Sub 执行前需要验证密码的宏()IfInputBox('请输入您的使用权限:', '系统提示') = 123 Then重排窗口 '要执行的宏代码或宏名称ElseMsgBox '对不起,您没有使用该宏的权限,按确定键后退出!' EndIfEnd Sub56、拷贝A1公式和格式到A2Sub 拷贝A1公式到A2()Workbooks('临时表').Sheets('表1').Range('A1').Copy Workbooks('临时表').Sheets('表2').Range('A2').PasteSpecial57、复制单元数值Sub 复制数值()s =Workbooks('book1').Sheets('Sheet1').Range('A1:A2')Workbooks('book2').Sheets('Sheet1').Range('A1:A2') = sEnd Sub58、插入数值条件格式Sub 插入数值条件格式()Selection.FormatConditions.DeleteSelection.FormatConditions.AddType:=xlCellValue,Operator:=xlGreater, _Formula1:='70'Selection.FormatConditions(1).Interior.ColorIndex = 45Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess,_Formula1:='55'Selection.FormatConditions(2).Interior.ColorIndex = 39Selection.FormatConditions.AddType:=xlCellValue,Operator:=xlGreater, _Formula1:='60'Selection.FormatConditions(3).Interior.ColorIndex = 34End Sub59、插入透明批注Sub 插入透明批注()Selection.AddCommentment.Visible = FalseDim XS AsWorksheetFor i = 1To ments.Countments(i).Text '透明批注'ments(i).Shape.Fill.Visible = msoFalseNextEnd Sub60、添加文本Sub 添加文本()Selection = Selection + '×''不可在数字后添加文本'Selection = Workbooks('临时表').Sheets('表2').Range('A1')调用指定地址内容EndSub61、光标定位到指定工作表A列最后数据行下一单元Sub 光标定位到指定工作表A列最后数据行下一单元()a =Sheets('数据库').[a65536].End(xlUp).RowSheets('数据库').SelectRange('A'& a + 1).SelectEnd Sub62、定位选定单元格式相同的全部单元格Sub 定位选定单元格式相同的全部单元格()DimFirstCell As Range, FoundCell As RangeDimAllCells As RangeWith Application.FindFormat.Clear.NumberFormatLocal = Selection.NumberFormatLocal.HorizontalAlignment = Selection.HorizontalAlignment.VerticalAlignment = Selection.VerticalAlignment.WrapText = Selection.WrapText.Orientation = Selection.Orientation.AddIndent = Selection.AddIndent.IndentLevel = Selection.IndentLevel.ShrinkT oFit = Selection.ShrinkT oFit.MergeCells = Selection.MergeCells = .Font.FontStyle = Selection.Font.FontStyle.Font.Size = Selection.Font.Size.Font.Strikethrough = Selection.Font.Strikethrough.Font.Subscript = Selection.Font.Subscript.Font.Underline = Selection.Font.Underline.Font.ColorIndex = Selection.Font.ColorIndex.Interior.ColorIndex = Selection.Interior.ColorIndex.Interior.Pattern = Selection.Interior.Pattern.Locked = Selection.Locked.FormulaHidden = Selection.FormulaHiddenEnd WithSetFirstCell =edRange.Find(what:='',searchformat:=True) If FirstCell Is Nothing ThenExit SubEnd IfSetAllCells = FirstCellSetFoundCell =FirstCellDoSet FoundCell = edRange.Find(After:=FoundCell,what:='', searchformat:=True)If FoundCell Is Nothing Then Exit DoSet AllCells = Union(FoundCell, AllCells)If FoundCell.Address = FirstCell.Address Then Exit DoLoopAllCells.SelectEnd Sub63、按当前单元文本定位Sub 按当前单元文本定位()ABC =SelectionDim aa AsRangeFor Eacha In edRangeIf a Like ABC ThenIf aa Is Nothing ThenSet aa = a.CellsElseSet aa = Union(aa, a.Cells)End IfEnd IfNextaa.SelectEnd Sub64、按固定文本定位Sub 文本定位()Dim aa AsRangeFor Eacha In edRange If a Like '*合计*' ThenIf aa Is Nothing ThenSet aa = a.CellsElseSet aa = Union(aa, a.Cells)End IfEnd IfNextaa.SelectEnd Sub65、删除包含固定文本单元的行或列Sub 删除包含固定文本单元的行或列() DoCells.Find(what:='哈哈').Activate Selection.EntireRow.Delete '删除行' Selection.EntireColumn.Delete '删除列LoopUntil Cells.Find(what:='哈哈') Is NothingEnd Sub66、定位数据及区域以上的空值Sub 定位数据及区域以上的空值()Dim aa As RangeFor Each a In edRangeIf a Like 〈0 ThenIf aa Is Nothing ThenSet aa = a.CellsElseSet aa = Union(aa, a.Cells)End IfEnd IfNextaa.SelectEnd Sub67、右侧单元自动加5(工作表代码)Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = FalseTarget.Offset(0, 1) = Target + 5Application.EnableEvents = TrueEnd Sub68、当前单元加2Sub 当前单元加2()Selection = Selection +2'Selection = Workbooks('临时表').Sheets('表2').Range('A1')调用指定地址内容EndSub69、A列等于A列减B列Sub A列等于A列减B列()For i = 1 To 23Cells(i, 1) = Cells(i, 1) - Cells(i, 2)NextEnd Sub70、用于光标选定多区域跳转指定单元(工作表代码)Private Sub Worksheet_SelectionChange(ByVal T As Range)a = Array([b6:b7], [e6], [h6])For i = 0 To 2If Not Application.Intersect(T, a(i)) Is Nothing Then[a1].Select: Exit ForEnd IfNextEnd Sub71、将A1单元录入的数据累加到B1单元（工作表代码）Private Sub Worksheet_Change(ByVal Target As Range)Dim t As LongIf Target.Address = '$A$1' Thent = Sheet1.Range('$B$1').ValueSheet1.Range('$B$1').Value = t + Target.ValueEnd IfEnd Sub72、在指定颜色区域选择单元时添加/取消'√'（工作表代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim myrgAs RangeFor Eachmyrg In TargetIf myrg.Interior.ColorIndex = 37 Then myrg = IIf(myrg<> '√', '√', '')NextEnd Sub73、在指定区域选择单元时添加/取消'√'（工作表代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim RngAs RangeIfTarget.Count <= 15 ThenIf Not Application.Intersect(Target, Range('D6:D20')) IsNothingThenFor Each Rng In SelectionWith RngIf .Value = '' Then.Value = '√'Else.Value = ''End IfEnd WithNextEndIfEndIfEnd Sub74、双击指定单元，循环录入文本（工作表代码）Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, CancelAs Boolean)If T.Address <> '$A$1' Then ExitSubCancel = TrueT = IIf(T = '好', '中', IIf(T = '中', '差', '好'))End Sub75、双击指定单元，循环录入文本（工作表代码）Dim nums As BytePrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean)If Target.Address = '$A$1' Thennums = nums Mod 3 + 1Target = Mid('上中下', nums, 1)Target.Offset(1, 0).SelectEnd IfEnd Sub76、单元区域引用（工作表代码）Private Sub Worksheet_Activate()Sheet1.Range('A1:B3').Value = Sheet2.Range('A1:B3').Value End Sub77、在指定区域选择单元时数值加1（工作表代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range)If NotApplication.Intersect([a1:e10], T arget) Is Nothing Then Target = Val(Target) + 1EndIfEnd Sub259个常用宏-excelhome(3)2009-08-15 14:12:5878、混合文本的编号Sub 混合文本的编号()Worksheets(1).Range('B2').Value = '北京' &(--(Mid(Worksheets(1).Range('B2'), 3, 100)) + 1)End Sub79、指定区域单元双击数据累加（工作表代码）Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean)If Not Application.Intersect([A1:Y100], Target) Is NothingThenoldvalue = Val(Target.Value)inputvalue = InputBox('请输入数量,按ENTER键确认!', '数值累加器')Target.Value = oldvalue + inputvalueEnd IfEnd Sub80、选择单元区域触发事件（工作表代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Address = '$A$1:$B$2' ThenMsgBox'你选择了$A$1:$B$2单元'End IfEnd Sub81、当修改指定单元内容时自动执行宏（工作表代码）Private Sub Worksheet_Change(ByVal Target As Range)If Not Application.Intersect(Target, [B3:B4]) Is NothingThen 重排窗口End IfEnd Sub82、被指定单元内容限制执行宏Sub 被指定单元限制执行宏()If Range('$A$1') = '关闭' Then Exit Sub窗口End Sub83、双击单元隐藏该行（工作表代码）Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean)Rows(Target.Row).Hidden = TrueEnd Sub84、高亮显示行（工作表代码）Private Sub Worksheet_SelectionChange(ByVal Target AsRange)Cells.Interior.ColorIndex = 2Rows('1:2').Interior.ColorIndex =40 '保持1至2行的颜色推荐39,22,40,Rows(Target.Row).Interior.ColorIndex =35 '高亮推荐颜色35,20,24,34,37,40,15End Sub85、高亮显示行和列（工作表代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range)Cells.Interior.ColorIndex = xlNoneRows(Target.Row).Interior.ColorIndex = 34Columns(Target.Column).Interior.ColorIndex = 34End Sub86、为指定工作表设置滚动范围（工作簿代码）Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object,ByVal Target As Range)Sheet1.ScrollArea = 'A1:M30'End Sub87、在指定单元记录打印和预览次数（工作簿代码）Private Sub Workbook_BeforePrint(Cancel As Boolean)Range('A1') = 1 + Range('A1')End Sub88、自动数字金额转大写（工作表代码）Private Sub Worksheet_Change(ByVal M As Range)On Error Resume Nexty = Int(Round(100 * Abs(M)) / 100)j =Round(100 * Abs(M) + 0.00001) - y * 100f = (j /10 - Int(j / 10)) * 10A = IIf(y< 1, '', Application.Text(y, '[DBNum2]')& '元')b = IIf(j> 9.5, Application.Text(Int(j / 10), '[DBNum2]')& '角', IIf(y < 1, '', IIf(f> 1, '零', '')))c = IIf(f< 1, '整', Application.Text(Round(f, 0), '[DBNum2]')& '分')M =IIf(Abs(M) < 0.005, '', IIf(M < 0,'负' & A & b & c, A& b & c))End Sub89、将全部工作表的A1单元作为单击按钮（工作簿代码）Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object,ByVal Target As Range)If Target.Address = '$A$1' ThenCall宏名End IfEnd Sub。

excel表格的基本操作快捷指令

excel表格的基本操作Excel 快捷键和功能键Ctrl 组合快捷键按键说明Ctrl+( 取消隐藏选定范围内所有隐藏的行。

Ctrl+) 取消隐藏选定范围内所有隐藏的列。

Ctrl+& 将外框应用于选定单元格。

Ctrl+_ 从选定单元格删除外框。

Ctrl+~ 应用“常规”数字格式。

Ctrl+$ 应用带有两位小数的“货币”格式（负数放在括号中）。

Ctrl+% 应用不带小数位的“百分比”格式。

Ctrl+^ 应用带有两位小数的“指数”格式。

Ctrl+# 应用带有日、月和年的“日期”格式。

Ctrl+@ 应用带有小时和分钟以及AM 或PM 的“时间”格式。

Ctrl+! 应用带有两位小数、千位分隔符和减号(-)（用于负值）的“数值”格式。

Ctrl+- 显示用于删除选定单元格的“删除”对话框。

Ctrl+* 选择环绕活动单元格的当前区域（由空白行和空白列围起的数据区域）。

在数据透视表中，它将选择整个数据透视表。

Ctrl+: 输入当前时间。

Ctrl+; 输入当前日期。

Ctrl+` 在工作表中切换显示单元格值和公式。

Ctrl+' 将公式从活动单元格上方的单元格复制到单元格或编辑栏中。

Ctrl+" 将值从活动单元格上方的单元格复制到单元格或编辑栏中。

Ctrl++ 显示用于插入空白单元格的“插入”对话框。

Ctrl+1 显示“单元格格式”对话框。

Ctrl+2 应用或取消加粗格式设置。

Ctrl+3 应用或取消倾斜格式设置。

Ctrl+4 应用或取消下划线。

Ctrl+5 应用或取消删除线。

Ctrl+6 在隐藏对象、显示对象和显示对象占位符之间切换。

Ctrl+7 显示或隐藏“常用”工具栏。

Ctrl+8 显示或隐藏大纲符号。

Ctrl+9 隐藏选定的行。

Ctrl+0 隐藏选定的列。

Ctrl+A 选择整个工作表。

如果工作表包含数据，则按Ctrl+A 将选择当前区域。

再次按Ctrl+A 将选择整个工作表。

当插入点位于公式中某个函数名称的右边时，则会显示“函数参数”对话框。

excel常用使用技巧

excel常用使用技巧以下是一些 Excel 常用的使用技巧:1. 快捷键:Excel 有很多快捷键可以使用,例如 Shift + F11 可以打开工作表,Shift + F12 可以打开完整工作簿等等。

你可以根据自己的需要进行学习和设置。

2. 插入和删除行和列:在 Excel 中,你可以选择空白单元格并输入行和列,然后使用插入和删除命令来创建和删除它们。

3. 选择区域:在 Excel 中,你可以使用选择工具来选择要插入、删除或修改的区域。

你可以通过拖动鼠标或使用键盘上的快捷键来选择多个区域。

4. 复制和粘贴数据:如果你需要将数据从一个位置复制到另一个位置,可以使用 Excel 的复制和粘贴命令。

你可以使用鼠标右键点击要复制的单元格,然后选择“复制”选项,接着使用鼠标左键点击另一个单元格,然后选择“粘贴”选项。

5. 提取数据:如果你有一个列表或表格,你需要提取特定单元格中的值。

你可以使用 Excel 的筛选命令来提取数据。

你可以根据输入范围或关键字来进行筛选。

6. 填充数据:如果你有一个表格中有很多空值,你可以使用Excel 的填充命令来填充这些空值。

你可以使用公式或者使用键盘上的快捷键来选择要填充的值。

7. 自动求和:如果你有一个包含数值的列表,你可以使用 Excel 的自动求和命令来计算的总和。

你可以通过在单元格中输入公式来实现自动求和,例如 SUM(单元格范围)。

8. 数组公式:如果你的数据中有一些复杂的关系,你可以使用数组公式来计算它们。

数组公式使用了一个包含一组值的数组来执行计算。

你可以使用 Shift + F11 来打开数组公式编辑器。

9. 数据可视化:在 Excel 中,可以使用图表来展示数据。

图表可以用于可视化复杂的数据关系,例如散点图、柱状图、折线图等等。

你可以使用 Excel 的图表工具来创建和编辑图表。

这些是 Excel 中一些常用的使用技巧,你可以根据需要进行学习和实践。

Excel办公常用技巧大全(完整版)

Excel常用的一些使用技巧以下是我收集整理的一些电子表格的使用技巧和方法，希望这些方法能够为各位同事和朋友们带来一些方便。

1.编辑技巧（1）分数的输入如果直接输入“1/5"，系统会将其变为“1月5日"，解决办法是：先输入“0"，然后输入空格，再输入分数“1/5"。

（2）序列“001"的输入如果直接输入“001"，系统会自动判断001为数据1，解决办法是：首先输入“'"（西文单引号），然后输入“001"。

（3）日期的输入如果要输入“4月5日"，直接输入“4/5"，再敲回车就行了。

如果要输入当前日期，按一下“Ctrl+；"键。

（4）多张工作表中输入相同的内容几个工作表中同一位置填入同一数据时，可以选中一张工作表，然后按住Ctrl键，再单击窗口左下角的Sheet1.Sheet2......来直接选择需要输入相同内容的多个工作表，接着在其中的任意一个工作表中输入这些相同的数据，此时这些数据会自动出现在选中的其它工作表之中。

输入完毕之后，再次按下键盘上的Ctrl键，然后使用鼠标左键单击所选择的多个工作表，解除这些工作表的联系，否则在一张表单中输入的数据会接着出现在选中的其它工作表内。

（5）不连续单元格填充同一数据选中一个单元格，按住Ctrl键，用鼠标单击其他单元格，就将这些单元格全部都选中了。

在编辑区中输入数据，然后按住Ctrl键，同时敲一下回车，在所有选中的单元格中都出现了这一数据。

（6）在单元格中显示公式如果工作表中的数据多数是由公式生成的，想要快速知道每个单元格中的公式形式，以便编辑修改，可以这样做：用鼠标左键单击“工具"菜单，选取“选项"命令，出现“选项"对话框，单击“视图"选项卡，接着设置“窗口选项"栏下的“公式"项有效，单击“确定"按钮。

Excel四十四项基本操作及技巧

11. 一次性打开多个工作簿
利用下面的方法可以快速打开多个工作簿: 方法一打开工作簿(*.xls)所在的文件夹，按住Shift键或Ctrl键，并用鼠标选择彼此相邻或不相邻的多个工作簿，将它们全部选中，然后按右键单击，选择“打开”命令，系统则启动Excel 2002，并将上述选中的工作簿全部打开。方法二将需要一次打开的多个工作簿文件复制到C:\Windows\Application Data\Microsoft\Excel\XLSTART文件夹中，以后启动Excel 2002时，上述工作簿也同时被全部打开。方法三启动Excel 2002，单击“工具→选项”命令，打开“选项”对话框，点击“常规”标签，在“启动时打开此项中的所有文件”后面的方框中输入一个文件夹的完整路径(如d:\Excel)，单击“确定”退出。然后将需要同时打开的工作簿复制到上述文件夹中，以后当启动Excel 2002时，上述文件夹中的所有文件(包括非Excel格式的文档)被全部打开。方法四在Excel 2002中，单击“文件→打开”命令，按住Shift键或Ctrl键，在弹出的对话框文件列表中选择彼此相邻或不相邻的多个工作簿，然后按“打开”按钮，就可以一次打开多个工作簿。方法五用上述方法，将需要同时打开的多个工作簿全部打开，再单击“文件→保存工作区”命令，打开“保存工作区”对话框，取名保存。以后只要用Excel 2002打开该工作区文件，则包含在该工作区中的所有工作簿即被同时打开。
9. 选择单元格
选择一个单元格，将鼠标指向它单击鼠标左键即可; 选择一个单元格区域，可选中左上角的单元格，然后按住鼠标左键向右拖曳，直到需要的位置松开鼠标左键即可; 若要选择两个或多个不相邻的单元格区域，在选择一个单元格区域后，可按住Ctrl键，然后再选另一个区域即可; 若要选择整行或整列，只需单击行号或列标，这时该行或该列第一个单元格将成为活动的单元格; 若单击左上角行号与列标交叉处的按钮，即可选定整个工作表。