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
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