Excel列号转列字母异常：VBA获取第36列列标返回空白如何解决

该问题的核心是当前代码依赖Address方法的返回值做固定格式的字符串分割，而Address的输出结果并非固定格式：它会受Excel全局引用样式配置（A1模式/R1C1模式）、是否携带工作表/工作簿前缀等运行环境影响，输出结果格式不稳定。
你所遇到的36列返回空的问题，大概率是对应场景下Columns(36).Address的返回结果中$的位置和其他列不同，导致取下标为1的元素时拿到了空值。本质上这种分割写法本身就存在兼容性缺陷，只是在大部分场景下刚好能正常返回结果。

方案1：优化原有分割逻辑 #

不改变原有实现思路，仅调整分割逻辑适配所有可能的地址格式，避免固定取下标带来的问题：

ActiveCell.Select
L5Num = ActiveCell.Column
Dim addrStr As String
addrStr = Columns(L5Num).Address
' 先移除地址中的冒号，再取最后一个$后的内容即为列字母
L5 = Split(Replace(addrStr, ":", ""), "$")(UBound(Split(Replace(addrStr, ":", ""), "$")))

方案2：使用通用的列号转列字母函数 #

完全不依赖Address方法，纯逻辑计算实现，兼容所有运行环境：

' 先定义通用转换函数
Function GetColLetter(ByVal colNum As Long) As String
    Dim tempStr As String
    Do While colNum > 0
        tempStr = Chr((colNum - 1) Mod 26 + 65) & tempStr
        colNum = (colNum - 1) \ 26
    Loop
    GetColLetter = tempStr
End Function

' 调用示例
ActiveCell.Select
L5Num = ActiveCell.Column
L5 = GetColLetter(L5Num)

内容的提问来源于stack exchange，提问作者Christopher Harris