Excel_VBA 获取指定列号单元格的列标字母

Public Sub 4_085()
Dim ColumnName As String
Dim myCol As Integer
Dim myRange As Range
myCol = 55 '指定列标号
Set myRange = Cells(1, myCol) '指定该列标号的任意单元格
ColumnName = Left(myRange.Range("A1").Address(True, False), _
InStr(1, myRange.Range("A1").Address(True, False), "$", 1) - 1)
MsgBox "列标号为 " & myCol & " 的单元格的列标字母为 " & ColumnName
Set myRange = Nothing
End Sub
Public Sub 4_086()
Dim ColumnName As String
Dim myCol As Integer, k As Integer
myCol = 3 '指定列标号
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
End Sub