Isso é bom se você quiser usar instruções como Range ("A1") em vez de células (1,1).
Assim, por exemplo ColLetter (1) = A, ColLetter (2) = b,…, ColLetter (100) = CV, etc.
3) ColLetter (número da coluna) => retorna a letra da coluna.
Função pública ColLetter (colNumber As Long) As String
Se colNumber <27 Then
Se colNumber = 0 Then
ColLetter = "Z"
Outro
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", colNumber, 1)
Fim se
Outro
Se colNumber <26 2 + 27 Então
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR (colNumber / 26), 1)
ColLetter = ColLetter & ColLetter (colNumber Mod 26)
Outro
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR ((colNumber - 26) / 676), 1)
ColLetter = ColLetter & ColLetter (colNumber - FLOOR ((colNumber - 26) / 676) * 676)
Fim se
Fim se
Função Final