[vba/excel] 列番号から列を表すアルファベットを取得する

gistfile1.vb

'-------------------------------------------------------------------------------
'列番号から列を表すアルファベットを取得する
'-------------------------------------------------------------------------------
'【引数】列番号
'【戻り値】列を表すアルファベットの文字列
'【備考】
Private Function GetColumnAlphabet(intColumnNumber As Integer) As String
    Dim strTmp As String
   
    strTmp = Cells(1, intColumnNumber).Address
   
    GetColumnAlphabet = Replace(strTmp, "1", "")
End Function