Excel で列のアルファベットと列番号を相互に変換するにはどうすればよいですか？

列のアルファベットを列番号に変換する：

次の数式を入力してください：=COLUMN(INDIRECT("AB1")) 変換結果を表示したい空白セルに、そしてEnterキーを押して列番号を取得します：

注：上記の数式で、ABは列番号を取得したい列のアルファベットです。必要に応じて変更してください。

列番号を列のアルファベットに変換する：

次の数式を入力してください：=SUBSTITUTE(ADDRESS(1,200,4),1,「」) 結果を取得したい空白セルに、そしてEnterキーを押して以下のように列のアルファベットを取得します：

注：上記の数式で、赤字の数字 200は列番号をアルファベットに変換する対象です。必要に応じて変更してください。

列のアルファベットを列番号に変換する：

1．ALT + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2．挿入 > モジュールをクリックし、次のコードをモジュールウィンドウに貼り付けてください。

VBA コード：列のアルファベットを列番号に変換する：

Public Function ToColNum(ColN)
    ToColNum = Range(ColN & 1).Column
End Function

3．このコードを保存して閉じた後、ワークシートに戻り、次の数式を入力します：=Tocolnum(「VV」)（VVは列番号に変換したい列のアルファベットです。）を空白セルに入力し、Enterキーを押して列番号を取得します（スクリーンショット参照）：

列番号を列のアルファベットに変換する：

1．ALT + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2．挿入>モジュールをクリックし、次のコードをモジュールウィンドウに貼り付けてください。

VBA コード：列番号を列のアルファベットに変換する：

Public Function ToColletter(Collet)
    ToColletter = Split(Cells(1, Collet).Address, "$")(1)
End Function

3．このコードを保存して閉じた後、ワークシートに戻り、次の数式を空白セルに入力します：=ToColletter(50)（50は列のアルファベットに変換したい列番号です）。その後、Enterキーを押すと列番号がアルファベットで表示されます（スクリーンショット参照）：