Sadržaj
Ako tražite načine za zamjenu teksta u nizu koristeći Excel VBA , ovaj će vam članak biti koristan. Zamjena određenog dijela teksta može uštedjeti mnogo vremena pri ponovnom upisivanju tekstualnih nizova. Dakle, prijeđimo na glavni članak da saznamo pojedinosti o ovom zadatku zamjene.
Preuzmi radnu knjigu
Zamijeni tekst u nizu.xlsm
5 načina za zamjenu teksta u nizu pomoću programa Excel VBA
Ovdje imamo sljedeći skup podataka koji sadrži neke zapise zaposlenika s njihovim ID-ovima e-pošte. 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 prema vašoj želji.
Metoda-01: Zamjena teksta počevši od n-te pozicije nasumičnog niza
Ovdje ćemo zamijeniti tekst u nasumičnim tekstualnim nizovima za različite početne pozicije.
Korak-01 :
➤ Idite na karticu Programer >> Kôd Grupa >> Visual Basic Opcija.
Zatim, Visual Basic Editor će se otvoriti.
➤ Idite na Insert Tab >> Module Option.
Nakon toga, Modul će biti kreiran.
Korak-02 :
➤ Napiši sljedećecode
2594
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 Cars dijela ovog nasumičnog niza s Bicikli i 1 ovdje se koristi za početak zamjene od pozicije 1 ovog niza. Konačno, dodijelili smo ovaj novi tekstualni niz updated_str i s okvirom za poruke ( MsgBox ) vidjet ćemo rezultat.
➤ Pritisnite F5 .
Tada će se pojaviti okvir s porukom s novim tekstualnim nizom sa zamijenjenim tekstom Bicikli .
➤ Za provođenje postupka zamjene iz druge instance Automobili upotrijebite sljedeći kod.
5224
Ovdje smo upotrijebili početnu poziciju kao 14 jer želimo imati dio niza nakon Sto automobila i zamijeniti Auti ovdje.
➤ Nakon pokretanja koda, imat ćemo sljedeći okvir s porukom s tekstualnim nizom koji počinje od teksta Pedeset i s Bicikli na poziciji Automobili .
➤ Kako bismo imali samo zadnji dio ovog niza, primjenjujemo sljedeći kod.
4159
Ovdje smo upotrijebili početnu poziciju kao 25 zato što želimo imati dio niza nakon Pedeset automobila i zamijeniti Automobile s Bicikle ovdje.
Konačno, imat ćemo kutiju s porukom s željenim dijelom niza koji je zamijenjen s Bicikli .
Pročitajte više: Excel VBA: Zamijenite znak u nizu položajem (4 učinkovita načina)
Metoda-02: Zamjena teksta za n-to pojavljivanje slučajnog niza pomoću programa Excel VBA
U ovom odjeljku zamijenit ćemo tekst u slučajnom nizu za različite brojeve pojavljivanja uz pomoć VBA koda.
Koraci :
➤ Slijedite Korak-01 od Metode-1 .
➤ Upišite sljedeći kod.
5190
Ovdje smo deklarirali full_txt_str i updated_str kao String a zatim dodijelio full_txt_str nasumičnom tekstualnom nizu- “Sto automobila pedeset automobila deset automobila” . Nakon toga, funkcija REPLACE koristi se za zamjenu Cars dijela ovog nasumičnog niza s Bicicles , 1 ovdje se koristi za početak zamjene od pozicije 1 ovog niza, a konačni 1 je za brojanje broja pojavljivanja. Korištenjem 1 kao broja za brojanje definiramo zamjenu samo prvih Automobila . Konačno, dodijelili smo ovaj novi tekstualni niz updated_str i sokvir s porukom ( MsgBox ) vidjet ćemo rezultat.
➤ Pritisnite F5 .
Nakon toga, pojavit će se okvir s porukom s novim tekstom Bicikli na prvom mjestu Automobili samo.
➤ Za zamjenu prva dva primjerka Automobila s Bicikala upotrijebite sljedeći kod.
7082
Ovdje, 2 se koristi kao broj za brojanje za zamjenu prve dvije instance Automobili sa Biciklima .
Nakon pokretanja koda, imat ćete zamjenu prva dva teksta Automobili s Bicikli .
➤ Primijenite sljedeći kod da biste zamijenili sve instance teksta Auti .
2056
Ovdje, zadnji argument funkcije REPLACE je 3 što je broj koji označava zamjenu svih automobila s biciklima u tekstualnom nizu.
➤ Pritisnite F5 .
Nakon toga ćemo imaju sljedeći okvir s porukom sa zamijenjenim tekstom Bicikli u nizu.
Slična čitanja
- Kako zamijeniti tekst s povratnim redom u programu Excel (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)
- Zamijeni tekstĆelija na temelju uvjeta u Excelu (5 jednostavnih metoda)
Metoda-03: Zamijeni tekst u nasumičnom nizu s 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 Metode-1 .
➤ Upišite sljedeći kod.
8998
Ovdje smo objavili full_txt_str , new_txt i updated_str kao String a zatim dodijeljen full_txt_str nasumičnim tekstualnim nizom- “Sto automobila, pedeset automobila, deset automobila” . Kako bismo korisnički definirani unos imali kao tekst koji treba zamijeniti s Cars u slučajnom nizu, upotrijebili smo InputBox funkciju i zatim dodijelili ovu vrijednost u new_txt . Zatim se funkcija REPLACE upotrebljava za zamjenu Cars dijela ovog nasumičnog niza s new_txt . Konačno, dodijelili smo ovaj novi tekstualni niz updated_str i s okvirom za poruke ( MsgBox ) vidjet ćemo rezultat.
➤ Pritisnite F5 .
Nakon toga će se pojaviti Okvir za unos gdje 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 imati sljedeći rezultat s novim tekstualnim nizom koji ima novi tekst Bicikli upoložaj Automobili .
Pročitajte više: Kako zamijeniti tekst u Excel formuli (7 jednostavnih načina)
Metoda-04: Zamijenite tekst u rasponu nizova s Excel VBA
Ovdje ćemo zamijeniti gmail dio ID-ove e-pošte s domenama u stupcu Nova domena , a za prikupljanje novih ID-ova e-pošte umetnuli smo novi stupac; Konačni ID e-pošte .
Koraci :
➤ Slijedite Korak-01 Metode-1 .
➤ Upišite sljedeći kod.
4357
Ovdje smo upotrijebili FOR petlju za izvođenje operacije iz Red 4 do Red 13 . Uz pomoć naredbe IF-THEN , provjerili smo da li ID-ovi e-pošte D stupca sadrže “gmail” ili ne, a za ispunjavanje ovog kriterija “gmail” dio ID-ova e-pošte bit će zamijenjen novim domenama Stupca E za stvaranje novih ID-ova u Stupcu F . Inače ćete imati praznine u odgovarajućim ćelijama Stupca F .
➤ Pritisnite F5 .
Tada ćete imati nove ID-ove e-pošte u stupcu Konačni ID e-pošte .
Pročitajte više: Excel VBA za pronalaženje i zamjenu teksta u stupcu (2 primjera)
Metoda-05: Zamijenite tekst u rasponu nizova korisničkim unosom za pronalaženje teksta
Možete zamijeniti sljedeći ID-ovi e-pošte snove domene i deklarirajte što treba zamijeniti u prethodnim ID-ovima; korisnički unos može se koristiti slijedeći ovu metodu.
Koraci :
➤ Slijedite Korak-01 od Metode-1 .
➤ Upišite sljedeći kod.
8867
Ovdje smo definirali partial_text kao String i zatim ga dodijelio nizu koji će dati korisnik kroz Input Box .
Nakon toga, koristili smo FOR petlju da bismo izvršili operaciju od Reda 4 do Reda 13 , i koristeći IF-THEN naredbu, provjerili smo sadrže li ID-ovi e-pošte Stupca D “gmail” ili ne. A za ispunjavanje ovog kriterija “gmail” dio ID-ova e-pošte bit će zamijenjen novim domenama Stupca E za stvaranje novi ID-ovi u Stupcu F . Inače ćete imati praznine u odgovarajućim ćelijama Stupca F .
➤ Pritisnite F5 .
Nakon toga, imat ćete Okvir za unos gdje morate upisati tekst koji želite pretraživati u rasponu ID-ova e-pošte (ovdje imamo unesete gmail ), a zatim pritisnite OK .
Konačno, imamo ažurirane ID-ove e-pošte u Konačnom Id e-pošte stupac.
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 od stranesami smo osigurali odjeljak Vježbanje kao ispod na listu pod nazivom Vježbanje . Učinite to sami.
Zaključak
U ovom smo članku pokušali pokriti načine zamjene teksta u nizu pomoću programa Excel VBA . Nadam se da će vam biti od koristi. Ako imate prijedloge ili pitanja, slobodno ih podijelite u odjeljku za komentare.
