[解決済み] 列番号から文字に変換する関数？

質問

Excel VBAで、数値から列の文字を返す関数をご存知の方はいらっしゃいませんか？

たとえば、次のように入力します。 100 が返されるはずです。 CV .

解決方法は？

この関数は、指定された列番号に対応する列文字を返します。

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