Excelの列番号<->列名　変換

convert.bas

'-------------------------------------------------------------------------
' 列番号<->列名　変換
'-------------------------------------------------------------------------
'英文字を列番号値に変換
''' @param strCol As String 変換する列文字列
Public Function L2N(strCol As String)
    L2N = Range(strCol & 1).column
End Function

'列番号値を同等の英文字に変換
''' @param iCol As Integer 変換する列番号
Function N2L(iCol As Integer) As String
   Dim iAlpha As Integer
   Dim iRemainder As Integer
   iAlpha = Int((iCol - 1) / 26)
   iRemainder = iCol - (iAlpha * 26)
   If iAlpha > 0 Then
      N2L = Chr(iAlpha + 64)
   End If
   If iRemainder > 0 Then
      N2L = N2L & Chr(iRemainder + 64)
   End If
End Function