Use this VBA function to convert a column number to a letter. This isn’t often needed, but it can be useful if you want to build a range in your macro and you’re more comfortable doing so with the A1 notation,
III.Excel Formula to Get Column Letter from Number Get vba code & Excel formula to get Column letter from column number, in here. For example, If you pass ‘1’ to the function in this code, it will return as “A”. Similarly “B” for 2, “C” for 3 & so on. ...
点击后代码会运行,程序中我给出的是”AG”列,要求求出这列的列数值,结果如下: 代码见程序文件:VBA_ConvertColumnNumberToLetter.xlsm
Function Col_Letter_To_Number(ColumnLetter As String) As Double Dim cNum As Double 'Get Column Number from Alphabet cNum = Range(ColumnLetter & "1").Column 'Return Column Number Col_Letter_To_Number = cNum End Function In Excel sheet, type ‘=Col_Letter_To_Number(“AA”)’ & press ...
Function ColIntToLetter(intCol As Integer) As String '' Dim intPart As Integer Dim intRemainder As Integer If intCol > 255 Or intCol <= 0 Then MsgBox ("The Wrong Column Number: " & CStr(intCol)) Exit Function End If intPart = intCol \ 26 intRemainder = intCol Mod 26 If intPart...
'### Function ColIntToLetter(intCol As Integer) As String '' Dim intPart As Integer Dim intRemainder As Integer If intCol > 255 Or intCol <= 0 Then MsgBox ("The Wrong Column Number: " & CStr(intCol)) Exit Function End If intPart = intCol \ 26 intRemainder = intCol Mod 26 If...
1、返回 Column 英文字: Function ColLetter(ColNumber As Integer ) As String On Error GoTo Errorhandler ColLetter = Left (Cells( 1 , ColNumber).Address( 0 , 0 ), 1 - (ColNumber > 26 )) Exit Function Errorhandler: MsgBox " Error encountered, please re-enter " ...
excelColumn_numLetter_interchange = letterArray(numOrLetter - 1) End If Else numOrLetter = UCase(numOrLetter) '转换为大写 If Len(numOrLetter) > 1 And Len(numOrLetter) < 3 Then idx = 26 For i = 0 To 25 For j = 0 To 25 ...
智能的打开你目前所在窗口的属性 我们按照惯例先看一下项目的管理栏目 首先好的一点就是可以看出来项目...
Single range by concatenating the column letter and row number. This is useful when using a loop with a variable in place of the row number. Range(“A” & 6,”C” & 6) = “6th” Using the Cells property of the Range object by specifying the row number and column number. This is ...