【ﾕｰｻﾞ定義関数】数字をｱﾙﾌｧﾍﾞｯﾄに

◆構文

　列番号to列記号( number )

◆解説

　引数 number を、列番号で用いるアルファベット記号に変換します。

◆ソースコード

Function 列番号to列記号(lVal As Long) As String

    Dim sVal As String
    Dim Num As Long
    Dim eNumi As Long
    Dim tmp
    
    sVal = ""
    Num = lVal \ 26         '割り算の商
    eNumi = lVal Mod 26     '割り算の余り
    
    If eNumi = 0 Then
        Num = Num - 1
        eNumi = 26
    End If
    
    sVal = sVal & Chr(64 + eNumi)   'ASCIIコード表より数字化（65=A～90=Z）
    
    If Num > 0 Then
        sVal = 列番号to列記号(Num) & Chr(64 + eNumi)
    End If
    
    列番号to列記号 = sVal

End Function

◆補足
例えば、任意のセルに
　=列番号to列記号( COLUMN() )
を記入すると列番号で用いるアルファベット記号が表示されます。
INDIRECT関数 と併用すると便利に使えると思います。

◆補足２

最大行数・列数の変遷

◆登録方法