Esto es bueno si desea utilizar declaraciones como Range ("A1") en lugar de celdas (1,1).
Entonces, por ejemplo ColLetter (1) = A, ColLetter (2) = b,…, ColLetter (100) = CV, etc.
3) ColLetter (número de columna) => devuelve la letra de la columna.
ColLetter de función pública (colNumber tan largo) como cadena
Si colNumber <27, entonces
Si colNumber = 0 entonces
ColLetter = "Z"
Demás
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", colNumber, 1)
Terminara si
Demás
Si colNumber <26 2 + 27 Entonces
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR (colNumber / 26), 1)
ColLetter = ColLetter y ColLetter (colNumber Mod 26)
Demás
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR ((colNumber - 26) / 676), 1)
ColLetter = ColLetter & ColLetter (colNumber - FLOOR ((colNumber - 26) / 676) * 676)
Terminara si
Terminara si
Función final