Vba: как удалить начальные и конечные пробелы

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

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

    For i = 2 To 7
    Range(" B " & i) = Trim(Range(" A " & i))
    Next i
    
End Sub

В этом конкретном примере из каждой строки в диапазоне A2:A7 удаляются начальные и конечные пробелы, а результаты выводятся в диапазоне B2:B7 .

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

Пример. Использование VBA для удаления начальных и конечных пробелов из строк

Предположим, у нас есть следующий список строк в Excel:

Обратите внимание, что многие строки имеют начальные или конечные пробелы.

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

Для этого мы можем создать следующий макрос:

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

    For i = 2 To 7
    Range(" B " & i) = Trim(Range(" A " & i))
    Next i
    
End Sub

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

В столбце B отображаются все строки столбца A с удаленными начальными и конечными пробелами.

Обратите внимание: если вы хотите удалить из строк только начальные или конечные пробелы, вы можете использовать функции LTrim или RTrim соответственно.

Примечание . Полную документацию по каждой функции VBA Trim можно найти здесь .

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

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

VBA: как подсчитать вхождение символов в строку
VBA: как проверить, содержит ли строка другую строку
VBA: как подсчитать ячейки с определенным текстом