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

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

 SubRemoveSpaces ()

    Dim i As Integer

    For i = 2 To 8
    Range(" B " & i) = Replace(Range(" A " & i), " ", "")
    Next i
    
End Sub

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

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

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

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

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

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

 SubRemoveSpaces ()

    Dim i As Integer

    For i = 2 To 8
    Range(" B " & i) = Replace(Range(" A " & i), " ", "")
    Next i
    
End Sub

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

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

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

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

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

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