Excel 25条常用命令

合集下载

EXCEL常用宏命令

[A3] = "='E:\Goods\[VBA.xls]sheet1'!$B$10 "
Range("a1").Value =
n = ThisWorkbook.Sheets.Count
Range("a2").Value = n
For i = 1 To n
Cells(i, 2).Value = Sheets(i).Name
16 用窗体添加列和输入文本的综合举例:
Private Sub CommandButton1_Click()
Dim irow As Integer
irow = [a65536].End(xlUp).Row + 1
Cells(irow, 1) = boBox1.Value
22 显示及隐藏工作表
Sheets("首页").Visible = xlSheetVisible
Sheets("首页").Visible = xlSheetHidden
23 选择单元格:
Range("C2").Select
Range("C2,C5").Select
i = MsgBox("系统提供不同服务，是否浏览资费信息？", vbYesNoCancel, "谷子提示：")
If i = vbYes Then
MsgBox "资费信息：********", , "谷子提示"
Else
"输入要运行的代码"
Next
12、显示/隐藏图表的命令

EXCEL经典用法大全

EXCEL经典用法大全='面(地质)'!A18 此处就是面(地质)的那页的A18行=SUM(D130:K130) 求和=SUM(C130*L130) 剩积01、如何在已有的单元格中批量加入一段固定字符？例如：在单位的人事资料，在excel中输入后，由于上级要求在原来的职称证书的号码全部再加两位，即要在每个人的证书号码前再添上两位数13，如果一个一个改的话实在太麻烦了，那么我们可以用下面的办法，省时又省力：1）假设证书号在A列，在A列后点击鼠标右键，插入一列，为B列；2）在B2单元格写入：="13" & A2 后回车；3）看到结果为13xxxxxxxxxxxxx 了吗？鼠标放到B2位置，单元格的下方不是有一个小方点吗，按着鼠标左键往下拖动直到结束。

当你放开鼠标左键时就全部都改好了。

若是在原证书号后面加13 则在B2单元格中写入：=A2 & “13” 后回车。

02、如何设置文件下拉窗口的最下面的最近运行的文件名个数？打开“工具”，选“选项”，再选“常规”，在“最近使用的文件清单”下面的文件个数输入框中改变文件数目即可。

若不在菜单中显示最近使用的文件名，则将“最近使用的文件清单”前的复选框去掉即可。

03、在EXCEL中输入如“1-1”、“1-2”之类的格式后它即变成1月1日，1月2日等日期形式，怎么办？这是由于EXCEL自动识别为日期格式所造成，你只要点击主菜单的“格式”菜单，选“单元格”，再在“数字”菜单标签下把该单元格的格式设成文本格式就行了。

04、在EXCEL中如何使它象WORD一样的自动定时保存文件？点击“工具”菜单“自动保存”项，设置自动保存文件夹的间隔时间。

如果在“工具”菜单下没有“自动保存”菜单项，那么执行“工具”菜单下“加载宏...”选上“自动保存”，“确定”。

然后进行设置即可。

05、用Excel做多页的表格时，怎样像Word的表格那样做一个标题，即每页的第一行（或几行）是一样的。

excel表格必学秘技

excel表格必学秘技篇一：Excel表格使用技巧必学秘技大全Excel表格使用理论知识必学秘技大全目录一、基本方法 91. 快速选上全部工作表 92. 快速启动EXCEL 93. 快速删除选定区域资料 104. 给单元格重新命名 105. 在EXCEL中曾选择整个单元格范围 106. 快速移动/复制单元格 117. 快速修改单元格式次序 118. 彻底清除单元格内容 119. 选择单元格 1210. 为工作表命名 1211. 一次性打开多个工作簿 1212. 快速切换工作簿 1313. 选取超级链接文本（微软OFFICE技巧大赛获奖作品）14. 快速查找 1415. 修改默认文件保存路径 1416. 指定打开的文件夹 15 1417. 在多个EXCEL教育工作簿间快速切换 1518. 快速获取帮助 1519. 创建帮助文件的快捷方式 1620. 双击单元格某边移动选定定出单元格 1621. 双击单元格某边选取单元格区域 1622. 加速选定不连续单元格 1723. 根据条件选择单元格 1724. 复制或移动单元格 1725. 完全删除EXCEL中的单元格 1726. 快速删除空行 1827. 回车键的粘贴功能 1828. 快速关闭多个文件 1829. 选定多个工作表 1930. 对多个工作表快速总编 1931. 移动和复制工作表 1932. 工作表的删除 2033. 快速选择单元格 2034. 快速选定EXCEL区域（微软OFFICE技巧大赛获奖作品）35. 备份工件簿 2036. 自动打开工作簿 2137. 快速浏览长工作簿 2138. 快速删除工作表中的空行 21 2039. 绘制斜线表头 2240. 绘制斜线单元格 2241. 每每选定同一单元格 2342. 快速查找工作簿 2343. 禁止复制隐藏行或列中的数据 2344. 制作个性单元格 24二、数据输入和编辑技巧 251. 在一个单元格内输入多个值 252. 增加工作簿的页数 253. 奇特的F4键 254. 将格式化文字导入EXCEL 255. 快速换行 266. 巧变文本为数字 267. 在单元格中输入0值 278. 将数字设为文本格式 279. 快速进行源文件之间的切换（微软OFFICE技巧大赛获奖作品）2810. 在同一单元格内连续输入多个测试值 2811. 输入数字、文字、日期或时间 2812. 快速输入欧元符号 2913. 将单元格区域从公式转换成数值 2914. 快速输入有序文本 2915. 输入有规律数字 3016. 巧妙输入常用数据 3017. 快速输入特殊符号 3118. 快速输入相同文本 3119. 快速给数字加上职能部门 3220. 恰到好处输入位数较多的数字 3221. 将WPS/WORD表格转换为EXCEL工作表 3322. 取消单元格链接 3323. 快速输入拼音 3324. 插入“√” 3425. 按小数点对齐 3426. 假设对不同类型的单元格定义不同的输入法 3427. 在EXCEL中快速插入WORD表格 3528. 设置单元格字体 3529. 简述在一个单元格中显示多行文字 3530. 将页面上的数据引入到EXCEL表格 3631. 取消超级链接 3632. 编辑单元格内容 3633. 设置单元格边框 3734. 设置格点文本对齐方式 3735. 输入公式 3736. 输入人名时使用“分散对齐”（微软OFFICE技巧大赛获奖作品） 3737. 隐藏单元格中的所有值（微软OFFICE技巧竞赛获奖作品）3838. 恢复隐藏列 3839. 快速隐藏/显示选中单元格所在行和列（微软OFFICE技巧大赛获奖作品） 3940. 彻底隐藏单元格 3941. 用下拉列表快速输入数据 3942. 快速输入离线短语 4043. 设置单元格青绿色 4044. 快速在多个单元格中输入相同公式 4145. 同时在多个单元格中输入相同内容 4146. 快速输入生效日期和时间 4147. 将复制的单元格安全地插入到现有单元格之间 4148. 在EXCEL中不丢掉列标题的标示出 4249. 查看与天数等效的序列数的值 4250. 快速复制单元格内容 4251. 使用自订序列排序（微软OFFICE技巧大赛获奖作品） 4352. 快速格式化EXCEL单元格 4353. 固定显示某列 4354. 在EXCEL中会快速编辑单元格 44篇二：Excel表格35招必学秘技+Excel2021秘笈Excel表格35招必学秘技+Excel2021秘笈一、让不同类型数据用不同棕色显示在工资表中，如果想让大于等于2021元的工资总额以“红色”显示，大于等于1500元的工资总额以“蓝色”显示，低于1000元的工资总额以“棕色”显示，其它以“黑色”显示，我们可以这样设置。

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)，此法可得到字体色的序列号。

Excel命令大全

在没有自定义快捷键情况下:F2: 编辑活动单元格并将插入点放在单元格内容的结尾。

如果禁止在单元格中进行编辑，它也会将插入点移到编辑栏中。

Ctrl+F2: 显示“打印预览”窗口。

Ctrl+Enter: 可使用当前条目填充选定的单元格区域。

==============================================2007 Office system 中的键盘快捷方式教程(中文):Office Excel 2003 中快捷键和功能键简介: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 应用或取消倾斜格式设置。

Excel表格的25个常用高级应用

Excel表格的25个常用高级应用也许你已经在Excel中完成过上百张财务报表，也许你已利用Excel函数实现过上千次的复杂运算，也许你认为Excel也不过如此，甚至了无新意。

但我们平日里无数次重复的得心应手的使用方法只不过是Excel全部技巧的百分之一。

本专题从Excel中的一些鲜为人知的技巧入手，领略一下关于Excel的别样风情。

一、让不同类型数据用不同颜色显示在工资表中，如果想让大于等于2000元的工资总额以“红色”显示，大于等于1500元的工资总额以“蓝色”显示，低于1000元的工资总额以“棕色”显示，其它以“黑色”显示，我们可以这样设置。

1.打开“工资表”工作簿，选中“工资总额”所在列，执行“格式→条件格式”命令，打开“条件格式”对话框。

单击第二个方框右侧的下拉按钮，选中“大于或等于”选项，在后面的方框中输入数值“2000”。

单击“格式”按钮，打开“单元格格式”对话框，将“字体”的“颜色”设置为“红色”。

2.按“添加”按钮，并仿照上面的操作设置好其它条件(大于等于1500，字体设置为“蓝色”；小于1000，字体设置为“棕色”)。

3.设置完成后，按下“确定”按钮。

看看工资表吧，工资总额的数据是不是按你的要求以不同颜色显示出来了。

二、建立分类下拉列表填充项我们常常要将企业的名称输入到表格中，为了保持名称的一致性，利用“数据有效性”功能建了一个分类下拉列表填充项。

1.在Sheet2中，将企业名称按类别(如“工业企业”、“商业企业”、“个体企业”等)分别输入不同列中，建立一个企业名称数据库。

2.选中A列(“工业企业”名称所在列)，在“名称”栏内，输入“工业企业”字符后，按“回车”键进行确认。

仿照上面的操作，将B、C……列分别命名为“商业企业”、“个体企业”……3.切换到Sheet1中，选中需要输入“企业类别”的列(如C列)，执行“数据→有效性”命令，打开“数据有效性”对话框。

在“设置”标签中，单击“允许”右侧的下拉按钮，选中“序列”选项，在下面的“来源”方框中，输入“工业企业”，“商业企业”，“个体企业”……序列(各元素之间用英文逗号隔开)，确定退出。

Excel使用技巧大全(超全)

Excel 使用技巧集锦——163种技巧目录一、基本方法41. 快速选中全部工作表 42. 快速启动E XCEL 43. 快速删除选定区域数据 44. 给单元格重新命名 55. 在E XCEL中选择整个单元格范围 56. 快速移动/复制单元格 57. 快速修改单元格式次序 58. 彻底清除单元格内容 59. 选择单元格510. 为工作表命名 511. 一次性打开多个工作簿 512. 快速切换工作簿 613. 选定超级链接文本（微软O FFICE技巧大赛获奖作品） 614. 快速查找 615. 修改默认文件保存路径 616. 指定打开的文件夹 617. 在多个E XCEL工作簿间快速切换 618. 快速获取帮助 619. 创建帮助文件的快捷方式 620. 双击单元格某边移动选定单元格 621. 双击单元格某边选取单元格区域 622. 快速选定不连续单元格 723. 根据条件选择单元格724. 复制或移动单元格725. 完全删除E XCEL中的单元格726. 快速删除空行727. 回车键的粘贴功能728. 快速关闭多个文件729. 选定多个工作表730. 对多个工作表快速编辑 731. 移动和复制工作表732. 工作表的删除733. 快速选择单元格834. 快速选定E XCEL区域（微软O FFICE技巧大赛获奖作品）835. 备份工件簿836. 自动打开工作簿837. 快速浏览长工作簿838. 快速删除工作表中的空行839. 绘制斜线表头840. 绘制斜线单元格841. 每次选定同一单元格942. 快速查找工作簿943. 禁止复制隐藏行或列中的数据944. 制作个性单元格9二、数据输入和编辑技巧91. 在一个单元格内输入多个值92. 增加工作簿的页数93. 奇特的F4键94. 将格式化文本导入E XCEL95. 快速换行96. 巧变文本为数字107. 在单元格中输入0值108. 将数字设为文本格式109. 快速进行单元格之间的切换（微软O FFICE技巧大赛获奖作品）1010. 在同一单元格内连续输入多个测试值1011. 输入数字、文字、日期或时间1012. 快速输入欧元符号1013. 将单元格区域从公式转换成数值1014. 快速输入有序文本1015. 输入有规律数字1116. 巧妙输入常用数据1117. 快速输入特殊符号1118. 快速输入相同文本1119. 快速给数字加上单位1120. 巧妙输入位数较多的数字1121. 将WPS/W ORD表格转换为E XCEL工作表1122. 取消单元格链接1223. 快速输入拼音1224. 插入“√”1225. 按小数点对齐1226. 对不同类型的单元格定义不同的输入法 1227. 在E XCEL中快速插入W ORD表格1228. 设置单元格字体1229. 在一个单元格中显示多行文字1230. 将网页上的数据引入到E XCEL表格1231. 取消超级链接1232. 编辑单元格内容1233. 设置单元格边框1334. 设置单元格文本对齐方式1335. 输入公式1336. 输入人名时使用“分散对齐”（微软O FFICE技巧大赛获奖作品）1337. 隐藏单元格中的所有值（微软O FFICE技巧大赛获奖作品）1338. 恢复隐藏列1339. 快速隐藏/显示选中单元格所在行和列（微软O FFICE技巧大赛获奖作品）1340. 彻底隐藏单元格1341. 用下拉列表快速输入数据1342. 快速输入自定义短语1443. 设置单元格背景色1444. 快速在多个单元格中输入相同公式1445. 同时在多个单元格中输入相同内容1446. 快速输入日期和时间1447. 将复制的单元格安全地插入到现有单元格之间1448. 在E XCEL中不丢掉列标题的显示 1449. 查看与日期等效的序列数的值1450. 快速复制单元格内容1451. 使用自定义序列排序（微软O FFICE技巧大赛获奖作品） 1452. 快速格式化E XCEL单元格1453. 固定显示某列1454. 在E XCEL中快速编辑单元格1555. 使用自动填充快速复制公式和格式1556. 为单元格添加批注1557. 数据自动输入1558. 在E XCEL中快速计算一个人的年龄1559. 快速修改单元格次序1560. 将网页上的数据引入到E XCEL表格中15三、图形和图表编辑技巧151. 在网上发布E XCEL生成的图形152. 创建图表连接符163. 将E XCEL单元格转换成图片形式插入到W ORD中164. 将W ORD内容以图片形式插入到E XCEL表格中 165. 将W ORD中的内容作为图片链接插入E XCEL表格中166. 在独立的窗口中处理内嵌式图表167. 在图表中显示隐藏数据 168. 在图表中增加文本框169. 建立文本与图表文本框的链接1710. 给图表增加新数据系列 1711. 快速修改图表元素的格式1712. 创建复合图表1713. 对度量不同的数据系列使用不同坐标轴 1714. 将自己满意的图表设置为自定义图表类型1715. 复制自定义图表类型1716. 旋转三维图表1717. 拖动图表数据点改变工作表中的数值1818. 把图片合并进你的图表 1819. 用图形美化工作表1820. 让文本框与工作表网格线合二为一1821. 快速创建默认图表1822. 快速创建内嵌式图表1823. 改变默认图表类型1824. 快速转换内嵌式图表与新工作表图表1925. 利用图表工具栏快速设置图表1926. 快速选取图表元素1927. 通过一次按键创建一个E XCEL图表1928. 绘制平直直线19四、函数和公式编辑技巧191. 巧用IF函数清除E XCEL工作表中的0 192. 批量求和193. 对相邻单元格的数据求和204. 对不相邻单元格的数据求和205. 利用公式来设置加权平均206. 自动求和207. 用记事本编辑公式208. 防止编辑栏显示公式209. 解决SUM函数参数中的数量限制2010. 在绝对与相对单元引用之间切换2111. 快速查看所有工作表公式2112. 实现条件显示21五、数据分析和管理技巧211. 管理加载宏212. 在工作表之间使用超级连接213. 快速链接网上的数据214. 跨表操作数据215. 查看E XCEL中相距较远的两列数据226. 如何消除缩位后的计算误差（微软O FFICE技巧大赛获奖作品）227. 利用选择性粘贴命令完成一些特殊的计算228. W EB查询229. 在E XCEL中进行快速计算2210. 自动筛选前10个2211. 同时进行多个单元格的运算（微软O FFICE技巧大赛获奖作品）2212. 让E XCEL出现错误数据提示2313. 用“超级连接”快速跳转到其它文件23六、设置技巧231. 定制菜单命令232. 设置菜单分隔线233. 备份自定义工具栏234. 共享自定义工具栏235. 使用单文档界面快速切换工作簿236. 自定义工具栏按钮24一、基本方法1.快速选中全部工作表2.右键单击工作窗口下面的工作表标签，在弹出的菜单中选择“选定全部工作表”命令即可（）。

Excel操作大全

Excel操作⼤全EXCEL使⽤技巧⼤全53条EXC E L使⽤技巧01、如何在已有的单元格中批量加⼊⼀段固定字符？例如：在单位的⼈事资料，在excel中输⼊后，由于上级要求在原来的职称证书的号码全部再加两位，即要在每个⼈的证书号码前再添上两位数13，如果⼀个⼀个改的话实在太⿇烦了，那么我们可以⽤下⾯的办法，省时⼜省⼒：1）假设证书号在A列，在A列后点击⿏标右键，插⼊⼀列，为B列；2）在B2单元格写⼊： ="13" & A2 后回车；3）看到结果为 13xxxxxxxxxxxxx 了吗？⿏标放到B2位置，单元格的下⽅不是有⼀个⼩⽅点吗，按着⿏标左键往下拖动直到结束。

当你放开⿏标左键时就全部都改好了。

若是在原证书号后⾯加13 则在B2单元格中写⼊：=A2 & “13” 后回车。

02、如何设置⽂件下拉窗⼝的最下⾯的最近运⾏的⽂件名个数？打开“⼯具”，选“选项”，再选“常规”，在“最近使⽤的⽂件清单”下⾯的⽂件个数输⼊框中改变⽂件数⽬即可。

若不在菜单中显⽰最近使⽤的⽂件名，则将“最近使⽤的⽂件清单”前的复选框去掉即可。

03、在EXCEL中输⼊如“1-1”、“1-2”之类的格式后它即变成1⽉1⽇，1⽉2⽇等⽇期形式，怎么办？这是由于EXCEL⾃动识别为⽇期格式所造成，你只要点击主菜单的“格式”菜单，选“单元格”，再在“数字”菜单标签下把该单元格的格式设成⽂本格式就⾏了。

04、在EXCEL中如何使它象WORD⼀样的⾃动定时保存⽂件？点击“⼯具”菜单“⾃动保存”项，设置⾃动保存⽂件夹的间隔时间。

如果在“⼯具”菜单下没有“⾃动保存”菜单项，那么执⾏“⼯具”菜单下“加载宏...”选上“⾃动保存”，“确定”。

然后进⾏设置即可。

05、⽤Excel做多页的表格时，怎样像Word的表格那样做⼀个标题，即每页的第⼀⾏（或⼏⾏）是⼀样的。

但是不是⽤页眉来完成？在EXCEL的⽂件菜单－页⾯设置－⼯作表－打印标题；可进⾏顶端或左端标题设置，通过按下折叠对话框按钮后，⽤⿏标划定范围即可。

Excel操作大全（超全）

Excel操作大全（超全）Excel 使用技巧集锦——163种技巧目录一、基本方法71.快速选中全部工作表72.快速启动E XCEL73.快速删除选定区域数据 84.给单元格重新命名85.在E XCEL中选择整个单元格范围96.快速移动/复制单元格97.快速修改单元格式次序 98.彻底清除单元格内容109.选择单元格1010.为工作表命名1111.一次性打开多个工作簿 1112.快速切换工作簿1313.选定超级链接文本（微软O FFICE技巧大赛获奖作品）1314.快速查找1415.修改默认文件保存路径 1416.指定打开的文件夹1517.在多个E XCEL工作簿间快速切换1518.快速获取帮助1619.创建帮助文件的快捷方式1620.双击单元格某边移动选定单元格1621.双击单元格某边选取单元格区域1722.快速选定不连续单元格 1723.根据条件选择单元格1824.复制或移动单元格1825.完全删除E XCEL中的单元格1826.快速删除空行1927.回车键的粘贴功能1928.快速关闭多个文件2029.选定多个工作表2030.对多个工作表快速编辑 2031.移动和复制工作表2132.工作表的删除2133.快速选择单元格2234.快速选定E XCEL区域（微软O FFICE技巧大赛获奖作品）2235.备份工件簿2236.自动打开工作簿2337.快速浏览长工作簿2338.快速删除工作表中的空行2339.绘制斜线表头2440.绘制斜线单元格2541.每次选定同一单元格2642.快速查找工作簿2643.禁止复制隐藏行或列中的数据2744.制作个性单元格27二、数据输入和编辑技巧281.在一个单元格内输入多个值 282.增加工作簿的页数283.奇特的F4键294.将格式化文本导入E XCEL295.快速换行306.巧变文本为数字307.在单元格中输入0值318.将数字设为文本格式329.快速进行单元格之间的切换（微软O FFICE技巧大赛获奖作品）3210.在同一单元格内连续输入多个测试值3311.输入数字、文字、日期或时间3312.快速输入欧元符号3413.将单元格区域从公式转换成数值3414.快速输入有序文本3515.输入有规律数字3516.巧妙输入常用数据3617.快速输入特殊符号3718.快速输入相同文本3719.快速给数字加上单位3820.巧妙输入位数较多的数字3921.将WPS/W ORD表格转换为E XCEL工作表3922.取消单元格链接4023.快速输入拼音4124.插入“√”4125.按小数点对齐4126.对不同类型的单元格定义不同的输入法4227.在E XCEL中快速插入W ORD表格4328.设置单元格字体4329.在一个单元格中显示多行文字4330.将网页上的数据引入到E XCEL表格4431.取消超级链接4432.编辑单元格内容4433.设置单元格边框4534.设置单元格文本对齐方式4535.输入公式4636.输入人名时使用“分散对齐”（微软O FFICE技巧大赛获奖作品）4637.隐藏单元格中的所有值（微软O FFICE技巧大赛获奖作品）4638.恢复隐藏列4739.快速隐藏/显示选中单元格所在行和列（微软O FFICE技巧大赛获奖作品）4740.彻底隐藏单元格4841.用下拉列表快速输入数据4942.快速输入自定义短语4943.设置单元格背景色5044.快速在多个单元格中输入相同公式5045.同时在多个单元格中输入相同内容5146.快速输入日期和时间5147.将复制的单元格安全地插入到现有单元格之间5148.在E XCEL中不丢掉列标题的显示5249.查看与日期等效的序列数的值5250.快速复制单元格内容5351.使用自定义序列排序（微软O FFICE技巧大赛获奖作品）5352.快速格式化E XCEL单元格5453.固定显示某列5454.在E XCEL中快速编辑单元格5455.使用自动填充快速复制公式和格式5556.为单元格添加批注5657.数据自动输入5658.在E XCEL中快速计算一个人的年龄5759.快速修改单元格次序5760.将网页上的数据引入到E XCEL表格中58三、图形和图表编辑技巧581.在网上发布E XCEL生成的图形582.创建图表连接符593.将E XCEL单元格转换成图片形式插入到W ORD中604.将W ORD内容以图片形式插入到E XCEL表格中615.将W ORD中的内容作为图片链接插入E XCEL表格中616.在独立的窗口中处理内嵌式图表627.在图表中显示隐藏数据 628.在图表中增加文本框639.建立文本与图表文本框的链接6310.给图表增加新数据系列 6411.快速修改图表元素的格式6512.创建复合图表6513.对度量不同的数据系列使用不同坐标轴6614.将自己满意的图表设置为自定义图表类型6615.复制自定义图表类型6716.旋转三维图表6717.拖动图表数据点改变工作表中的数值6818.把图片合并进你的图表 6819.用图形美化工作表7020.让文本框与工作表网格线合二为一7121.快速创建默认图表7122.快速创建内嵌式图表7123.改变默认图表类型7224.快速转换内嵌式图表与新工作表图表7225.利用图表工具栏快速设置图表7326.快速选取图表元素7427.通过一次按键创建一个E XCEL图表7528.绘制平直直线75四、函数和公式编辑技巧751.巧用IF函数清除E XCEL工作表中的0 752.批量求和773.对相邻单元格的数据求和774.对不相邻单元格的数据求和 785.利用公式来设置加权平均796.自动求和797.用记事本编辑公式808.防止编辑栏显示公式809.解决SUM函数参数中的数量限制8110.在绝对与相对单元引用之间切换8111.快速查看所有工作表公式8212.实现条件显示82五、数据分析和管理技巧831.管理加载宏832.在工作表之间使用超级连接 843.快速链接网上的数据854.跨表操作数据865.查看E XCEL中相距较远的两列数据866.如何消除缩位后的计算误差（微软O FFICE技巧大赛获奖作品）877.利用选择性粘贴命令完成一些特殊的计算878.W EB查询889.在E XCEL中进行快速计算8910.自动筛选前10个8911.同时进行多个单元格的运算（微软O FFICE技巧大赛获奖作品）9012.让E XCEL出现错误数据提示9113.用“超级连接”快速跳转到其它文件92六、设置技巧921.定制菜单命令922.设置菜单分隔线933.备份自定义工具栏934.共享自定义工具栏945.使用单文档界面快速切换工作簿946.自定义工具栏按钮95一、基本方法1.快速选中全部工作表右键单击工作窗口下面的工作表标签，在弹出的菜单中选择“选定全部工作表”命令即可（）。

excel_常用命令快捷键CH整理版

excel 表格中另起一行按alt+enter即可。

Excel快捷键（转载)要把Excel用熟，不花时间还真不行，快捷键可以帮大家提高效率，试试看：快捷键之在工作表中移动和滚动向上、下、左或右移动单元格箭头键移动到当前数据区域的边缘：CTRL+ 箭头键移动到行首：HOME移动到工作表的开头：CTRL+HOME移动到工作表的最后一个单元格。

：CTRL+END向下移动一屏：PAGE DOWN向上移动一屏：PAGE UP向右移动一屏：ALT+PAGE DOWN向左移动一屏：ALT+PAGE UP移动到工作簿中下一个工作表：CTRL+PAGE DOWN移动到工作簿中前一个工作表：CTRL+PAGE UP移动到下一工作簿或窗口：CTRL+F6 或 CTRL+TAB移动到前一工作簿或窗口：CTRL+SHIFT+F6移动到已拆分工作簿中的下一个窗格：F6移动到被拆分的工作簿中的上一个窗格：SHIFT+F6滚动并显示活动单元格：CTRL+BACKSPACE显示“定位”对话框：F5显示“查找”对话框：SHIFT+F5重复上一次“查找”操作：SHIFT+F4在保护工作表中的非锁定单元格之间移动：TAB2>Excel快捷键之处于END模式时在工作表中移动打开或关闭 END 模式：END在一行或列内以数据块为单位移动：END, 箭头键移动到工作表的最后一个单元格.：END, HOME在当前行中向右移动到最后一个非空白单元格。

：END, ENTER3>Excel快捷键之处于“滚动锁定”模式时在工作表中移动打开或关闭滚动锁定：SCROLL LOCK移动到窗口中左上角处的单元格：HOME移动到窗口中右下角处的单元格：END向上或向下滚动一行：上箭头键或下箭头键向左或向右滚动一列：左箭头键或右箭头键4>Excel快捷键之用于预览和打印文档显示“打印”对话框：CTRL+P在打印预览中时：当放大显示时，在文档中移动：箭头键当缩小显示时，在文档中每次滚动一页：PAGE UP当缩小显示时，滚动到第一页：CTRL+上箭头键当缩小显示时，滚动到最后一页：CTRL+下箭头键5>Excel快捷键之用于工作表、图表和宏插入新工作表：SHIFT+F11创建使用当前区域的图表：F11 或 ALT+F1显示“宏”对话框：ALT+F8显示“Visual Basic 编辑器”：ALT+F11插入 Microsoft Excel 4.0 宏工作表：CTRL+F11移动到工作簿中的下一个工作表：CTRL+PAGE DOWN移动到工作簿中的上一个工作表：CTRL+PAGE UP选择工作簿中当前和下一个工作表：SHIFT+CTRL+PAGE DOWN选择当前工作簿或上一个工作簿：SHIFT+CTRL+PAGE UP6>Excel快捷键之选择图表工作表选择工作簿中的下一张工作表：CTRL+PAGE DOWN选择工作簿中的上一个工作表：CTRL+PAGE UP，END, SHIFT+ENTER 7>Excel快捷键之用于在工作表中输入数据完成单元格输入并在选定区域中下移：ENTER在单元格中折行：ALT+ENTER用当前输入项填充选定的单元格区域：CTRL+ENTER完成单元格输入并在选定区域中上移：SHIFT+ENTER完成单元格输入并在选定区域中右移：TAB完成单元格输入并在选定区域中左移：SHIFT+TAB取消单元格输入：ESC删除插入点左边的字符，或删除选定区域：BACKSPACE删除插入点右边的字符，或删除选定区域：DELETE删除插入点到行末的文本：CTRL+DELETE向上下左右移动一个字符：箭头键移到行首：HOME重复最后一次操作：F4 或 CTRL+Y编辑单元格批注：SHIFT+F2由行或列标志创建名称：CTRL+SHIFT+F3向下填充：CTRL+D向右填充：CTRL+R定义名称：CTRL+F38>Excel快捷键之设置数据格式显示“样式”对话框：ALT+' （撇号）显示“单元格格式”对话框：CTRL+1应用“常规”数字格式：CTRL+SHIFT+~应用带两个小数位的“贷币”格式：CTRL+SHIFT+$应用不带小数位的“百分比”格式：CTRL+SHIFT+%应用带两个小数位的“科学记数”数字格式：CTRL+SHIFT+^应用年月日“日期”格式：CTRL+SHIFT+#应用小时和分钟“时间”格式，并标明上午或下午：CTRL+SHIFT+@ 应用具有千位分隔符且负数用负号 (-) 表示：CTRL+SHIFT+!应用外边框：CTRL+SHIFT+&删除外边框：CTRL+SHIFT+_应用或取消字体加粗格式：CTRL+B应用或取消字体倾斜格式：CTRL+I应用或取消下划线格式：CTRL+U应用或取消删除线格式：CTRL+5隐藏行：CTRL+9取消隐藏行：CTRL+SHIFT+( 左括号隐藏列：CTRL+0（零）取消隐藏列：CTRL+SHIFT+)右括号9>Excel快捷键之编辑数据编辑活动单元格并将插入点放置到线条末尾：F2取消单元格或编辑栏中的输入项：ESC编辑活动单元格并清除其中原有的内容：BACKSPACE将定义的名称粘贴到公式中：F3完成单元格输入：ENTER将公式作为数组公式输入：CTRL+SHIFT+ENTER在公式中键入函数名之后，显示公式选项板：CTRL+A在公式中键入函数笪煤迦氡淞棵屠ê牛篊TRL+SHIFT+A显示“拼写检查”对话框。

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。

excle电子表格常用操作大全

Excel常用的操作方法目录一、基本方法71.快速选中全部工作表72.快速启动E XCEL73.快速删除选定区域数据 84.给单元格重新命名85.在E XCEL中选择整个单元格范围96.快速移动/复制单元格97.快速修改单元格式次序 98.彻底清除单元格内容109.选择单元格1010.为工作表命名1111.一次性打开多个工作簿 1112.快速切换工作簿1313.选定超级链接文本（微软O FFICE技巧大赛获奖作品）1314.快速查找1415.修改默认文件保存路径 1416.指定打开的文件夹1517.在多个E XCEL工作簿间快速切换1518.快速获取帮助1619.创建帮助文件的快捷方式1620.双击单元格某边移动选定单元格1621.双击单元格某边选取单元格区域1722.快速选定不连续单元格 1723.根据条件选择单元格1724.复制或移动单元格1825.完全删除E XCEL中的单元格1826.快速删除空行1927.回车键的粘贴功能1928.快速关闭多个文件2029.选定多个工作表2030.对多个工作表快速编辑 2031.移动和复制工作表2132.工作表的删除2133.快速选择单元格2134.快速选定E XCEL区域（微软O FFICE技巧大赛获奖作品）2235.备份工件簿2236.自动打开工作簿2337.快速浏览长工作簿2338.快速删除工作表中的空行2339.绘制斜线表头2440.绘制斜线单元格2541.每次选定同一单元格2642.快速查找工作簿2643.禁止复制隐藏行或列中的数据2744.制作个性单元格27二、数据输入和编辑技巧281.在一个单元格内输入多个值 282.增加工作簿的页数283.奇特的F4键294.将格式化文本导入E XCEL295.快速换行306.巧变文本为数字307.在单元格中输入0值318.将数字设为文本格式329.快速进行单元格之间的切换（微软O FFICE技巧大赛获奖作品）3210.在同一单元格内连续输入多个测试值3311.输入数字、文字、日期或时间3312.快速输入欧元符号3413.将单元格区域从公式转换成数值3414.快速输入有序文本3415.输入有规律数字3516.巧妙输入常用数据3617.快速输入特殊符号3618.快速输入相同文本3719.快速给数字加上单位3820.巧妙输入位数较多的数字3921.将WPS/W ORD表格转换为E XCEL工作表3922.取消单元格链接4023.快速输入拼音4024.插入“√”4125.按小数点对齐4126.对不同类型的单元格定义不同的输入法4127.在E XCEL中快速插入W ORD表格4228.设置单元格字体4329.在一个单元格中显示多行文字4330.将网页上的数据引入到E XCEL表格4331.取消超级链接4432.编辑单元格内容4433.设置单元格边框4534.设置单元格文本对齐方式4535.输入公式4636.输入人名时使用“分散对齐”（微软O FFICE技巧大赛获奖作品）错误！未定义书签。

30条最常用的EXCEL小技巧完整版

图1 2) 随后在任何一个成组工作表中输入需要的数据即可。如图 2 所示
图2 3) 等所有的数据输入完毕后，您就可以直接在图 2 成组工作表的标签上点击右键，选择“取消成组工作表” 命令，这时您就会惊奇地发现，刚才组合为一组的 Sheet1、Sheet3、Sheet4 这三份工作表中的数据已经完全一样了。怎么样，方便吧！【小提示】成组工作表之间的自动复制是基于行号列号来定位的，因此，无论其他同组工作表中当前单元格是多少，都不会影响到成组表之间数据的准确定位。换句话说，就是当您在其中一个表的 C7 单元格中输入一个数
字“1”以后，其余的成组工作表都会在自己的 C7 单元格中显示“1” 2. 一个单元格内输入多行数据【问题】有的时候，我们需要录入的内容很长，希望能够在同一个单元格内多行录入，可 Excel 的单元格
不同于 Word，既没有换行的命令，也不能直接用回车键换行，这又该怎么办呢？【小飞】呵呵，其实 Excel 本身是支持用户在一个单元格内输入多行数据的，只不过输入方法与平时用法
30 条最常用的 Excel 小技巧
微软的 Excel 恐怕是现在仅次于 Word，使用人数最多的一款办公软件了，因此，自然而然地也就成了大家平时关注的焦点。不过，正所谓“术业有专攻”，精通本职工作的您未必在使用 Excel 进行日常操作时用的都是最快捷的方法。所以，今天笔者就给大家总结了 30 条最常用的 Excel 小技巧，下面的技巧就开始为大家讲解啦！
图7 2) 用鼠标将横向分割线拖动到标题行的下侧，再将纵向分割线拖动到 A 列的左侧（意思就是不进行纵向分割，如果您的表格同时需要纵向分割请自行操作） 3) 点击“窗口”菜单→“冻结窗格”命令，将分割好的窗口冻结起来，这时再试着翻动一下页面吧，是不是再也不会看不到报表的标题栏了。如图 8 所示就是最终的效果图

EXCEL操作命令大全

if isnull(M yOLE) then return 1; if ConnectE rr <0 then
choose case ConnectE rr case -1 messageb ox('错误提示',' 无效的调用') case -2 messageb ox('错误提示',' 类名没发现') case -3 messageb ox('错误提示',' 对象不能创建') case -4 messageb ox('错误提示',' 文件不能连接') case -5 messageb ox('错误提示',' 不能连接现在的对象') case -6 messageb ox('错误提示',' 文件无效 ') case -7
14．设置页眉
eole.Act iveSheet .PageSet up.Cente rHeader= ″报表1 ″
15．设置页脚
eole.Act iveSheet .PageSet up.Cente rFooter= ″第＆P 页″
16．设置页眉到顶端边距为2厘米
9．设置指定行的高度 (单位：磅)
eole.Act iveSheet .Rows(1) .RowHeig ht=1/0.0 35
(设定行高为 1厘米，1 磅=0.035 厘米)
10．在第18行之前插入分页符
eole.Wor ksheets( ″Sheet1 ″).Rows (18).Pag eBreak=1
eole.Act iveSheet .PageSet up.Heade rMargin= 2/0.035

exl25种方法

Excel的二十五种使用技巧2010-3-28也许你已经在Excel中完成过上百张财务报表，也许你已利用Excel函数实现过上千次的复杂运算，也使用方法只不过是Excel全部技巧的百分之一。

本专题从Excel中的一些鲜为人知的技巧入手，领略一下关于一、让不同类型数据用不同颜色显示在工资表中，如果想让大于等于2000元的工资总额以“红色”显示，大于等于1500元的工资总额以“蓝色样设置。

1.打开“工资表”工作簿，选中“工资总额”所在列，执行“格式→条件格式”命令，打开“条件格式”对输入数值“2000”。

单击“格式”按钮，打开“单元格格式”对话框，将“字体”的“颜色”设置为“红色”。

2.按“添加”按钮，并仿照上面的操作设置好其它条件(大于等于1500，字体设置为“蓝色”；小于1000，3.设置完成后，按下“确定”按钮。

看看工资表吧，工资总额的数据是不是按你的要求以不同颜色显示出来了。

二、建立分类下拉列表填充项我们常常要将企业的名称输入到表格中，为了保持名称的一致性，利用“数据有效性”功能建了一个分类下1.在Sheet2中，将企业名称按类别(如“工业企业”、“商业企业”、“个体企业”等)分别输入不同列中2.选中A列(“工业企业”名称所在列)，在“名称”栏内，输入“工业企业”字符后，按“回车”键进行确仿照上面的操作，将B、C……列分别命名为“商业企业”、“个体企业”……3.切换到Sheet1中，选中需要输入“企业类别”的列(如C列)，执行“数据→有效性”命令，打开“数据项，在下面的“来源”方框中，输入“工业企业”，“商业企业”，“个体企业”……序列(各元素之间用英文再选中需要输入企业名称的列(如D列)，再打开“数据有效性”对话框，选中“序列”选项后，在“来源”4.选中C列任意单元格(如C4)，单击右侧下拉按钮，选择相应的“企业类别”填入单元格中。

然后选中该单择需要的企业名称填入该单元格中。

提示：在以后打印报表时，如果不需要打印“企业类别”列，可以选中该列，右击鼠标，选“隐藏”选项，三、建立“常用文档”新菜单在菜单栏上新建一个“常用文档”菜单，将常用的工作簿文档添加到其中，方便随时调用。

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 将选择整个工作表。

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

工作中最常用的45个excel技巧大全

工作中最常用的45个excel技巧大全Excel是一款广泛应用于办公自动化中的电子表格软件，它不仅功能强大，而且操作简便。

在工作中，合理利用Excel的技巧可以提高工作效率，下面介绍一些常用的Excel技巧，共计45个。

1.界面设置：Excel的默认界面设置可能不适合你的使用习惯，你可以通过“选项”来调整界面，如更改工作簿视图、更改工作区颜色等。

2.隐藏/显示工作表：在工作簿中，你可以隐藏不需要显示的工作表，以保持界面整洁。

选择工作表，右键选择“隐藏”即可。

需要重新显示时，选择“显示隐藏的工作表”。

3.冻结窗格：当你需要在大量数据中滚动时，冻结窗格可以保持表头或某一行、某一列的显示。

选择需要冻结的单元格，点击“视图”选项卡中的“冻结窗格”。

4.自动填充：当你需要输入一系列数量递增或规律性的数据时，可以使用自动填充。

例如，输入1和2，选中这两个单元格，拖动填充手柄，即可快速填充连续的数字。

5.公式填充：当你有一个公式需要快速填充到其他单元格时，可以在单元格右下角使用填充手柄，将公式快速复制到其他单元格。

6.相对引用和绝对引用：在公式中，单元格引用有两种方式：相对引用和绝对引用。

相对引用会随着被复制的单元格位置的变化而改变，绝对引用会保持指定单元格的引用不变。

7.数据自动筛选：当你需要筛选数据时，可以使用数据自动筛选功能。

选择数据区域，点击“数据”选项卡中的“筛选”，选择需要的筛选条件，即可筛选数据。

8.高级筛选：如果数据自动筛选无法满足你的需求，你可以使用高级筛选功能。

选择数据区域，在“数据”选项卡中点击“高级”，输入筛选条件，即可进行高级筛选。

9.排序：当你需要对数据进行排序时，可以使用排序功能。

选择需要排序的数据区域，点击“数据”选项卡中的“排序”，选择排序的条件，即可完成排序。

10.条件格式设置：当你需要根据特定条件对数据进行格式设置时，可以使用条件格式功能。

选择需要设置条件格式的数据区域，点击“开始”选项卡中的“条件格式”，选择需要的设置。