Excelの列のアルファベット-数値変換

ThisWorkbook.Worksheets(1).Columns("AA").Column
===>27

ThisWorkbook.Worksheets(1).Columns(28).Address(ColumnAbsolute:=False)
===>AB:AB
ThisWorkbook.Worksheets(1).Cells(1, 28).Address(RowAbsolute:=False, ColumnAbsolute:=False)
===>AB1

 

数値→アルファベットへの変換の場合、余計な部分を削除する必要がある。