在Excel中录入数据，如果能用数字代码来代替一些固定的汉字字串，就可以使工作化繁为简，大大提高效率。
　　
　　请看下面的这个实例：这是一个“丰南一中职称统计登记表”，其中“编号”、“姓名”都已录入完成，只需填入相应的“职称”和“所属部门”。假如“职称”分为中学高级、中学一级、中学二级和员级，“所属部门”分高一年级、高二年级、高三年级和其他，试想我们在录入时输入相应的汉字是不是比较烦琐呢？如果我们能用数字代替这些文字，几个汉字的录入只需一个数字即可，那是不是能大大提高我们录入的效率呢？下面让我们看具体的实现方法。
建立工作表
　　先建立一个工作表，注意字段的顺序很重要，它涉及到下面的操作。
构建基本代码
　　选择“工具→宏→Visual Basic编辑器”，在左边的资源管理器窗口双击Sheet1（Sheet1），在右侧的代码窗口中分别选择Worksheet对象和Change事件，然后输入几行非常简单的代码。
　　这些代码看起来非常简单，但为了照顾不懂编程的朋友，我在这里还是稍作解释，你照搬即可：
　　⑴在这段代码中选择的Worksheet和Change分别代表当前工作表和改变事件，就是说当前工作表单元格中的值发生改变时要做什么；
　　⑵代码中Target．Column=3用于指定只能在第3列输入这些数据时才有效(如果不指定则对整个工作表都有效)；
　　⑶在代码中用到了If…End If语句，表示“如果…那么”，Target.Value则表示输入单元格的值。
　　这下你对上述代码理解了吧？如果还没理解也不要紧，你可以先照着把它输入到自己的工作表中试一试效果如何，以后慢慢体会体会就懂了。
数字代替文本输入
　　关闭这个编辑器，返回到Excel窗口，这时在第3列也就是“职称”这列输入相应的数字，就可以看到数字被替换成指定的文本内容了。
　　可能有的朋友会想，先输入这些数字，然后用查找替换的方法不也行吗？然而我们会发现，用查找替换操作容易将其他列中的这些数据错误地替换掉，如果每个数字经确认后再替换就显得比较烦琐了，而用代码就不会出现这些问题，加载之后就可以一劳永逸了。
修改代码 推广设置
　　有了对以上步骤的理解，相信你也可以对第4列即“所属部门”进行设置了。很简单，只需修改一小部分代码即可，最后的形式如图所示。
　　有了这段小小的代码，我们的工作就非常轻松了！