Question

excel vba 如何实现输入自动替换

需要在A列（只是这一列）的所有单元格
输入1 回车 自动替换成王五
输入2 回车 自动替换成赵六
其他的列不受影响，有其他的途径也行，等高手指点，如是vba请说详细步骤，抱歉我没用过vba，只听说这个可以实现我想要的功能。
自动更正我用过，他可以对指定区域作用？我需要别的列不受影响。
strenyong你好：我的在使用中遇到点问题，又要麻烦你，加分表示个，具体说一下问题：我有三列需要做这个事情，即：A列 1=张三、2=李四；B列 1=王五、2=赵六；C列 1=陈七、2=周八。我没弄明白怎么加列，自己试着加了个循环，没成功，编程实在不行，请指点，谢谢。

Answer 1

一、快捷方式：按Ctrl+F打开“查找和替换”对话框并激活“查找”选项卡，按Ctrl+H打开“查找和替换”对话框并激活“替换”选项卡。

二、使用通配符：

在Excel的查找和替换中使用星号“*”可查找任意字符串，例如 查找“Excel* ”可找到“Excel函数”和“Excel公式”等。 使用问号可查找任意单个字符。例如 查找“VB?” 可找到“VBA”和“VBE”等。

三、查找通配符：

如果在Excel中要查找通配符，可以输入“~*”、“~?”。“~”为波浪号，在数字键“1”的左边。如果要查找“~”，则输入两个波浪号“~~”。

四、在指定的区域中查找：

先选定一个区域，再打开“查找和替换”对话框，则查找的范围仅限于选定的区域。

五、在整个工作簿中进行查找：

在“查找和替换”对话框中单击“选项”按钮，在“范围”右侧的下拉列表中选择“工作簿”，则Excel会在工作簿中的所有工作表中进行查找。

六、在工作组中进行查找：

如果仅选择了工作簿中的部分工作表，这些工作表将成为一个工作组，Excel会仅在这些工作表中进行查找。

七、按单元格格式查找：

单击“查找和替换”对话框中“格式”按钮右侧的小箭头，在弹出的下拉列表中选择“从单元格选择格式”，然后选择一个包含所需查找格式的单元格，即可按选定的格式进行查找。

八、按Shift键反方向查找：

当在“查找和替换”对话框中单击“查找下一个”按钮时，Excel会按照某个方向进行查找。如果在单击“查找下一个”按钮前，按住Shift键，Excel将按照与原查找方向相反的方向进行查找。

九、在关闭“查找和替换”对话框后继续查找下一个：

在查找过程中，有时“查找和替换”对话框遮住了部分表格内容。在关闭“查找和替换”对话框后也可以继续查找下一个内容，方法是先进行一次查找，然后关闭“查找和替换”对话框，按快捷键Shift+F4即可继续查找下一个。

Answer 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Select Case Target.Value
Case 1
Target = "王五"
Case 2
Target = "赵六"
End Select
End If
End Sub

'使用说明
'按Alt+F11，在左侧双击你的工作表，把代码贴到右边的窗口即可

Answer 3

只有这两种情况？不用VBA也能实现。
即A列设置自定义格式：[=1]"王五";[=2]"赵六";

Answer 4

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Then 'Target.Column = 2，2表示第二列就是B，你可以自己改。
If Target.Value = "1" Then
Target.Value = "王五"
ElseIf Target.Value = "2" Then
Target.Value = "赵六"
Else: Exit Sub
End If
Else: Exit Sub
End If
End Sub

按alt+F11，进vb编辑器，左边可以看到你的sheet，双击你要实现效果的sheet，把上面的代码贴进去。

Answer 5

三楼 方括号 的方法很好:
选择A列:定义格式：[=1]"张三";[=2]"李四";
选择B列:定义格式：[=1]"王五";[=2]"赵六";
选择C列:定义格式：[=1]"陈七";[=2]"周八";

用VBA造成的影响:以后你打开该程序时要求宏安全性设置为"中"以下,否则会失效!(第一次没问题)
如果你非要用VBA,切忌放在Change事件代码里实现(就象楼上几位的做法):
它对EXCEL的最得意的一些功能造成致命的影响。
你可以运行下面的代码：

Range("a:a").NumberFormatLocal = "[=1]""张三"";[=2]""里四"""
Range("B:B").NumberFormatLocal = "[=1]""王五"";[=2]""赵六"""
Range("c:c").NumberFormatLocal = "[=1]""陈七"";[=2]""周八"""

它不会EXCEL的功能造成影响，而且可以实现功能。

实现方法是:工具→宏→宏:随便输个宏名(如AAA) :创建
然后把代码粘进去,按F5运行即可

另外,附:自定义单元格格式的详细方法

选中要设置的单元格:格式→单元格→数字→自定义:在类型栏输入前几行提到的内容(如：[=1]"张三";[=2]"李四"; )

楼主不会把 自定义单元格格式 与 自动更正 弄混吧?