【ExcelVBA】アルファベット(ABC)⇔数字(123)を変換する関数

アルファベット(ABC)を数字(123)に、またはその逆の変換をする関数を紹介します。

列見出しと列番号の相互変換という需要がほとんどと思いますので、
27番以降はAA～と対応させる関数を作成します。

アルファベットを数値に変換する関数
数値をアルファベットに変換する関数
おまけ：その他の方法

アルファベットを数値に変換する関数

Function ConvABC→123(ByVal アルファベット As String) As Long
    On Error Resume Next
    ConvABC→123 = Range(アルファベット & 1).Column
End Function

' 実行例
MsgBox ConvABC→123("J") ' ← 20が表示されます
MsgBox ConvABC→123("AB") ' ← 28が表示されます

こちらがABC→123に変換する関数です。

目的がセルアドレスですので、ストレートに「Rangeプロパティ」にアルファベットを渡して列番号を求めます。

アルファベット以外を渡したときは0を返しますが、
関数にしていると面倒なIf文を作らなくても、
On Error Resume Nextで済むのがいいですね。

数値をアルファベットに変換する関数

Function Conv123→ABC(ByVal n As Long) As String
    On Error Resume Next
    Dim セルアドレス As String
    セルアドレス = Cells(1, n).Address(False, False)
    Conv123→ABC = Left(セルアドレス, Len(セルアドレス) - 1)
End Function

' 実行例
MsgBox Conv123→ABC(20) ' ← Tが表示されます
MsgBox Conv123→ABC(37) ' ← AKが表示されます