关于EXCEL表格用数字代替汉字的方法？

此乃需要VBA实现你愿望也！！！！

右键SHEET名，查看代码，其他条件参照修改，添加，切记！！！

复制

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    For Each c In Target.Cells
        With c
        For i = 1 To 30
         If Cells(i, 1) = 1 Then '判断是否在第1列(a列)输入数据.
          
          .Value = "张三"
            End If
           
           
            If Cells(i, 1) = 2 Then
          
          .Value = "李四"
            End If
           
               If Cells(i, 1) = 3 Then
          
          .Value = "王五"
            End If
           
            Next
         End With
    Next
    Application.EnableEvents = True
End Sub