用VBA代码实现Excel中重复数据的快速录入

加油复习者们

　我在工作中经常要输入一些数据之类的东西，有一些东西经常要重复，想问问有没有什么方法能让我的工作更具有效率。比如说我们经常需要输入一些专有的名称，如“中国江苏省南京市江宁区”我们有一个代码叫AA1，“中国江苏省南京市白下区”叫AA2等等。当然实际上我工作时输入的字更多，有几百个不同的代码要 经常输入，有没有什么办法我事先准备好一些东西，然后我一输入AA1，表格中就能自动显示出“中国江苏省南京市江宁区”。

如下解决办法，操作步骤如下：（见下图）

一、新建一个excel空白工作簿，打开这个工作簿。

　　二、点击excel表格工具栏的“工具—宏—Visual Basic 编辑器”，打开VB编辑器。

　　三、双击左边工程栏的sheet1，调出右边VB代码编辑栏。

　   四、代码编辑栏上面有“通用”、“声明”字样的两个下拉菜单。点击左边“通用”下拉菜单，选择“通用”下边的“Worksheet”，右边的下拉菜单“声明”字样变为“SelectionChange” 字样。点击这个下拉菜单，选择菜单列表中的“Change”。

      五、在下面两行代码（红色字体）之间粘贴以下代码（蓝色字体）
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Value = "AA1" Then
Target.Value = "中国江苏省南京市江宁区"
Else
If Target.Value = "AA2" Then
Target.Value = "中国江苏省南京市白下区"
Else
End If
End If
End If
End Sub
（说明：If Target.Column = 2 中，2是指定在第二列实现该功能）
      
       然后返回到Excel窗口。这时，只要在工作表Sheet1的B列任意单元格内输入AA1，就立刻自动替换成“中国江苏省南京市江宁区”，输入AA2则自动替换成“中国江苏省南京市白下区”。

　　还可以根据需要，修改上面的VB代码，如，更改起作用的列，增加要替换的词条。