Excel VBA Găsiți și înlocuiți

V-ați gândit vreodată să automatizați funcția Găsiți și înlocuiți în Excel. În VBA, putem crea o macrocomandă care poate fi folosită pentru găsirea și înlocuirea a ceea ce facem în mod normal în Excel, prin apăsarea tastelor rapide Ctrl + H. Cu ajutorul VBA Găsiți și înlocuiți, putem automatiza găsirea oricărui cuvânt și înlocuirea acestuia cu alt înlocuitor. Acest lucru ajută atunci când trebuie să efectuăm aceeași activitate de mai multe ori.

Cum de a găsi și înlocui cuvinte în Excel VBA?

Mai jos sunt diferite exemple pentru a găsi și înlocui cuvintele din excel folosind codul VBA.

Puteți descărca acest șablon VBA Găsiți și înlocuiți Excel - șablonul VBA Găsiți și înlocuiți Excel

Găsirea și înlocuirea VBA - Exemplul # 1

Într-un exemplu foarte simplu, avem un set de date care constă dintr-un anumit nume. Și unele dintre nume se repetă așa cum se arată mai jos.

Acum vom crea un cod, prin care vom găsi oricare dintre numele care se repetă și le vom înlocui cu altceva. Pentru aceasta, urmați pașii de mai jos.

Pasul 1: Accesați meniul Insert în VBA și selectați opțiunea Module, așa cum se arată mai jos.

Pasul 2: Odată ce facem asta, vom deschide un nou modul. În acel modul, scrieți subcategoria în numele Căutării și înlocuirii VBA sau puteți alege orice nume din acea subcategorie.

Cod:

 Sub Find_Replace1 () End Sub

Pasul 3: Deoarece avem datele din coloana B de la celula B2 la B10, atunci vom selecta primul interval de la B2: B10.

Cod:

 Sub Find_Replace1 () Interval ("B2: B10"). Înlocuiți Sub End

Pasul 4: Acum pentru a înlocui ceva trebuie să căutăm acest cuvânt. Tot aici vom selecta mai întâi funcția Înlocuire pentru a privi ce trebuie să înlocuim.

Cod:

 Sub Find_Replace1 () Interval ("B2: B10"). Înlocuiți Sub End

În conformitate cu sintaxa funcției de înlocuire, vom găsi ceea ce trebuie să înlocuim.

Pasul 5: Să selectăm primul nume al listei „ Ben ” ca ceea ce trebuie să înlocuim.

Cod:

 Sub Find_Replace1 () Interval ("B2: B10"). Înlocuiește ce: = "Ben" End Sub

Pasul 6: Alegeți acum cuvântul de înlocuire prin care trebuie să înlocuim cuvântul selectat. Aici am ales să înlocuim numele Ben cu Sam, care este menționat ca înlocuire așa cum se arată mai jos.

Cod:

 Sub Find_Replace1 () Interval ("B2: B10"). Înlocuiți ce: = "Ben", Înlocuire: = "Sam" End Sub

Pasul 7: Acum compilați codul și executați-l făcând clic pe butonul Redare sau apăsând tasta F5, așa cum se arată mai jos.

Vom vedea, toate celulele care conțin numele ca Ben sunt acum înlocuite cu numele Sam . Și asta se evidențiază și în culoarea galbenă.

Găsirea și înlocuirea VBA - Exemplul # 2

Cu toții s-ar fi putut confrunta cu o situație în care am încercat să găsim și să înlocuim unele cuvinte cu litere sensibile la litere mari și mici. Să presupunem într-o listă, dacă dorim să înlocuim doar acel cuvânt care are unele litere mici sau minuscule. Și dacă folosim procesul pe care l-am văzut în exemplul 1, am sfârși prin înlocuirea tuturor cuvintelor similare din acea listă împreună cu unul necesar. Acest proces nu poate fi realizat cu ajutorul funcției de găsire și înlocuire (Ctrl + H) de excel. Pentru aceasta, avem o prevedere în VBA.

Să luăm în considerare datele de mai jos pentru aceasta. După cum putem vedea, am adăugat intenționat un cuvânt BEN în majuscule în celula B2.

Urmați pașii de mai jos pentru a găsi și înlocui cuvântul BEN.

Pasul 1: Porniți subcategoria VBA Găsiți și înlocuiți-o acolo, așa cum se arată mai jos.

Cod:

 Sub Find_Replace2 () End Sub

Pasul 2: Selectați lista ca Interval de la B2 la B10.

Cod:

 Sub Find_Replace2 () Range ("B2: B10") End Sub

Pasul 3: Alegeți acum cuvântul exact pe care dorim să îl înlocuim. Aici am selectat BEN, care este în celula B2.

Cod:

 Sub Find_Replace2 () Interval ("B2: B10"). Înlocuiți ce: = "BEN" End Sub

Pasul 4: Din nou, am selectat același cuvânt pe care l-am văzut în exemplul 1 ca înlocuire a lui BEN ca Sam .

Cod:

 Sub Find_Replace2 () Interval ("B2: B10"). Înlocuiți ce: = "BEN", Înlocuire: = "Sam" End Sub

Pasul 5: Acum pentru a înlocui cuvântul exact BEN, trebuie să folosim MatchCase dacă acesta devine ADEVĂRAT, așa cum se arată mai jos.

Cod:

 Sub Find_Replace2 () Interval ("B2: B10"). Înlocuiți ce: = "BEN", Înlocuire: = "Sam", MatchCase: = True End Sub

MatchCase ne va ajuta în identificarea cuvântului pe care dorim să îl înlocuim cu o potrivire exactă. Aici, cuvântul pe care l-am selectat este BEN în majuscule și lista are și alte cuvinte similare, dar în caz de caz.

Pasul 6: Acum rulați codul făcând clic pe butonul Redare sau prin apăsarea tastei F5.

Vom vedea, cuvântul BEN, care se afla la celula B2, este acum înlocuit cu cuvântul „ Sam ”, evidențiat în culoare galbenă. Și cuvintele similare Ben, localizate la celulele B5 și respectiv B8, sunt încă neschimbate.

Așa funcționează potrivirea exactă.

Pasul 7: Acum, vom elimina MatchCase adăugat din codul de mai sus și vom vedea cum ar funcționa acest lucru.

Cod:

 Sub Find_Replace2 () Interval ("B2: B10"). Înlocuiți ce: = "BEN", Înlocuire: = "Sam", MatchCase: = True End Sub

Pasul 8: Compilați din nou și rulați codul.

Vom vedea că codul a înlocuit toate celulele care conțin cuvântul Ben, așa cum se arată mai sus. Ceea ce înseamnă că, după eliminarea MatchCase, codul va funcționa așa cum am văzut exemplul 1.

Avantaje Excel VBA Găsiți și înlocuiți

  • Învățarea principală este că putem înlocui cuvinte sensibile la litere mari și mici și conținutul celulelor cu ajutorul Căutării și înlocuirii VBA, așa cum se arată în exemplul 2.
  • Dacă activitatea se repetă manual și de mai multe ori se repetă, automatizarea acestui lucru ar fi un avantaj în economisirea timpului și a efortului ambelor.
  • Chiar dacă avem un set uriaș de date în care dorim să înlocuim anumite cuvinte, asta se poate face fără a zdrobi excel în fișierele voluminoase.

Lucruri de amintit

  • Putem crea o macrocomandă a funcției Găsiți și înlocuiți cu ajutorul opțiunii Record Macro sub fila Dezvoltator. Acesta este cel mai simplu mod de a crea o macro dacă sunteți nou la codare.
  • Salvarea fișierului în format Macro Enable excel va permite să se obișnuiască codul în viitor.
  • Putem înlocui orice tip de text, cuvânt, număr sau caracter prin VBA Căutare și Înlocuire.

Articole recomandate

Acesta este un ghid pentru Găsirea și înlocuirea VBA. Aici vom discuta despre cum puteți găsi și înlocui cuvintele în Excel folosind VBA, împreună cu exemple practice și șablon Excel descărcabil. De asemenea, puteți parcurge și alte articole sugerate -

  1. VBA Break pentru Loop
  2. REPLACE Formula în Excel
  3. Ghid complet VBA Găsire
  4. GĂsește funcția în Excel

Categorie:

VBA