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