excel - 将列号转换为字母的函数？

Question

有人有可以从数字返回列字母的 Excel VBA 函数吗？

例如，输入 100 应返回 CV。

Answer 1

此函数返回给定列号的列字母。

Function Col_Letter(lngCol As Long) As String
    Dim vArr
    vArr = Split(Cells(1, lngCol).Address(True, False), "$")
    Col_Letter = vArr(0)
End Function

第 100 列的测试代码

Sub Test()
    MsgBox Col_Letter(100)
End Sub