利用空閒時間，開發了一個十進位制轉換為字母（相當於26進位制）的函式。功能有：

1. 給定Excel列標，返回對應的列名（如，第677列對應的列名為“ZA”）（但是，Excel中的列最多為16384列，對應的列名為XFD）

2. 給定任意正長整形數值（即，1到2147483647），可返回對應的字母

3. 可通過VBE immediate視窗檢視計算過程（debug print）

程式碼:

Function GetExcelColumnNameF(columnNumber As Integer)

    Dim dividend As Integer
    Dim columnName As String
    Dim modulo As Integer
    Dim n As Integer '迴圈次數
    
    dividend = columnNumber
    Debug.Print "Input: ColumnNumber = " & columnNumber
    Debug.Print "Calculation process:" & vbNewLine

    While (dividend > 0)
        n = n + 1
        modulo = (dividend - 1) Mod 26
        Debug.Print "Iteration No." & n
        Debug.Print "dividend = " & dividend & ", modulo = (dividend - 1) Mod 26 = " & modulo
        columnName = Chr(65 + modulo) + columnName
        dividend = Round((dividend - modulo) / 26, 0)
        Debug.Print "columnName = " & columnName & ", dividend = Round((dividend - modulo) / 26, 0) = " & dividend & vbNewLine
    Wend
    GetExcelColumnNameF = columnName
    Debug.Print "Result: ColumnNumber = " & columnNumber & " <--> ColumnName = " & columnName & vbNewLine & vbNewLine
   
End Function
 

除錯輸出（Log）:

Input: ColumnNumber = 16382
Calculation process:

Iteration No.1
dividend = 16382, modulo = (dividend - 1) Mod 26 = 1
columnName = B, dividend = Round((dividend - modulo) / 26, 0) = 630

Iteration No.2
dividend = 630, modulo = (dividend - 1) Mod 26 = 5
columnName = FB, dividend = Round((dividend - modulo) / 26, 0) = 24

Iteration No.3
dividend = 24, modulo = (dividend - 1) Mod 26 = 23
columnName = XFB, dividend = Round((dividend - modulo) / 26, 0) = 0

Result: ColumnNumber = 16382 <--> ColumnName = XFB
 

效果圖：

參考文章：

https://stackoverflow.com/questions/181596/how-to-convert-a-column-number-eg-127-into-an-excel-column-eg-aa