可以用VBA实现.
右击工作表标签>查看代码>粘贴下面的代码即可.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
For Each c In Target.Cells
With c
If .Column = 2 Then .Value = Chr(64 + .Value)
End With
Next
Application.EnableEvents = True
End Su