[求助]EXCEL自动录入替换

ystang

如:我在B列输入 12   回车后自动替换为  我12

                          13   回车后自动替换为  你13

                             等....

望高手指点....

exvba

按alt+F11组合键，把下面的代码复制到sheet1表的代码编辑窗口中

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Value = 12 Then Target.Value = "我" & Target.Value
If Target.Value = 13 Then Target.Value = "你" & Target.Value
End If
End Sub