'-------------------------------------
'   カラム位置を　数字→英字変換
'
'   英字→数字変換は簡単にできるので省略
'-------------------------------------
Sub 列名を英字で取得して1行目に表示する()
    
    Dim idx As Long
    
    For idx = 1 To 30
            Dim colstrSTA As String     '英数変換後カラム
            colstrSTA = Replace(Cells(1, idx).Address(False, False), "1", "")
            Cells(1, idx) = colstrSTA
    Next idx
    
End Sub