Pronađite i zamijenite Excel VBA
Jeste li ikada razmišljali o automatizaciji funkcije pronalaženja i zamjene u Excelu. U VBA možemo stvoriti makronaredbu koja se može koristiti za pronalaženje i zamjenu bilo čega što obično radimo u Excelu pritiskom na tipke prečaca Ctrl + H. Pomoću VBA Nađi i zamijeni možemo automatizirati pronalazak bilo koje riječi i zamijeniti je drugom zamjenom. To pomaže kada trebamo obavljati istu aktivnost više puta.
Kako pronaći i zamijeniti riječi u Excelu VBA?
Ispod su različiti primjeri pronalaska i zamjene riječi u excelu pomoću VBA koda.
Možete preuzeti ovaj VBA pronađite i zamijenite Excel predložak ovdje - VBA Pronađi i zamijeni Excel predložakPronađi i zamijeni VBA - Primjer # 1
U vrlo jednostavnom primjeru imamo skup podataka koji se sastoji od nekog imena. A neka se imena ponavljaju kao što je prikazano u nastavku.
Sada ćemo stvoriti kôd pomoću kojeg ćemo pronaći bilo koja od imena koja se ponavljaju i zamijeniti ih nečim drugim. Za to slijedite dolje navedene korake.
Korak 1: Idite na izbornik Umetanje u VBA i odaberite opciju Modula kao što je prikazano u nastavku.
Korak 2: Jednom kada to učinimo, otvorit ćemo novi modul. U taj modul napišite podkategoriju na ime VBA Pronađi i zamijeni ili možeš odabrati bilo koje ime te podkategorije.
Kodirati:
Sub Find_Replace1 () Kraj Sub
Korak 3: Kako imamo podatke u stupcu B od ćelije B2 do B10, tako ćemo prvo odabrati taj raspon od B2: B10.
Kodirati:
Pod Find_Replace1 () raspon ("B2: B10"). Zamijenite krajnji Sub
Korak 4: Sada da zamijenimo nešto što trebamo potražiti tu riječ. Ovdje ćemo također prvo odabrati funkciju Zamijeni da bismo pogledali što trebamo zamijeniti.
Kodirati:
Pod Find_Replace1 () raspon ("B2: B10"). Zamijenite krajnji Sub
Prema sintaksi funkcije Zamijeni pronaći ćemo ono što moramo zamijeniti.
Korak 5: Odaberemo ime na popisu " Ben " kao ono što trebamo zamijeniti.
Kodirati:
Pod Find_Replace1 () raspon ("B2: B10"). Zamijenite što: = "Ben" Kraj Pod
Korak 6: Sada odaberite zamjensku riječ kojom trebamo zamijeniti odabranu riječ. Ovdje smo odlučili zamijeniti ime Ben sa Samom koji je spomenut kao Zamjena kao što je prikazano u nastavku.
Kodirati:
Pod Find_Replace1 () raspon ("B2: B10"). Zamijenite što: = "Ben", Zamjena: = "Sam" Kraj Pod
Korak 7: Sada sastavite kôd i pokrenite ga klikom na tipku Play ili pritiskom na tipku F5, kao što je prikazano u nastavku.
Vidjet ćemo da su sve ćelije koje sadrže ime kao Ben sada zamijenjene imenom Sam . A to je istaknuto i žutom bojom.
Pronađi i zamijeni VBA - Primjer br. 2
Svi smo se možda suočili sa situacijom kada smo neke riječi pokušali pronaći i zamijeniti velikim slovima. Pretpostavimo na popisu, ako želimo zamijeniti samo onu riječ koja ima mala i velika slova. A ako koristimo postupak koji smo vidjeli u primjeru-1, tada bismo sve slične riječi na tom popisu zamijenili potrebnim. Ovaj se proces ne može provesti uz pomoć funkcije pronalaženja i zamjene (Ctrl + H) programa excel. Za to imamo odredbu u VBA.
Razmotrimo dolje podatke za to. Kao što vidimo, u ćeliju B2 namjerno smo dodali riječ BEN u velikom slučaju.
Slijedite dolje navedene korake za pronalaženje i zamjenu riječi BEN.
Korak 1: Pokrenite tamo potkategoriju VBA Pronađi i zamijeni kako je prikazano u nastavku.
Kodirati:
Sub Find_Replace2 () Kraj Sub
Korak 2: Popis odaberite u rasponu od B2 do B10.
Kodirati:
Pod Find_Replace2 () Raspon () B2: B10 ") Kraj Sub
Korak 3: Sada odaberite točnu riječ koju želimo zamijeniti. Ovdje smo odabrali BEN koji se nalazi u ćeliji B2.
Kodirati:
Pod Find_Replace2 () raspon ("B2: B10"). Zamijenite što: = "BEN" Kraj Pod
Korak 4: Opet smo odabrali istu riječ koju smo vidjeli u primjeru 1 kao zamjenu za BEN kao Sam .
Kodirati:
Pod Find_Replace2 () raspon ("B2: B10"). Zamijenite što: = "BEN", Zamjena: = "Sam" Kraj Sub
Korak 5: Sada za zamjenu točne riječi BEN, trebamo koristiti MatchCase ako to postane TRUE kao što je prikazano u nastavku.
Kodirati:
Pod Find_Replace2 () raspon ("B2: B10"). Zamijenite što: = "BEN", Zamjena: = "Sam", MatchCase: = Istinski kraj Sub
MatchCase će nam pomoći u prepoznavanju riječi koju želimo zamijeniti točno podudaranjem. Ovdje riječ koju smo odabrali je velika i velika slova, a popis ima i sličnih riječi, ali u odgovarajućem slučaju.
Korak 6: Sada pokrenite kôd klikom na gumb Play ili pritiskom na tipku F5.
Vidjet ćemo, riječ BEN koja se nalazila u ćeliji B2 sada je zamijenjena riječju " Sam ", označena žutom bojom. I slične riječi Ben koje se nalaze u stanicama B5 i B8 i dalje su nepromijenjene.
Tako djeluje točno podudaranje.
Korak 7: Sada ćemo ukloniti dodanu MatchCase iz gornjeg koda i vidjeti kako će to raditi.
Kodirati:
Pod Find_Replace2 () raspon ("B2: B10"). Zamijenite što: = "BEN", Zamjena: = "Sam", MatchCase: = Istinski kraj Sub
Korak 8: Ponovo sastavite i pokrenite kod.
Vidjet ćemo da je kôd zamijenio sve ćelije koje sadrže riječ Ben kao što je prikazano gore. Što znači da će nakon uklanjanja MatchCase-a kôd raditi kako smo vidjeli u primjeru 1.
Prednosti Excel VBA pronađite i zamijenite
- Glavno učenje je da riječi i sadržaj ćelije osjetljive na velika slova možemo zamijeniti pomoću VBA pronalaska i zamjene kao što je prikazano u primjeru-2.
- Ako se aktivnost ručno i ponavlja više puta, tada bi automatizacija bila prednost u uštedi vremena i truda.
- Čak i ako imamo ogroman skup podataka gdje želimo zamijeniti određene riječi, to se može učiniti bez rušenja excela u glomaznim datotekama.
Stvari koje treba zapamtiti
- Pomoću opcije Snimanje makronaredbe na kartici Razvojni programer možemo stvoriti makronaredbu funkcije Pronađi i zamijeni. To je najlakši način stvaranja makronaredbe ako ste novi u kodiranju.
- Spremanje datoteke u makronaredbu Omogući excel format omogućit će vam kodiranje u budućnosti.
- Tekst, riječ, broj ili znak možemo zamijeniti bilo kojom vrstom VBA Pronađi i zamijeni.
Preporučeni članci
Ovo je vodič za pronalaženje i zamjenu VBA. Ovdje smo raspravljali o tome kako pronaći i zamijeniti riječi u Excelu pomoću VBA, uz praktične primjere i preuzeti Excel predložak. Možete i pregledati naše druge predložene članke -
- VBA odmor za petlju
- ZAMJENA Formula u Excelu
- Kompletan vodič VBA pronađite
- Pronađi funkciju u Excelu