Як перевернути рядок у vba (з прикладом)

Ви можете використовувати функцію StrReverse у VBA, щоб перевернути текстовий рядок.

Ось поширений спосіб використання цієї функції на практиці:

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

У цьому конкретному прикладі кожен рядок у діапазоні A2:A11 змінюється на зворотний і відображає результати в діапазоні B2:B11 .

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

Приклад: як перевернути рядки за допомогою VBA

Припустімо, що в Excel є такий стовпець назв баскетбольних команд:

Припустімо, ми хочемо перевернути назву кожної команди та відобразити результати у відповідній клітинці у стовпці B.

Для цього ми можемо створити такий макрос:

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

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

У колонці B відображається назва кожної команди в колонці A задом наперед.

Наприклад:

• Mavs стає svaM
• Шпори стають SrupS
• Rockets стає stekcoR
• Царів стає сгніК

І так далі.

Зверніть увагу, що функція StrReverse також працює з числами.

Наприклад, застосування функції StrReverse до числа 1234 поверне 4321 .

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

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

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