Vba: 列番号を文字に変換する方法
VBA で次の構文を使用して、列番号を文字に変換できます。
Sub ConvertNumberToLetter()
Range(" B2 ") = Split((Columns(Range(" A2 ")).Address(, 0)), " : ")(0)
End Sub
この特定のマクロは、セルA2の列番号を文字に変換し、その文字をセルB2に表示します。
たとえば、セルA2の値が 4 の場合、セルB2には「D」が表示されます。これは、Excel の 4 列目に対応する文字だからです。
次の例は、この構文を実際に使用する方法を示しています。
例: VBA で列番号を文字に変換する
Excel の列番号 4 に対応する列文字を知りたいとします。
次のマクロを作成して、この数値を文字に変換できます。
Sub ConvertNumberToLetter()
Range(" B2 ") = Split((Columns(Range(" A2 ")).Address(, 0)), " : ")(0)
End Sub
このマクロを実行すると、次の出力が表示されます。
セルB2 は4 列目に対応する文字であるため、値「D」が表示されます。
セルA2の数値を変更してマクロを再度実行すると、セルB2には更新された列文字が表示されます。
たとえば、セルA2の数値を 73 に変更し、マクロを再度実行するとします。
これは 73 番目の列に対応する列文字であるため、セルB2には値「BU」が表示されます。
追加リソース
次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。
VBA: 最後に使用された行を見つける方法
VBA: 最後に使用された列を見つける方法
VBA: 使用されている列の数を数える方法