Question : excel vba function to convert column number to letter
Answered by : daniel-ferry
Function ColName(n) ColName = Split(Cells(, n).Address, "$")(1)
End FunctionSource : http://academy.excelhero.com/ | Last Update : Mon, 06 Apr 20
Question : excel vba column letter to number
Answered by :
Sub Letter2Number()
'PURPOSE: Convert a given letter into it's corresponding Numeric Reference
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault
Dim ColumnNumber As Long
Dim ColumnLetter As String
'Input Column Letter ColumnLetter = "AG"
'Convert To Column Number ColumnNumber = Range(ColumnLetter & 1).Column
'Display Result MsgBox "Column " & ColumnLetter & " = Column " & ColumnNumber
End SubSource : https://www.thespreadsheetguru.com/the-code-vault/vba-code-to-convert-column-number-to-letter-or-letter-to-number | Last Update : Mon, 25 Apr 22
Question : excel vba column letter to number
Answered by : thoughtless-tapir-5iqd7uarme6m
Sub Test() Debug.Print "result: " & getColIndex("DD") ' --> result: 108
End Sub
Function getColIndex(sColRef As String) As Long Dim i As Long, sum As Long, iRefLen As Long sum = 0: iRefLen = Len(sColRef) For i = iRefLen To 1 Step -1 sum = sum + Base26(Mid(sColRef, i)) * 26 ^ (iRefLen - i) Next getColIndex = sum
End Function
Private Function Base26(sLetter As String) As Long Base26 = Asc(UCase(sLetter)) - 64 'fixed
End FunctionSource : https://stackoverflow.com/a/57492098/11998874 | Last Update : Wed, 09 Dec 20