Najdi in zamenjaj Excel VBA

Ste že kdaj pomislili, da bi v programu Excel avtomatizirali funkcijo Najdi in zamenjaj. V VBA lahko ustvarimo makro, ki ga lahko uporabimo za iskanje in zamenjavo česar koli, kar običajno počnemo v Excelu, s pritiskom na tipke bližnjic Ctrl + H. S pomočjo VBA Najdi in zamenjaj lahko avtomatiziramo iskanje katere koli besede in njeno nadomestitev z drugo zamenjavo. To pomaga, kadar moramo večkrat izvesti isto dejavnost.

Kako najti in zamenjati besede v Excelu VBA?

Spodaj so različni primeri iskanja in zamenjave besed v excelu z uporabo kode VBA.

Predlogo za iskanje in zamenjavo Excelove predloge lahko najdete tukaj - VBA Poišči in zamenjaj predlogo Excel

Najdi in zamenjaj VBA - primer 1

V zelo preprostem primeru imamo nabor podatkov, ki je sestavljen iz nekega imena. Nekatera imena se ponavljajo, kot je prikazano spodaj.

Zdaj bomo ustvarili kodo, s katero bomo našli katero od imen, ki se ponavljajo, in jih nadomestili z nečim drugim. Za to sledite spodnjim korakom.

1. korak: Pojdite na Vstavi meni v VBA in izberite možnost Modul, kot je prikazano spodaj.

Korak 2: Ko to storimo, bomo odprli nov modul. V ta modul napišite podkategorijo v imenu VBA Najdi in zamenjaj ali pa lahko izberete katero koli ime te podkategorije.

Koda:

 Sub Find_Replace1 () Konec Sub

Korak 3: Ker imamo podatke v stolpcu B od celice B2 do B10, bomo izbrali prvo območje med B2: B10.

Koda:

 Sub Find_Replace1 () Obseg ("B2: B10"). Zamenjajte konec Sub

4. korak: Da bi zamenjali nekaj, moramo iskati to besedo. Tudi tukaj bomo najprej izbrali funkcijo Zamenjaj, da bomo pogledali, kaj moramo zamenjati.

Koda:

 Sub Find_Replace1 () Obseg ("B2: B10"). Zamenjajte konec Sub

Glede na skladnjo funkcije Zamenjaj bomo našli, kaj moramo nadomestiti.

5. korak: Izberimo ime seznama " Ben " kot tisto, kar moramo nadomestiti.

Koda:

 Pod Find_Replace1 () Obseg ("B2: B10"). Zamenjajte, kaj: = "Ben" End Sub

6. korak: Zdaj izberite nadomestno besedo, s katero moramo nadomestiti izbrano besedo. Tu smo izbrali, da nadomestimo ime Ben s Samom, ki je navedeno spodaj kot nadomestitev .

Koda:

 Sub Find_Replace1 () Obseg ("B2: B10"). Zamenjajte, kaj: = "Ben", zamenjava: = "Sam" konec pod

7. korak: Zdaj sestavite kodo in jo zaženite s klikom na gumb Play ali s pritiskom na tipko F5, kot je prikazano spodaj.

Videli bomo, da so vse celice, ki vsebujejo ime kot Ben, zdaj zamenjane z imenom Sam . In to je poudarjeno tudi v rumeni barvi.

Najdi in zamenjaj VBA - primer # 2

Vsi smo se morda srečali s situacijo, ko smo poskušali najti in zamenjati nekatere besede z velikimi in črkami. Recimo na seznamu, če želimo zamenjati samo tisto besedo, ki ima nekaj malih ali malih črk. In če uporabljamo postopek, ki smo ga videli v primeru-1, bi na koncu zamenjali vse podobne besede na tem seznamu skupaj z zahtevanimi. Tega postopka ni mogoče izvesti s pomočjo funkcije iskanja in zamenjave (Ctrl + H) Excela. Za to imamo v VBA določbo.

Razmislimo o spodnjih podatkih za to. Kot lahko vidimo, smo v celici B2 namenoma dodali besedo BEN v velikem tisku.

Za iskanje in zamenjavo besede BEN sledite spodnjim korakom .

1. korak: Zaženite podkategorijo VBA Najdi in zamenjaj tam, kot je prikazano spodaj.

Koda:

 Sub Find_Replace2 () Konec Sub

2. korak: seznam izberite v območju od B2 do B10.

Koda:

 Pod Find_Replace2 () Obseg ("B2: B10") Konec Pod

Korak 3: Zdaj izberite točno besedo, ki jo želimo nadomestiti. Tu smo izbrali BEN, ki je v celici B2.

Koda:

 Pod Find_Replace2 () Obseg ("B2: B10"). Zamenjajte, kaj: = "BEN" Konec pod

Korak 4: Spet smo izbrali isto besedo, kot smo jo videli v primeru 1, kot nadomestitev BEN kot Sam .

Koda:

 Sub Find_Replace2 () Obseg ("B2: B10"). Zamenjajte, kaj: = "BEN", zamenjava: = "Sam" konec pod

Korak 5: Zdaj za zamenjavo natančne besede BEN moramo uporabiti MatchCase, če ta postane TRUE, kot je prikazano spodaj.

Koda:

 Sub Find_Replace2 () Obseg ("B2: B10"). Zamenjajte, kaj: = "BEN", zamenjava: = "Sam", MatchCase: = True End Sub

MatchCase nam bo pomagal pri prepoznavanju besede, ki jo želimo nadomestiti s točno ujemanjem. Tukaj je beseda, ki smo jo izbrali, velika črka BEN in seznam ima tudi druge podobne besede, vendar v pravem primeru.

6. korak: Zdaj zaženite kodo s klikom na gumb Play ali s pritiskom na tipko F5.

Videli bomo, da je beseda BEN, ki je bila v celici B2, zdaj nadomeščena z besedo " Sam ", označena z rumeno barvo. In podobne besede Ben, ki se nahajajo v celicah B5 in B8, sta še vedno nespremenjeni.

Tako deluje natančno ujemanje.

7. korak: Zdaj bomo odstranili dodano MatchCase iz zgornje kode in videli, kako bi to delovalo.

Koda:

 Sub Find_Replace2 () Obseg ("B2: B10"). Zamenjajte, kaj: = "BEN", zamenjava: = "Sam", MatchCase: = True End Sub

8. korak: Znova sestavite in zaženite kodo.

Videli bomo, da je koda nadomestila vse celice, ki vsebujejo besedo Ben, kot je prikazano zgoraj. Kar pomeni, da bo po odstranitvi MatchCase koda delovala, kot smo videli v primeru 1.

Prednosti programa Excel VBA najti in zamenjati

  • Večje učenje je, da lahko besede in vsebino celic z občutljivimi in malimi črkami zamenjamo s pomočjo VBA Najdi in zamenjaj, kot je prikazano v primeru 2.
  • Če se dejavnost ročno in večkrat ponovi, bi bila avtomatizacija to prednost pri prihranku časa in truda obeh.
  • Tudi če imamo ogromen nabor podatkov, kjer želimo nadomestiti določene besede, lahko to storimo, ne da bi pri tem zrušili excel v obsežnih datotekah.

Stvari, ki jih je treba zapomniti

  • Makro funkcije Najdi in zamenjaj lahko s pomočjo možnosti Snemi makro ustvarimo na zavihku Razvijalci. To je najlažji način za ustvarjanje makra, če niste novi v kodiranju.
  • Shranjevanje datoteke v makro makro Enable excel format omogoča kodiranje v prihodnosti.
  • Besedilo, besedo, številko ali znak lahko zamenjamo z VBA Najdi in zamenjaj.

Priporočeni članki

To je priročnik za iskanje in zamenjavo VBA. Tukaj razpravljamo o tem, kako najti in zamenjati besede v Excelu z uporabo VBA skupaj s praktičnimi primeri in naloženo predlogo Excela. Ogledate si lahko tudi druge naše predlagane članke -

  1. VBA odmor za zanko
  2. ZAMENITE formulo v Excelu
  3. Popoln vodnik VBA Najdi
  4. NAJDANJE Funkcija v Excelu

Kategorija:

VBA