按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
别‖并选定―递增‖单选钮→确定。选定 D 列点击―格式‖菜单→列→隐藏―列‖便可得到图 2 所示
的结果。
在 EXCEL 2000 中快速输入特定文本
因工作的需要，可能你会经常用Excel
2000 来处理大量的表格，常常要输入一些特定的文本（如标准规范的名称、施工企业的名
称等） ，为了准确、统一、快速地输入这些特定文本，这次向大家介绍几个好方法。
自动更正法
G300‖，
在―替换为‖下面填入― 《建筑安装工程质量检验评定统一标准》＇GBJ300…88＇‖（不含双引号） ，然
后按―确定‖按钮。以后只要在单元格中输入―G300‖及后续文本（按―Enter‖键）后，系统会自动将
621
…………………………………………………………Page 622……………………………………………………………
其更正为― 《建筑安装工程质量检验评定统一标准》＇GBJ300…88＇‖。
Excel 中定义好的自动更正词条在Office 系列其他应用程序（如 WORD） 中同样可以使用。③如
果确实需要输入文本―G300‖时，你可以先输入―G3000‖及后面的文本，然后删除一个―0‖即可。
函数合并法
“某某市华
夏建筑安装工程公司”等，这些文本大同小异，我通常用
Excel 中的Concatenate 函数来实现这些特定文本的输入：
Sheet1 工作表的 D 列中（如 D2 单元格） ，我们先
在 Sheet2 工作表中的两个单元格（如 A1 和 B1） 中分别输入文本―某某市‖和―建筑安装工程公
司‖，然后在 Sheet1 的D2 单元格中输入公式：=CONCATENATE（^35050601a^） ，以后我们只
要在 C2 单元格中输入―华夏‖，则D2 单元格中将自动填入文本―某某市华夏建筑安装工程公
司‖ 。
（C 列） ，我们在打印时不希望将它打印出来，
我们选中该列后右击鼠标，在随后弹出的菜单中选―隐藏‖项，即可将该列隐藏起来而不被打印
出来。
选择列表法
的单元格，选“选择列表”选项，则上面输入过的文本以下拉菜单形式出现，用左键选中你需
要的文本，即可将其快速输入到选定的单元格中。
格式定义法
的数值加上单位（如―万元‖等） ，少量的我们可以直接输入，而大
622
…………………………………………………………Page 623……………………………………………………………
量的如果一个一个地输入就显得太慢了。我们通过― 自定义‖单元格格式的方法来达到自动给数
值添加单位的目的。
在“数字”卡片中，选中“分类”下面的“自定义”选项，再在“类型”下面的方框中输入“#
平方米‖，按下―确定‖按钮，以后在上述单元格中输入数值（仅限于数值！）后，单元（万元）会自
动加在数值的后面。
在 Excel 中打印工资条
现在许多单位都实现了工资代储，但每月的工资清单（工资条）还得要发给职工。如果用
Excel 程序处理的工资表，打印后每页只有一个表头，剪裁成条后除了每页的第一名职工外，
其余的就没有表头了，这样将使职工无法清楚工资条的数字对应什么具体名目。怎样才能给每
个职工的工资条加上工资表表头呢？这里笔者将解决方案介绍给大家。
首先根据每个职工工资具有唯一电脑序号的特点，使用 VBA 里的判断语句，让循环从第
一个电脑序号开始，如果 Excel 表中相邻两行的电脑序号不同，就在这两行之间插入一个空白
行，然后使用循环语句，把表头的内容依次复制粘贴到每个空白行。
下面是具体的操作步骤：
1。在 Excel 中打开需要制作工资条的工资表文件。
2。打开―工具‖/―宏‖（如果在菜单中没有看见―宏‖，让鼠标在菜单上稍停留或者按向下的双箭
头就会出现） ，选择―Visual
Basic 编辑器‖（ 图1）打开VBA 编辑器窗口，在VBAProject 的工程资源管理器中双击Sheet1，
会出现代码编辑窗口，在代码编辑窗口输入如下代码（ 图2） ：
Sub gongzitiao（）
623
…………………………………………………………Page 624……………………………………………………………
Application。ScreenUpdating = False
'为避免破坏表一，将表一内容完整复制到表二
Sheets（1）。＇A1＇。CurrentRegion。Copy Sheets（2）。＇A1＇
'定义循环变量的最大值不小于表二中职工数的二倍（我校职工总数为 2564）
a = （Application。WorksheetFunction。CountA（Sheets（2）。＇a1：a2600＇ * 2
'如果第一列（职工的工资电脑序号）上下单元格的值不相等，则在它们之间插入一个空白行
For i = 3 To a
If Sheets（2）。Cells（i ，1）Sheets（2）。Cells（i ＋ 1，1） And （Sheets（2）。Cells（i，
1） 〃〃） Then
Sheets（2）。Rows（i ＋ 1）。Insert
End If
'如果第一列中的单元格为空，则将表中＇A2：M2＇（工资清单表头项目）复制到此行
If Sheets（2）。Cells（i ，1） = 〃〃 Then
Sheets（2）。＇A2：M2＇。Copy Sheets（2）。Cells（i，1）
End If
Next
Application。ScreenUpdating = True
End Sub
3。检查源代码编辑无误后，在 VBA 窗口中打开菜单―运行‖/―运行宏‖，将弹出―宏‖窗口，
你只需单击―运行‖即可。
4。待宏运行完毕，再回到 Excel ，单击工资表下方的―Sheet2‖，于是在每两个相邻职工间就
插入了工资清单项目（ 图3），再用打印机打印并裁条后，就可以发放给每位职工了。
624
…………………………………………………………Page 625……………………………………………………………
该操作在 Excel 2000 下调试通过。
在 Excel 中轻松移动或复制工作表
在使用 Excel 制表时，我们常常要制作许多张相同格式的表，很多人喜欢选中样表，用复
制、粘贴命令来得到另一个工作表，这有些麻烦，其实运用 Excel 中―移动或复制工作表‖功能
就能轻松实现上述要求。
1。譬如你要制作多个和样表 sheet1。xls 相同的工作表，可先打开 sheet1。xls 工作表。
2。�