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