Dim s$, vbaknow$
s = ActiveCell.EntireColumn.Address(,  0 )
vbaknow = Left(s, Len(s) \  2 )

Dim столбец_цифрой As Integer
Dim столбец_буквой As String
столбец_цифрой =  5 
столбец_буквой = ????

dim s$, vbaknow$
s=ActiveCell.entirecolumn.Address(, 0 )
vbaknow=left(s,len(s)\ 2 ))

Dim столбец_цифрой As Integer
Dim столбец_буквой As String
столбец_цифрой =  27 
столбец_буквой = ????

Sub Цифра_буква_столбца()
'например Эксель

    Dim Столбец_цифрой As Integer
    Столбец_цифрой =  6 

    Dim Столбец_буквой As String

    'если Столбец_буквой = "[Н/Д]", значит в переменную  Столбец_цифрой введены ошибочные данные
    Столбец_Name Столбец_цифрой, Столбец_буквой

End Sub

Function Столбец_Name$(Столбец_цифрой%, Столбец_буквой$)

    Const alphabett$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    Const E_NUM$ = "[Н/Д]"

    Static alen%
    Dim k%, s$

    If alen =  0  Then alen = Len(alphabett)
    If Столбец_цифрой <  1  Or Столбец_цифрой > alen * (alen +  1 ) Then Столбец_буквой = E_NUM: Exit Function

    If Столбец_цифрой <= alen Then
        s = Mid(alphabett, Столбец_цифрой Mod (alen +  1 ),  1 )
    Else
        k = (Столбец_цифрой -  1 ) \ alen
        s = Mid(alphabett, k,  1 ) & Mid(alphabett, Столбец_цифрой - k * alen,  1 )
    End If

    Столбец_буквой = s

End Function

    Лист = "Лист1"
    Dim lRealLastRow As Long
    Dim lRealLastColumn As Long

    'ведём поиск с самой крайней правой нижней ячейки на листе ...
    On Error Resume Next
    'самый правый столбик в листе, в котором есть данные, где что-то заполнено на листе ...
    lRealLastRow = Worksheets(Лист).Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row
    'самая нижняя строчка в листе, в которой есть данные, где что-то заполнено на листе ...
    lRealLastColumn = Worksheets(Лист).Cells.Find("*", Range("A1"), xlFormulas, , xlByColumns, xlPrevious).Column

Option Explicit

Public Function RtoCnam(r As Range) As String
    RtoCnam = Split(r.Address, "$")( 1 )
End Function

Public Sub Столбец_цифрой_в_столбец_буквой()

Dim Столбец_цифрой As Integer
Столбец_цифрой =  789 
MsgBox$ Столбец_цифрой & " " & RtoCnam(Cells( 1 , Столбец_цифрой))

End Sub