Как перевернуть строку в 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 задом наперед.

Например:

• Мавс становится сваМ
• «Шпоры» становятся СрупС
• «Ракеты» становятся «СтеккоР»
• Кингз становится сгниК

И так далее.

Обратите внимание, что функция StrReverse также работает с числами.

Например, применение функции StrReverse к числу 1234 вернет 4321 .

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

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

VBA: как проверить, содержит ли строка другую строку
VBA: как подсчитать количество строк в диапазоне
VBA: как писать функции COUNTIF и COUNTIFS