数値をエクセルの列表現に変換する関数

もっと他に方法が用意されているのではないかと思いますが、
見つけられ無かったので自作しました。

Function alpha(ByVal i As Long) As String
'    与えられた数値をエクセルの列を表すアルファベットにして返す。
    Dim ret As String
    ret = ""
    Do
        i = i - 1
        ret = Chr(i Mod 26 + 65) & ret
        i = i \ 26
    Loop While i > 0

    alpha = ret
End Function