用数字代替汉字，加快信息录入

如下表所示，其中“编号”已录入完成，只需填入相应的“职称”。假如“职称”分为中学高级、中学一级、中学二级和中学三级，如果纯手打，那未免太繁琐！如果人员跨度太大，任你是复制粘贴，这时也派不上用场。如果我们能用数字代替这些文字，以后只需填入一个数字即可输出相应的职称，那岂不妙哉！

参照下图，启用Excel的“开发工具”，微软默认禁用了。

切换到“开发工具”选项卡，选择第一个“Visual Basic”。

参照下图所示，手动输入蓝底代码。如果您没有右边的代码窗口，按F7即可调出。不要觉得很麻烦，其时你只需输入第一段，然后复制粘贴第二第三段，修改一下目标参数，最后别忘了再加个End If就好。

这些代码看起来非常简单，但为了照顾不懂编程的朋友，我在这里还是给你稍作解释，你照搬即可。

1.在这段代码中我们选择的Worksheet和Change分别表示“代码当前工作表”和“改变事件”，就是说当前工作表中单元格中的值发生改变时要做什么。

2.Target.Column = 2表示只在第二列有效，这样就避免了用Ctrl+H替换时把整个工作表中别的数据也替换的悲剧。

3.在代码中用到了If…End If语句，表示“如果…那么”，Target.Value则表示输入单元格的值。

这下你对上述代码理解了吧？如果你还没理解也不要紧，你可以先照着图把它输入到自己的工作表中试一试效果如何，以后慢慢体会体会就懂了。

关闭编辑器，回到Excel窗口，这时在第2列也就是“职称”这列输入相应的数字，就可以看到数字被替换成指定的文本内容了。

如果后续还要录入，请记得将Excel保存为带宏的工作簿。