excel 字母转数字

请按下ALT+F11，双击打开左侧的"SHEET1"（假设您所需的功能在此工作表中完成）。复制以下代码并保存。完成后退出编辑器。

Sub Worksheet_Change(ByVal Target As Range)Dim INDEXINDEX = Target.ValueIf Target.Column() = 1 ThenSelect Case INDEXCase "A"Target.Value = 14Case "B"Target.Value = 7Case Is > = 50Target.Value = 50End SelectElseExit SubEnd IfEnd Sub

请注意，以上代码假设数据转换仅在A列发生。请根据需要进行修改。