Vba: як перетворити текст на стовпці

Ви можете використовувати метод Range.TextToColumns у VBA, щоб перетворити текстову клітинку на стовпці.

Наступні приклади показують, як використовувати цей метод на практиці в різних сценаріях.

Приклад 1: перетворення тексту на стовпці (пробіл як роздільник)

Припустімо, що в Excel є такий список імен у діапазоні A1:A9 :

Ми можемо створити такий макрос, щоб перетворити текст у кожній комірці в окремі стовпці, використовуючи пробіли як розділювачі:

 Sub TextToCols()
    Range(" A1:A9 ").TextToColumns_
    ConsecutiveDelimiter:=True, _
    Space:=True
End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Зверніть увагу, що текст у кожній клітинці було перетворено в окремі стовпці.

Примітка . Аргумент ConsecutiveDelimiter:=True повідомляє VBA розглядати послідовні роздільники разом як один роздільник.

Приклад 2: Перетворення тексту на стовпці (кома як роздільник)

Припустімо, у нас є такий список імен у діапазоні A1:A9 , розділених комами:

Ми можемо створити такий макрос, щоб перетворити текст у кожній комірці в окремі стовпці, використовуючи коми як розділювачі:

 Sub TextToCols()
    Range(" A1:A9 ").TextToColumns_
    ConsecutiveDelimiter:=True, _
    Comma:=True
End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Зверніть увагу, що текст у кожній клітинці було перетворено в окремі стовпці.

Приклад 3. Перетворення тексту на стовпці (з текстом у подвійних лапках)

Припустімо, що ми маємо такий список імен у діапазоні A1:A9 , розділених пробілами та включно з подвійними лапками:

Ми можемо створити такий макрос, щоб перетворити текст у кожній клітинці в окремі стовпці:

 Sub TextToCols()
    Range(" A1:A9 ").TextToColumns_
    TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=True, _
    Space:=True
End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Зверніть увагу, що текст у кожній клітинці було перетворено в окремі стовпці.

Зауважте, що ми використовували аргумент TextQualifier:=xlDoubleQuote , щоб повідомити VBA, що текст було взято в подвійні лапки.

Примітка . Ви можете знайти повну документацію методу TextToColumns у VBA тут .

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання за допомогою VBA:

VBA: як підрахувати випадки появи символів у рядку
VBA: як перевірити, чи містить рядок інший рядок
VBA: як підрахувати клітинки з певним текстом