Это хорошо, если вы хотите использовать такие операторы, как Range («A1») вместо Cell (1,1).

Так, например, ColLetter (1) = A, ColLetter (2) = b, …​, ColLetter (100)

CV и т. Д.

{пусто} 3) ColLetter (номер столбца) ⇒ возвращает букву столбца.

Открытая функция ColLetter (colNumber As Long) As String If colNumber <27 Then If colNumber = 0 Then ColLetter = «Z»

Иначе ColLetter = Mid («ABCDEFGHIJKLMNOPQRSTUVWXYZ», colNumber, 1)

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

ColLetter = ColLetter & ColLetter (colNumber Mod 26)

Иначе ColLetter = Mid («ABCDEFGHIJKLMNOPQRSTUVWXYZ», FLOOR ((colNumber — 26) / 676), 1)

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

End If End If End Функция