Function to convert column number to letter? Function to convert column number to letter? vba vba

Function to convert column number to letter?


excel vba excel-udf

This function returns the column letter for a given column number.

Function Col_Letter(lngCol As Long) As String    Dim vArr    vArr = Split(Cells(1, lngCol).Address(True, False), "$")    Col_Letter = vArr(0)End Function

testing code for column 100

Sub Test()    MsgBox Col_Letter(100)End Sub

excel vba excel-udf

If you'd rather not use a range object:

Function ColumnLetter(ColumnNumber As Long) As String    Dim n As Long    Dim c As Byte    Dim s As String    n = ColumnNumber    Do        c = ((n - 1) Mod 26)        s = Chr(c + 65) & s        n = (n - c) \ 26    Loop While n > 0    ColumnLetter = sEnd Function

excel vba excel-udf

Something that works for me is:

Cells(Row,Column).Address

This will return the $AE$1 format reference for you.

Recent Posts
How can I color dots in a xy scatterplot according to column value?
How to update a claim in ASP.NET Identity?
What does {0} mean when initializing an object?
Accessing members of items in a JSONArray with Java
How to log SQL statements in Spring Boot?
Powershell Get-WebSite name parameter is ignored
How to detect scroll to bottom of html element
Java synchronized method
How to test controllers with CodeIgniter?
Detect Visual Composer
Matplotlib: Specify format of floats for tick labels
Rails join a list of strings with commas and "and" before the last