【ExcelVBA】列番号と列アルファベットの変換

ExcelVBA, セルの操作

列番号から列のアルファベットを調べる。
列のアルファベットから列番号を調べる。

そのやり方をメモしました。

番号→アルファベット

Sub Sample()

  Dim TargetColumn As Long
  
  Dim Result As String
  
  TargetColumn = 4

  Result = Split(Cells(1, TargetColumn).Address, "$")(1)

  MsgBox Result & " 列"

End Sub
※7行目に列番号を設定しています。

結果表示: D 列

アルファベット→番号

Sub Sample()

  Dim TargetColumn As String
  
  Dim Result As String
  
  TargetColumn = "AA"

  Result = Cells(1, TargetColumn).Column

  MsgBox Result & " 列"

End Sub
※7行目に列アルファベットを設定しています。

結果表示: 27 列