Excel 列名－列番号変換ファンクション

（対象）Excel　VBA
（確認）Excel2003



今回は列番号から列名を取得するファンクションと
列名から列番号を取得するファンクションです。

列名から～はあんまり使いませんが、列番号から
列名を取得する方のファンクションは結構使えると
思います。

---

'==============================================

' 列番号を列名に変換

'==============================================

Function RetuHenkan(ByVal K As Integer) As String

  Dim RetuMei As Variant

  Dim RetuA   As Integer

  Dim RetuB   As Integer

  RetuMei = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", _

                  "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")

  If K > 26 Then

    RetuA = Int(K / 26)

    RetuB = K Mod 26

    If RetuB = 0 Then

      RetuA = RetuA - 1

      RetuB = 26

    End If

    RetuHenkan = RetuMei(RetuA - 1) & RetuMei(RetuB - 1)

  Else

    RetuHenkan = RetuMei(K - 1)

  End If

End Function

――――――――――――――――――――――――――――――――

（使い方例）
Dim Retu as String
Dim i        as Integer
For i = 1 to 20
  Retu = RetuHenkan(i)
  ActiveSheet.Range(Retu & "2").Value = "In!"
Next

（説明）
Iを1から20まで回し、Iの値が何列かを求める。
例だとA列からT列までが対象になる。
AA列以降も使えるようにはなっている（はず）

---

'==============================================

' 列名を列番号に変換

'==============================================

Function RetuMeiHenkan(ByVal Retu As String) As Integer

  Dim RetuMei As Variant

  Dim RetuA   As Integer, RetuB   As Integer

  Dim RetuC   As String, RetuD    As String

  RetuMei = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", _

                  "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")

  

  

  RetuC = Join(RetuMei, "")

  If Len(Retu) > 1 Then

    '1文字目

    RetuD = Left(Retu, 1)

    RetuA = InStr(RetuC, RetuD)

    

    '2文字目

    RetuD = Right(Retu, 1)

    RetuB = InStr(RetuC, RetuD)

    

    RetuMeiHenkan = (RetuA * 26) + RetuB

  Else

    RetuA = InStr(RetuC, Retu)

    RetuMeiHenkan = RetuA

  End If

End Function

――――――――――――――――――――――――――――――――

（使い方例）

Dim i as Integer
Dim j as Integer
Dim k as Integer
i = RetuMeiHenkan("A")
j = RetuMeiHenkan("T")
For k = i to j
  ActiveSheet.Cells(2 , k).Value = "In!"
Next

（説明）
AとTを指定して各列の列番号を取得。
その分だけFor文を回して処理が行える。
AA列以降も可能な（はず）