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: як підрахувати клітинки з певним текстом