Пошук та заміна Excel VBA

Ви коли-небудь думали про автоматизацію функції пошуку та заміни в Excel. У VBA ми можемо створити макрос, який можна використовувати для пошуку та заміни всього, що ми зазвичай робимо в Excel, натискаючи клавіші клавіш Ctrl + H. За допомогою VBA Find and Replace ми можемо автоматизувати пошук будь-якого слова та замінивши його іншою заміною. Це допомагає, коли нам потрібно виконувати одну і ту ж діяльність кілька разів.

Як знайти та замінити слова в Excel VBA?

Нижче наведено різні приклади пошуку та заміни слів у excel за допомогою коду VBA.

Ви можете завантажити цей VBA Знайти та замінити шаблон Excel тут - VBA Знайти та замінити шаблон Excel

Знайти та замінити VBA - приклад №1

У дуже простому прикладі ми маємо набір даних, який складається з якоїсь назви. І деякі назви повторюються, як показано нижче.

Тепер ми створимо код, за допомогою якого ми знайдемо будь-яке з імен, яке повторюється, і замінимо чимось іншим. Для цього виконайте наведені нижче дії.

Крок 1: Перейдіть до меню Вставка у VBA та виберіть параметр Модуль, як показано нижче.

Крок 2: Після цього ми відкриємо новий модуль. У цей модуль запишіть підкатегорію під назвою VBA Знайти та замінити, або ви можете вибрати будь-яку назву цієї підкатегорії.

Код:

 Sub Find_Replace1 () Кінець Sub

Крок 3: Оскільки ми маємо дані у стовпці B від клітинки B2 до B10, то ми виберемо цей діапазон спочатку від B2: B10.

Код:

 Діапазон Find Find_Replace1 () ("B2: B10"). Замініть кінець Sub

Крок 4: Тепер, щоб замінити щось, нам потрібно шукати це слово. Тут також спочатку виберемо функцію Замінити, щоб переглянути, що нам потрібно замінити.

Код:

 Діапазон Find Find_Replace1 () ("B2: B10"). Замініть кінець Sub

Відповідно до синтаксису функції Замінити, ми знайдемо те, що нам потрібно замінити.

Крок 5: Виберемо ім’я списку « Бен » як те, що нам потрібно замінити.

Код:

 Діапазон пошуку Find_Replace1 () ("B2: B10"). Замініть що: = "Ben" Кінець Sub

Крок 6: Тепер виберемо слово-заміну, яким нам потрібно замінити вибране слово. Тут ми вирішили замінити ім'я Ben на Сем, яке згадується як Заміна, як показано нижче.

Код:

 Sub Find_Replace1 () Діапазон ("B2: B10"). Замініть що: = "Ben", Заміна: = "Sam" Кінець Sub

Крок 7: Тепер складіть код і запустіть його, натиснувши на кнопку Відтворити або натиснувши клавішу F5, як показано нижче.

Ми побачимо, що всі комірки, що містять ім'я як Бен, тепер замінені на ім'я Сем . І це підкреслено жовтим кольором.

Знайти та замінити VBA - приклад №2

Ми всі, можливо, стикалися з ситуацією, коли ми намагалися знайти та замінити деякі слова літерами, що відрізняються від регістру. Припустимо, у списку, якщо ми хочемо замінити лише те слово, яке має деякі малі та великі літери. І якщо ми використовуємо процес, який ми бачили в прикладі-1, то ми в кінцевому підсумку замінимо всі подібні слова в цьому списку разом з необхідним. Цей процес неможливо виконати за допомогою функції пошуку та заміни (Ctrl + H) excel. Для цього у нас є положення в VBA.

Розглянемо наведені нижче дані для цього. Як ми бачимо, ми навмисно додали слово BEN у верхньому регістрі в клітинку B2.

Виконайте наведені нижче кроки, щоб знайти та замінити слово BEN.

Крок 1: Запустіть підкатегорію VBA Знайти та замінити там, як показано нижче.

Код:

 Sub Find_Replace2 () Кінець Sub

Крок 2: Виберіть список як діапазон від B2 до B10.

Код:

 Діапазон пошуку Find_Replace2 () () B2: B10 ") Кінець Sub

Крок 3: Тепер виберемо точне слово, яке ми хочемо замінити. Тут ми вибрали BEN, який знаходиться в комірці B2.

Код:

 Діапазон пошуку Find_Replace2 () ("B2: B10"). Замініть що: = "BEN" Кінець Sub

Крок 4: Знову ми вибрали те саме слово, яке ми бачили в прикладі-1, як заміну БЕН як Сем .

Код:

 Діапазон Sub Find_Replace2 () ("B2: B10"). Замініть що: = "BEN", Заміна: = "Sam" Кінець Sub

Крок 5: Тепер для заміни точного слова BEN нам потрібно використовувати MatchCase, якщо він стає ПРАВИЛЬНИМ, як показано нижче.

Код:

 Діапазон Sub Find_Replace2 () ("B2: B10"). Замініть що: = "BEN", Заміна: = "Sam", MatchCase: = True End Sub

MatchCase допоможе нам у визначенні того слова, яке ми хочемо замінити на точне відповідність. Тут слово, яке ми вибрали, є BEN у верхньому регістрі, а в списку є й інші подібні слова, але в правильному відмінку.

Крок 6: Тепер запустіть код, натиснувши на кнопку Відтворити або натиснувши клавішу F5.

Ми побачимо, слово BEN, яке було у комірці В2, тепер замінено на слово « Сем », виділене жовтим кольором. І подібні слова Бен, які розташовані у клітинах B5 і B8 відповідно, досі залишаються незмінними.

Ось як працює точна відповідність.

Крок 7: Тепер ми видалимо доданий MatchCase з вищевказаного коду і подивимось, як це буде працювати.

Код:

 Діапазон Sub Find_Replace2 () ("B2: B10"). Замініть що: = "BEN", Заміна: = "Sam", MatchCase: = True End Sub

Крок 8: Знову компілюйте та запустіть код.

Ми побачимо, що код замінив усі комірки, що містять слово Ben, як показано вище. Що означає, що після видалення MatchCase код буде працювати, як ми бачили приклад 1.

Плюси пошуку та заміни Excel VBA

  • Основне навчання полягає в тому, що ми можемо замінити чутливі до регістру слова та вміст комірок за допомогою VBA Знайти та замінити, як показано в прикладі-2.
  • Якщо діяльність відбувається вручну і багаторазово повторюється, то автоматизація цього стане перевагою в економії часу та зусиль.
  • Навіть якщо у нас є величезний набір даних, де ми хочемо замінити конкретні слова, це можна зробити, не випадаючи з програми excel у об'ємних файлах.

Що потрібно пам’ятати

  • Ми можемо створити макрос функції «Знайти та замінити» за допомогою параметра «Записати макрос» на вкладці «Розробник». Це найпростіший спосіб створити макрос, якщо ви новачок у кодуванні.
  • Збереження файлу у форматі Macro Enable excel дозволить в майбутньому використовувати код.
  • Ми можемо замінити будь-який текст, слово, цифру або символ на VBA Знайти та замінити.

Рекомендовані статті

Це посібник із пошуку та заміни VBA. Тут ми обговорюємо, як знайти та замінити слова в Excel за допомогою VBA разом із практичними прикладами та шаблоном Excel, який можна завантажити. Ви також можете ознайомитися з іншими запропонованими нами статтями -

  1. Перерва VBA для циклу
  2. ЗАМІНА Формули в Excel
  3. Повне керівництво VBA Знайти
  4. ЗНАЙТИ Функцію в Excel

Категорія:

VBA