Excel VBA Funkcja do konwersji numeru kolumny na literę
Function ColName(n)
ColName = Split(Cells(, n).Address, "$")(1)
End Function
Excel Hero
Function ColName(n)
ColName = Split(Cells(, n).Address, "$")(1)
End FunctionFunction ColumnLetter(pColIndex As Long) As String
ColumnLetter = Replace(Cells(1, pColIndex).Address(True, False), "$1", "")
End Function