将列号转换为字母的功能？

小编典典

将列号转换为字母的功能？

all

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

例如，输入 100 应该返回CV。

阅读 104

2022-09-02

共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

2022-09-02