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: як підрахувати кількість використаних стовпців