Excel列数字转换成字母的VBA递归算法

wanao2008

最近想学递归，在本站搜索到一个主题“VBA将Excel列数转换成列标字母，可转换任意大列值”，

链接：https://club.excelhome.net/thread-1319949-1-1.html
看到里面很多人都写了非常牛的代码，但递归只有一个，忍不住也献丑写了一个递归代码，感觉挺简单，
还请大佬多多指点。
代码如下：

1. Function GetColumnStr(n&) As String
   
2.     Dim i&
   
3.     If n > 26 Then
   
4.         If n Mod 26 = 0 Then i = n \ 26 - 1 Else i = n \ 26
   
5.         GetColumnStr = GetColumnStr(i) & GetColumnStr(n - (i) * 26)
   
6.     Else
   
7.         GetColumnStr = Chr(n + 64)
   
8.     End If
   
9. End Function

复制代码

下面为运行结果：

高个子

学到了，点赞

wodewan

micch

进制换算？

再写一个字母转换回数字的就齐活了

dcanoe

楼主已经很厉害了，赞一个

cjc209

双向转
Function 列号数字字母互转(c)
    Dim s
    If IsNumeric(c) Then
        s = Split(Cells(1, c).Address, "$")(1)      '数值参数则返回字母
    Else
        s = Range(c & 1).Column
    End If
    列号数字字母互转 = s
End Function

shiruiqiang

直接按照公式往前套就行。有兴趣的老师可以试试.可以k1内输入1---26*26*26-1之间,还可以26倍继续扩大值

wodewan

micch 发表于 2023-2-5 20:58
进制换算？

再写一个字母转换回数字的就齐活了

micch

1. Function GetColumnNum(s As String) As Long
   
2.     If Len(s) Then GetColumnNum = GetColumnNum(Mid(s, 2)) + (Asc(s) - 64) * (26 ^ (Len(s) - 1))
   
3. End Function
   
4. Function GetColumnStr(n As Long) As String
   
5.     If n Then GetColumnStr = GetColumnStr(CLng((n - 1) \ 26)) & VBA.Chr((n - 1) Mod 26 + 65)
   
6. End Function
   

复制代码

不考虑速度，瞎写

wanao2008

躺在床上睡不着，优化一下代码：
Function GetColumnStr(n&) As String
    If n > 26 Then
        GetColumnStr = GetColumnStr((n - 1) \ 26) & GetColumnStr((n - 1) Mod 26 + 1)
    Else
        GetColumnStr = Chr(n + 64)
    End If
End Function