Excel_VBA 根据列号获取列字母

Function getColumnLetter(ByVal myCol As Integer) As String  '获取单元格列标的字母
    Dim columnName As String
    Dim k As Integer
    k = (myCol - 1) \ 26
    Select Case k
        Case 0
        Case Else
            columnName = columnName & Chr(64 + k)
    End Select
    columnName = columnName & Chr(64 + ((myCol - 1) Mod 26) + 1)
    'MsgBox "列标号为 " & myCol & " 的单元格的列标字母为 " & columnName
   getColumnLetter = columnName

End Function