Някои удобни лични макроси: Връщане на колонна буква за номер на колона.

Това е добре, ако искате да използвате изявления като Range ("A1") вместо клетки (1,1).

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

3) ColLetter (номер на колона) => връща обратно колона Letter.

Обществена функция ColLetter (colNumber As Long) As String

Ако colNumber <27 Тогава
Ако colNumber = 0 Тогава
ColLetter = "Z"
Иначе
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", colNumber, 1)
Край Ако
Иначе
Ако colNumber <26 2 + 27 Тогава
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", ЕТАЖ (colNumber / 26), 1)
ColLetter = ColLetter & ColLetter (colNumber Mod 26)
Иначе
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", ЕТАЖ ((colNumber - 26) / 676), 1)
ColLetter = ColLetter & ColLetter (colNumber - FLOOR ((colNumber - 26) / 676) * 676)
Край Ако
Край Ако

Крайна функция