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

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

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

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

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

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

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

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

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

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