Sadržaj
Ako tražite načine da zamijenite tekst u nizu koristeći Excel VBA , onda će vam ovaj članak biti koristan. Zamjena određenog dijela teksta može uštedjeti mnogo vremena pri ponovnom kucanju tekstualnih nizova. Dakle, uđimo u glavni članak kako bismo saznali detalje o ovom zadatku zamjene.
Preuzmi radnu knjigu
Zamijeni tekst u stringu.xlsm
5 načina za zamjenu teksta u nizu pomoću Excel VBA
Ovdje imamo sljedeći skup podataka koji sadrži neke zapise zaposlenika sa njihovim imejl ID-ovima. Naš zadatak je zamijeniti stare nazive domena novima. U sljedećim metodama radit ćemo s ovim skupom podataka zajedno s nekim nasumičnim tekstualnim nizovima kako bismo željeni tekst zamijenili VBA kodovima.
Koristili smo Microsoft Excel 365 verzija ovdje, možete koristiti bilo koju drugu verziju po vašoj želji.
Metod-01: Zamijenite tekst počevši od n-te pozicije slučajnog niza
Ovdje ćemo zamijeniti tekst u nasumičnom tekstualnom nizu za različite početne pozicije.
Korak-01 :
➤ Idite na karticu Razvojnik >> Kôd Grupa >> Visual Basic Opcija.
Zatim, Visual Basic Editor će se otvoriti.
➤ Idite na Insert Tab >> Module Option.
Nakon toga, biće kreiran Modul .
Korak-02 :
➤ Napišite sljedećecode
5581
Ovdje smo deklarirali full_txt_str i updated_str kao String i zatim dodijelili full_txt_str nasumičnom tekstu string- “Sto automobila pedeset automobila deset automobila” . Zatim se VBA REPLACE funkcija koristi za zamjenu Automobili dio ovog nasumičnog niza sa Bicikli i 1 se ovdje koriste za početak zamjene sa pozicije 1 ovog niza. Konačno, ovaj novi tekstualni niz smo dodijelili updated_str i sa okvirom za poruke ( MsgBox ) vidjet ćemo rezultat.
➤ Pritisnite F5 .
Tada će se pojaviti kutija s porukom s novim tekstualnim nizom sa zamijenjenim tekstom Bicikli .
➤ Da izvršite proces zamjene iz druge instance Automobili koristite sljedeći kod.
3109
Ovdje smo koristili početnu poziciju kao 14 jer želimo imati dio niza nakon Hundred Cars i zamijeniti Automobili ovdje.
➤ Nakon pokretanja koda, imat ćemo sljedeću kutiju za poruke sa tekstualnim nizom počevši od teksta Pedeset i sa Bicikli u poziciji Automobili .
➤ Da bismo imali samo zadnji dio ovog niza, primjenjujemo sljedeći kod.
8762
Ovdje smo koristili početnu poziciju kao 25 jer želimo imati dio niza nakon Pedeset automobila i zamijeniti Automobili sa Bicikli ovdje.
Konačno, imat ćemo kutiju za poruke s našim željenim dijelom niza koji ima zamjenu sa Bicikli .
Pročitajte više: Excel VBA: Zamijenite znak u nizu po poziciji (4 efikasna načina)
Metod-02: Zamjena teksta za n-tu pojavu slučajnog niza pomoću Excel VBA
U ovom odjeljku ćemo zamijeniti tekst u nasumičnom nizu za različit broj pojavljivanja uz pomoć VBA koda.
Koraci :
➤ Pratite Korak-01 od Metode-1 .
➤ Upišite sljedeći kod.
9242
Ovdje smo deklarirali full_txt_str i updated_str kao String a zatim dodijeljen full_txt_str nasumičnom tekstualnom nizu- “Hundred Cars Fifty Cars Ten Cars” . Nakon toga, funkcija REPLACE se koristi za zamjenu Automobili dio ovog slučajnog niza sa Bicikli , 1 se ovdje koristi za početak zamjene sa pozicije 1 ovog niza, a konačni 1 je za brojanje broja pojavljivanja. Koristeći 1 kao broj za brojanje definiramo zamjenu samo prvih Automobila . Konačno, ovaj novi tekstualni niz smo dodijelili updated_str i saokvir za poruku ( MsgBox ) vidjet ćemo rezultat.
➤ Pritisnite F5 .
Nakon toga, pojavit će se kutija za poruku s novim tekstom Bicikli na prvoj poziciji od Automobili samo.
➤ Za zamjenu prve dvije instance Automobila sa Bicikli koristite sljedeći kod.
6060
Ovdje se 2 koristi kao broj za brojanje za zamjenu prve dvije instance Automobili sa Bicikli .
Nakon pokretanja koda, imat ćete zamjenu prva dva teksta Automobili sa Bicikli .
➤ Primijenite sljedeći kod da zamijenite sve instance teksta Automobili .
7505
Ovdje, posljednji argument funkcije REPLACE je 3 što je brojeći broj koji označava zamjenu svih Automobila sa Bicikli u tekstualnom nizu.
➤ Pritisnite F5 .
Nakon toga ćemo imati sljedeći kutiju za poruku sa zamijenjenim tekstom Bicikli u nizu.
Slična čitanja
- Kako zamijeniti tekst s povratkom na nosač u Excelu (4 glatka pristupa)
- Excel VBA: kako pronaći i Zamijeni tekst u Word dokumentu
- Kako zamijeniti tekst nakon određenog znaka u Excelu (3 metode)
- Zamijeniti tekstĆelija na osnovu stanja u Excelu (5 jednostavnih metoda)
Metoda-03: Zamijenite tekst u slučajnom nizu sa InputBoxom
Ovdje ćemo zamijeniti određeni tekst nasumični niz s tekstom koji će definirati korisnik uz pomoć VBA InputBox funkcije .
Koraci :
➤ Slijedite Korak-01 od Metoda-1 .
➤ Upišite sljedeći kod.
8382
Ovdje smo deklarirali full_txt_str , new_txt i updated_str kao String i zatim dodijeljen full_txt_str nasumičnom tekstualnom nizu- “Sto automobila pedeset automobila deset automobila” . Da bismo korisnički definirani unos imali kao tekst koji treba zamijeniti sa Cars u nasumičnom nizu, koristili smo InputBox funkciju i zatim dodijelili ovu vrijednost u novi_txt . Zatim se funkcija REPLACE koristi za zamjenu Cars dio ovog slučajnog niza sa new_txt . Konačno, ovaj novi tekstualni niz smo dodijelili updated_str i sa okvirom za poruke ( MsgBox ) vidjet ćemo rezultat.
➤ Pritisnite F5 .
Nakon toga, pojavit će se Okvir za unos u koji možete unijeti bilo koji dio teksta koji želite imati u novom nizu.
➤ Upišite Bicikli ili bilo koji drugi tekst koji želite, a zatim pritisnite OK .
Konačno ćete imaju sljedeći rezultat s novim tekstualnim nizom koji ima novi tekst Bicikli upozicija Automobili .
Pročitajte više: Kako zamijeniti tekst u Excel formuli (7 jednostavnih načina)
Metod-04: Zamijenite tekst u nizu nizova sa Excel VBA
Ovdje ćemo zamijeniti gmail dio ID-ove e-pošte sa domenima u koloni Nova domena , a da bismo akumulirali nove ID-ove e-pošte umetnuli smo novu kolonu; Konačni ID e-pošte .
Koraci :
➤ Pratite Korak-01 od Metode-1 .
➤ Upišite sljedeći kod.
9784
Ovdje smo koristili FOR petlju da izvršimo operaciju od Red 4 do Red 13 . Uz pomoć naredbe IF-THEN , provjerili smo da li ID-ovi e-pošte kolone D sadrže “gmail” ili ne, a za ispunjavanje ovog kriterija “gmail” dio ID-ova e-pošte bit će zamijenjen novim domenama kolone E da kreirate nove ID-ove u Koloni F . Inače ćete imati prazno u odgovarajućim ćelijama Kolona F .
➤ Pritisnite F5 .
Tada ćete imati nove ID-ove e-pošte u koloni Konačni ID e-pošte .
Pročitajte više: Excel VBA za pronalaženje i zamjenu teksta u koloni (2 primjera)
Metoda-05: Zamijenite tekst u nizu nizova sa korisničkim unosom za pronalaženje teksta
Možete zamijeniti sljedeće ID-ove e-pošte sanove domene i deklarirajte šta treba zamijeniti u prethodnim ID-ovima. korisnički unos se može koristiti slijedeći ovu metodu.
Koraci :
➤ Pratite Korak-01 od Metoda-1 .
➤ Upišite sljedeći kod.
2606
Ovdje smo definirali partial_text kao String , a zatim ga dodijelio nizu koji će korisnik dati kroz Input Box .
Nakon toga, koristili smo FOR petlju da izvršimo operaciju od Red 4 do Red 13 , i koristeći naredbom IF-THEN , provjerili smo da li ID-ovi e-pošte kolone D sadrže “gmail” ili ne. A za ispunjavanje ovog kriterija, dio ID-ova e-pošte “gmail” bit će zamijenjen novim domenama kolone E za kreiranje novi ID-ovi u Koloni F . Inače ćete imati prazno u odgovarajućim ćelijama Kolona F .
➤ Pritisnite F5 .
Nakon toga, imat ćete Okvir za unos u koji morate upisati tekst koji želite pretraživati u rasponu ID-ova e-pošte (ovdje imamo unijeli gmail ), a zatim pritisnite OK .
Konačno, imamo ažurirane ID-ove e-pošte u Finalnom Id e-pošte kolona.
Pročitajte više: Pronađite i zamijenite tekst u rasponu s Excel VBA (makro i korisnički obrazac)
Odjeljak za vježbanje
Za vježbanje dosami smo obezbijedili Vježba odjeljak kao ispod u listu pod nazivom Vježba . Učinite to sami.
Zaključak
U ovom članku pokušali smo pokriti načine zamjene teksta u nizu koristeći Excel VBA . Nadam se da će vam biti od koristi. Ako imate bilo kakvih prijedloga ili pitanja, slobodno ih podijelite u odjeljku za komentare.
