Vba: як видалити спеціальні символи з рядка

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

 Sub ReplaceSpecialChars()
Dim i As Integer
    
For i = 2 To 8
Range("B" & i) = Replace(Replace(Replace(Range("A" & i), "!", ""), "@", ""), "#", "")
Next i
End Sub

Цей конкретний приклад замінює наступні спеціальні символи в кожному рядку в діапазоні комірок A2:A8 і генерує нові рядки в комірках B2:B8 :

• !
• @
• #

Зверніть увагу, що ми використовували три вкладені методи Replace , щоб видалити кожен із цих спеціальних символів із рядків.

Щоб видалити ще більше спеціальних символів, просто використовуйте більше вкладених методів Replace .

У наступному прикладі показано, як використовувати цей синтаксис на практиці.

Приклад: видалення спеціальних символів із рядка за допомогою VBA

Припустімо, що в Excel є такий список рядків:

Припустімо, ми хочемо видалити такі спеціальні символи з кожного рядка:

• !
• @
• #

Для цього ми можемо створити такий макрос:

 Sub ReplaceSpecialChars()
Dim i As Integer
    
For i = 2 To 8
Range("B" & i) = Replace(Replace(Replace(Range("A" & i), "!", ""), "@", ""), "#", "")
Next i
End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

У стовпці B відображається кожен із рядків у стовпці A з вилученими спеціальними символами.

Примітка . Повну документацію щодо методу заміни VBA можна знайти тут .

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання за допомогою VBA:

VBA: як підрахувати випадки появи символів у рядку
VBA: як перевірити, чи містить рядок інший рядок
VBA: як підрахувати клітинки з певним текстом