Намерете и заменете 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 Find and Replace или можете да изберете всяко име на тази подкатегория.

Код:

 Sub Find_Replace1 () End Sub

Стъпка 3: Тъй като имаме данни в колона B от клетка B2 до B10, така че ще изберем първо този диапазон от B2: B10.

Код:

 Sub Find_Replace1 () Обхват ("B2: B10"). Замяна на края Sub

Стъпка 4: Сега, за да заменим нещо, което трябва да потърсим тази дума. Тук също първо ще изберете функцията Replace, за да разгледаме какво трябва да заменим.

Код:

 Sub Find_Replace1 () Обхват ("B2: B10"). Замяна на края Sub

Съгласно синтаксиса на функцията Replace, ще намерим какво трябва да заменим.

Стъпка 5: Нека изберем първото име на списъка „ Бен “ като това, което трябва да заменим.

Код:

 Sub Find_Replace1 () Обхват ("B2: B10"). Заменете какво: = "Ben" End Sub

Стъпка 6: Сега избираме заместващата дума, с която трябва да заменим избраната дума. Тук избрахме да заменим името Бен със Сам, което е споменато като Замяна, както е показано по-долу.

Код:

 Sub Find_Replace1 () Обхват ("B2: B10"). Заменете какво: = "Ben", Замяна: = "Sam" End Sub

Стъпка 7: Сега компилирайте кода и го стартирайте, като кликнете върху бутона Възпроизвеждане или чрез натискане на клавиша F5, както е показано по-долу.

Ще видим, всички клетки, съдържащи името като Бен, вече са заменени с име Сам . И това е подчертано и в жълт цвят.

Намиране и замяна на VBA - Пример №2

Всички може би сме се сблъскали със ситуация, в която се опитвахме да намерим и заменим някои думи с букви, чувствителни към малки и големи букви. Да предположим в списък, ако искаме да заменим само тази дума, която има някои малки и малки букви. И ако използваме процеса, който видяхме в пример-1, тогава ще заменим всички подобни думи в този списък заедно с необходимите. Този процес не може да се извърши с помощта на функция за намиране и замяна (Ctrl + H) на excel. За това имаме провизия във VBA.

Нека разгледаме по-долу данните за това. Както виждаме, нарочно сме добавили дума BEN в главни букви в клетка B2.

Следвайте стъпките по-долу, за да намерите и замените думата BEN.

Стъпка 1: Стартирайте подкатегорията на VBA Find and Replace там, както е показано по-долу.

Код:

 Sub Find_Replace2 () Край Sub

Стъпка 2: Изберете списъка като диапазон от B2 до B10.

Код:

 Sub Find_Replace2 () Диапазон („B2: B10“) Край Sub

Стъпка 3: Сега изберете точната дума, която искаме да заменим. Тук сме избрали BEN, който е в клетка B2.

Код:

 Sub Find_Replace2 () Обхват ("B2: B10"). Заменете какво: = "BEN" Край Sub

Стъпка 4: Отново избрахме същата дума, която видяхме в пример-1, като заместител на BEN като Сам .

Код:

 Sub Find_Replace2 () Обхват ("B2: B10"). Заменете какво: = "BEN", Замяна: = "Sam" End Sub

Стъпка 5: Сега за подмяна на точната дума BEN, трябва да използваме MatchCase, ако това стане ИСТИНСКО, както е показано по-долу.

Код:

 Sub Find_Replace2 () Обхват ("B2: B10"). Заменете какво: = "BEN", Замяна: = "Sam", MatchCase: = True End Sub

MatchCase ще ни помогне да идентифицираме тази дума, която искаме да заменим с точно съвпадение. Тук думата, която сме избрали, е BEN в главни букви и списък има и други подобни думи, но в правилния случай.

Стъпка 6: Сега стартирайте кода, като кликнете върху бутона Play или натиснете клавиша F5.

Ще видим, думата BEN, която беше в клетка B2, сега се заменя с думата „ Сам “, подчертана в жълт цвят. И подобни думи Бен, които са разположени съответно в клетки B5 и B8, все още са непроменени.

Ето как работи точното съвпадение.

Стъпка 7: Сега ще премахнем добавената MatchCase от горния код и ще видим как ще работи това.

Код:

 Sub Find_Replace2 () Обхват ("B2: B10"). Заменете какво: = "BEN", Замяна: = "Sam", MatchCase: = True End Sub

Стъпка 8: Отново компилирайте и стартирайте кода.

Ще видим, че кодът е заместил всички клетки, съдържащи дума Бен, както е показано по-горе. Което означава, че след премахването на MatchCase кодът ще работи както видяхме в пример 1.

Плюсове на Excel VBA Намиране и замяна

  • Основното учене е, че можем да заменим чувствителните към малки думи и съдържанието на клетки с помощта на VBA Търсене и замяна, както е показано в пример-2.
  • Ако дейността се повтаря ръчно и многократно се повтаря, автоматизирането на това би било предимство за спестяване на време и усилия.
  • Дори и да имаме огромен набор от данни, където искаме да заменим конкретни думи, това може да стане, без да се срине excel в обемисти файлове.

Неща, които трябва да запомните

  • Можем да създадем макрос на функцията Намиране и замяна с помощта на опцията Запис на макрос в раздела Разработчик. Това е най-лесният начин да създадете макрос, ако сте нови за кодирането.
  • Записването на файла във формат Macro Enable excel ще даде възможност за кодиране в бъдеще.
  • Можем да заменим всякакъв вид текст, дума, число или знак с VBA Търсене и замяна.

Препоръчителни статии

Това е ръководство за намиране и замяна на VBA. Тук обсъждаме как да намерим и заменим думите в Excel, използвайки VBA, заедно с практически примери и шаблон за excel за сваляне. Можете да разгледате и другите ни предложени статии -

  1. VBA почивка за контур
  2. ЗАМЯНА Формула в Excel
  3. Пълно ръководство Намерете VBA
  4. НАМЕРЕТЕ Функцията в Excel

Категория:

VBA