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 ...
代码见程序文件:VBA_ConvertColumnNumberToLetter.xlsm
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, like B2:D5, instead of row/column notation. VBA Column Number to L...
Function Convert_Col_Number_To_Letter(ColumnNumber As Double) As String Dim sLetter As String 'Split Address Letter & Row Number sLetter = Split(Cells(1, ColumnNumber).Address, "$")(1) 'Return only the Column Letter Convert_Col_Number_To_Letter = sLetter End Function ...
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 " ...
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 英文字: FunctionColLetter(ColNumberAsInteger)AsString OnErrorGoToErrorhandler ColLetter=Left(Cells(1, ColNumber).Address(0,0),1-(ColNumber>26)) Exit Function Errorhandler: MsgBox"Error encountered, please re-enter" End Function ...
This now gives you the number of the first empty row in column A:To summarize how this works, the search begins at the last row in the worksheet (Rows.Count) then works upwards (xlUp) until it finds a non-empty cell.First non-empty cell using the column letter...
2012-06-29 13:32 −stackoverflow有一个c#写法private string GetExcelColumnName(int columnNumber){ int dividend = columnNumb... 草珊瑚 0 584 Excel 列号转换为字母(VBA) 2009-07-09 17:32 −使用下列算法可以实现“ConvertToLetter”功能: 列号除以 27,然后将得到的整数赋值给变量“i”。列号减去...