Vba: как преобразовать номер столбца в букву

Вы можете использовать следующий синтаксис в VBA для преобразования номера столбца в букву:

 Sub ConvertNumberToLetter()
Range(" B2 ") = Split((Columns(Range(" A2 ")).Address(, 0)), " : ")(0)
End Sub

Этот конкретный макрос преобразует номер столбца в ячейке A2 в букву и отображает букву в ячейке B2 .

Например, если значение в ячейке A2 равно 4, то в ячейке B2 будет отображаться «D», поскольку это буква, которая соответствует четвертому столбцу в Excel.

В следующем примере показано, как использовать этот синтаксис на практике.

Пример. Преобразование номера столбца в букву в VBA

Предположим, мы хотим узнать, какая буква столбца соответствует номеру столбца 4 в Excel:

Мы можем создать следующий макрос для преобразования этого числа в букву:

 Sub ConvertNumberToLetter()
Range(" B2 ") = Split((Columns(Range(" A2 ")).Address(, 0)), " : ")(0)
End Sub

Когда мы запускаем этот макрос, мы получаем следующий вывод:

В ячейке B2 отображается значение «D», поскольку это буква, соответствующая четвертому столбцу.

Если мы изменим число в ячейке A2 и снова запустим макрос, в ячейке B2 будет отображена обновленная буква столбца.

Например, предположим, что мы меняем число в ячейке A2 на 73 и снова запускаем макрос:

В ячейке B2 теперь отображается значение «BU», поскольку это буква столбца, соответствующая 73-му столбцу.

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в VBA:

VBA: как найти последнюю использованную строку
VBA: как найти последний использованный столбец
VBA: как подсчитать количество используемых столбцов