Esto es bueno si le gusta usar declaraciones como Range («A1») en lugar de celdas (1,1).

Entonces, por ejemplo ColLetter (1) = A, ColLetter (2) = b, …​, ColLetter (100)

CV, etc.

{vacío} 3) ColLetter (número de columna) ⇒ devuelve la letra de la columna.

Función pública ColLetter (colNumber tan largo) como cadena Si colNumber <27 Entonces si colNumber = 0 Entonces ColLetter = «Z»

Else ColLetter = Mid («ABCDEFGHIJKLMNOPQRSTUVWXYZ», colNumber, 1)

End If Else If colNumber <26 ^ 2 + 27 Then ColLetter = Mid («ABCDEFGHIJKLMNOPQRSTUVWXYZ», FLOOR (colNumber / 26), 1)

ColLetter = ColLetter y ColLetter (colNumber Mod 26)

Else ColLetter = Mid («ABCDEFGHIJKLMNOPQRSTUVWXYZ», FLOOR ((colNumber – 26) / 676), 1)

ColLetter = ColLetter & ColLetter (colNumber – FLOOR ((colNumber – 26) / 676) * 676)

End If End If End Función