EXCEL是否可以实现自动录入替换

红池坝

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("a1") = "ac" Then Range("a1") = "ACCESS中国"
End Sub

建议更改为：

1、改单元格表述为：Activecells.value  这样可以避免只针对某一个单元格进行更改

2、改If判断为select case 判断， 这样可以根据情况进行多种输入的自动替换

红池坝

当然可以使用自动更正，但“自动更正”有个问题，那就是表格中所有的单元格的输入都自动更正了，而使用VBA，则可以只对某一列（字段）进行更正，显得更灵活适用

红池坝

activecells是一个单元格对象，指当前活动单元格，后面可以跟相应的属性，比如值（value）、字体（font）、颜色（color）……

红池坝

那就参见6、7楼的意见