请求编写VBA代码实现数字到字母的转换（映射规则基于GODFATHER）

实现逻辑 #

以字符串GODFATHER的字符顺序为映射规则，将输入的正整数（从1开始）对应到字符串中对应位置的字符：

• 1 → G
• 2 → O
• 3 → D
• 4 → F
• 5 → A
• 6 → T
• 7 → H
• 8 → E
• 9 → R

自定义函数代码 #

打开Excel的VBA编辑器（按Alt + F11），插入模块后粘贴以下代码：

Function NumToLetter(num As Integer) As String
    Dim mapStr As String
    mapStr = "GODFATHER"
    
    ' 校验输入数字是否在有效范围（1到字符串长度）
    If num >= 1 And num <= Len(mapStr) Then
        NumToLetter = Mid(mapStr, num, 1)
    Else
        ' 超出范围返回空字符串，可按需改为返回"无效数字"等提示
        NumToLetter = ""
    End If
End Function

使用方式 #

1. 回到Excel工作表，在单元格中输入公式=NumToLetter(1)即可得到G，输入=NumToLetter(3)得到D，以此类推
2. 批量处理时，可将公式下拉应用到多行，或结合循环语句实现批量转换

扩展说明 #

如果需要调整映射规则，只需修改代码中mapStr变量的字符串内容即可，无需改动核心逻辑。

内容的提问来源于stack exchange，提问作者Praveen KUMAR