Tabela e përmbajtjes
Nëse po kërkoni mënyra për të zëvendësuar tekstin në një varg duke përdorur Excel VBA , atëherë ky artikull do t'ju duket i dobishëm. Zëvendësimi i një pjese të caktuar teksti mund të kursejë shumë kohë në shtypjen përsëri të vargjeve të tekstit. Pra, le të futemi në artikullin kryesor për të ditur detajet rreth kësaj detyre zëvendësuese.
Shkarkoni Librin e Punës
Zëvendësoni tekstin në String.xlsm
5 Mënyra për të zëvendësuar tekstin në varg duke përdorur Excel VBA
Këtu, ne kemi grupin e mëposhtëm të të dhënave që përmban disa të dhëna të punonjësve me ID-të e tyre të emailit. Detyra jonë është të zëvendësojmë emrat e vjetër të domain-eve me të rinj. Në metodat e mëposhtme, ne do të punojmë me këtë grup të dhënash së bashku me disa vargje teksti të rastësishme për të zëvendësuar tekstin e dëshiruar me kodet VBA .
Ne kemi përdorur Versioni i Microsoft Excel 365 këtu, mund të përdorni çdo version tjetër sipas lehtësisë suaj.
Metoda-01: Zëvendësoni tekstin duke filluar nga pozicioni n-të i një vargu të rastësishëm
Këtu, ne do të zëvendësojmë tekstin në një varg teksti të rastësishëm për pozicione të ndryshme fillestare.
Hapi-01 :
➤ Shkoni te skeda Zhvilluesi >> Kodi Group >> Visual Basic Opsioni.
Më pas, Redaktori Visual Basic do të hapet.
➤ Shkoni te Fut Tab >> Moduli Opsioni.
Pas kësaj, do të krijohet një Modul .
Hapi-02 :
➤ Shkruani sa vijonkodi
5529
Këtu, ne kemi deklaruar full_txt_str dhe updated_str si String dhe më pas i kemi caktuar full_txt_str një teksti të rastësishëm vargu- “Qindra Makina Pesëdhjetë Makina Dhjetë Makina” . Pastaj funksioni VBA REPLACE përdoret për të zëvendësuar pjesën Makinat të këtij vargu të rastësishëm me Biçikleta dhe 1 përdoret këtu për të filluar zëvendësimin nga pozicioni 1 i këtij vargu. Më në fund, ne e kemi caktuar këtë varg të ri teksti në përditësuar_str dhe me një kuti mesazhi ( MsgBox ) do të shohim rezultatin.
➤ Shtypni F5 .
Më pas do të shfaqet një kuti mesazhi me vargun e ri të tekstit me tekstin e zëvendësuar Biçikleta .
➤ Për të bërë procesin e zëvendësimit nga instanca e dytë e Makinat përdor kodin e mëposhtëm.
5042
Këtu, ne kemi përdorur pozicionin e fillimit si 14 sepse duam të kemi pjesën e vargut pas Qindra makina dhe të zëvendësojmë Makinat këtu.
➤ Pasi të ekzekutojmë kodin, do të kemi kutinë e mëposhtme të mesazheve me vargun e tekstit duke filluar nga teksti Fifty dhe me Bicycles në pozicionin Makinat .
➤ Për të pasur vetëm pjesën e fundit të këtij vargu, ne po aplikojmë kodin e mëposhtëm.
2416
Këtu, ne kemi përdorur pozicionin e fillimit si 25 sepse ne duam të kemi pjesën e vargut pas Fifty Makina dhe të zëvendësojmë Makinat me Biçikletat këtu.
Më në fund, do të kemi një kuti mesazhi me pjesën tonë të dëshiruar të vargut që ka zëvendësimin me Biçikleta .
Lexo më shumë: Excel VBA: Zëvendëso karakterin në varg sipas pozicionit (4 mënyra efektive)
Metoda-02: Zëvendësimi i tekstit për n-të Ndodhja e një vargu të rastësishëm duke përdorur Excel VBA
Në këtë seksion, ne do të zëvendësojmë një tekst në një varg të rastësishëm për numra të ndryshëm dukurish me ndihmën të një kodi VBA .
Hapat :
➤ Ndiqni Hapin-01 të Metodës-1 .
➤ Shkruani kodin e mëposhtëm.
6374
Këtu, ne kemi deklaruar full_txt_str dhe updated_str si String dhe më pas caktohet full_txt_str në një varg teksti të rastësishëm- “Hundred Cars Fifty Cars Ten Cars” . Pas kësaj, funksioni REPLACE përdoret për të zëvendësuar pjesën Makinat të këtij vargu të rastësishëm me Biçikleta , 1 përdoret këtu për të filluar zëvendësimin nga pozicioni 1 të këtij vargu, dhe 1 përfundimtar është për numërimin e numrit të dukurive. Duke përdorur 1 si numër numërimi ne po përcaktojmë zëvendësimin e vetëm Makinave të para. Së fundi, ne kemi caktuar këtë varg të ri teksti në updated_str dhe me akutia e mesazheve ( MsgBox ) do të shohim rezultatin.
➤ Shtypni F5 .
Më pas, një kuti mesazhi do të shfaqet me tekstin e ri Biçikletat në pozicionin e parë të Makinat vetëm.
➤ Për zëvendësimin e dy rasteve të para të Makinave me Biçikletave përdor kodin e mëposhtëm.
7941
Këtu, 2 përdoret si numër numërimi për të zëvendësuar dy instancat e para të Makinat me Biçikleta .
Pas ekzekutimit të kodit, do të keni zëvendësimin e dy teksteve të para Makinat me Biçikleta .
➤ Aplikoni kodin e mëposhtëm për të zëvendësuar të gjitha rastet të tekstit Makina .
6661
Këtu, argumenti i fundit i funksionit REPLACE është 3 i cili është numri i numërimit që tregon zëvendësimin e të gjitha Makinave me Biçikletat në vargun e tekstit.
➤ Shtypni F5 .
Më pas, ne do keni kutinë e mesazheve me tekstin e zëvendësuar Biçikleta në varg.
Lexime të ngjashme
- Si të zëvendësohet teksti me kthimin e transportit në Excel (4 qasje të qetë)
- Excel VBA: Si të gjeni dhe Zëvendësoni tekstin në dokumentin Word
- Si të zëvendësoni tekstin pas një karakteri specifik në Excel (3 metoda)
- Zëvendësoni tekstin e njëQeliza e bazuar në gjendjen në Excel (5 metoda të lehta)
Metoda-03: Zëvendësoni tekstin në një varg të rastësishëm me InputBox
Këtu, ne do të zëvendësojmë një tekst të caktuar të një varg i rastësishëm me një tekst i cili do të përcaktohet nga një përdorues me ndihmën e funksionit VBA InputBox .
Hapat :
➤ Ndiqni Hapin-01 të Metodës-1 .
➤ Shkruani kodin e mëposhtëm.
1223
Këtu, ne kemi deklaruar full_txt_str , new_txt dhe përditësuar_str si String dhe më pas caktohet full_txt_str në një varg teksti të rastësishëm- “Hundred Cars Fifty Cars Ten Cars” . Për të pasur hyrjen e përcaktuar nga përdoruesi si tekst që do të zëvendësohet me Cars në vargun e rastësishëm, ne kemi përdorur funksionin InputBox dhe më pas kemi caktuar këtë vlerë te new_txt . Më pas, funksioni REPLACE përdoret për të zëvendësuar pjesën Cars të këtij vargu të rastësishëm me new_txt . Më në fund, ne kemi caktuar këtë varg të ri teksti në updated_str dhe me një kuti mesazhi ( MsgBox ) do të shohim rezultatin.
➤ Shtypni F5 .
Pas kësaj, do të shfaqet një Kutia hyrëse ku mund të futni çdo pjesë teksti që dëshironi të keni në vargun e ri.
➤ Shkruani Bicikleta ose çdo tekst tjetër që dëshironi dhe më pas shtypni OK .
Më në fund, do keni rezultatin e mëposhtëm me vargun e ri të tekstit që ka tekst të ri Biçikleta nëpozicioni i Makinave .
Lexo më shumë: Si të zëvendësoni tekstin në Excel Formula (7 mënyra të thjeshta)
Metoda-04: Zëvendësoni tekstin në një varg vargjesh me Excel VBA
Këtu, ne do të zëvendësojmë gmail pjesën e ID-të e emailit me domenet në kolonën Domeni i ri , dhe për të grumbulluar ID-të e reja të emailit, ne kemi futur një kolonë të re; Id-ja përfundimtare e emailit .
Hapat :
➤ Ndiqni Hapi-01 e Metodës-1 .
➤ Shkruani kodin e mëposhtëm.
7936
Këtu, ne kemi përdorur Cakulli FOR për të ekzekutuar operacionin nga Rreshti 4 deri Rreshti 13 . Me ndihmën e deklaratës IF-THEN , ne kemi kontrolluar nëse ID-të e emailit të Kollonës D përmbajnë “gmail” ose jo, dhe për përmbushjen e këtij kriteri, pjesa “gmail” e ID-ve të emailit do të zëvendësohet me domenet e reja të Kollonës E për të krijuar ID-të e reja në Kollona F . Përndryshe do të keni një bosh në qelizat përkatëse të Kollonës F .
➤ Shtypni F5 .
Më pas, do të keni ID-të e reja të emailit në kolonën Id-i përfundimtar i emailit .
Lexo më shumë: Excel VBA për të gjetur dhe zëvendësuar tekstin në një kolonë (2 shembuj)
Metoda-05: Zëvendësoni tekstin në një varg vargjesh me hyrjen e përdoruesit për të gjetur tekstin
Ju mund të zëvendësoni ID-të e mëposhtme të emailit medomenet e reja dhe deklaroni se çfarë të zëvendësoni në ID-të e mëparshme një hyrje e përdoruesit mund të përdoret duke ndjekur këtë metodë.
Hapat :
➤ Ndiqni Hapin-01 të Metodës-1 .
➤ Shkruani kodin e mëposhtëm.
7215
Këtu, ne kemi përcaktuar teksti i pjesshëm si String dhe më pas ia caktoi një vargu që do të jepet nga një përdorues përmes Kutisë hyrëse .
Më pas, ne përdorëm ciklin FOR për të ekzekutuar operacionin nga Rreshti 4 në Rreshti 13 , dhe duke përdorur deklaratën IF-THEN , ne kontrolluam nëse ID-të e emailit të Kollonës D përmbajnë “gmail” ose jo. Dhe për përmbushjen e këtij kriteri, pjesa “gmail” e ID-ve të emailit do të zëvendësohet me domenet e reja të Kollonës E për të krijuar ID-të e reja në Kollona F . Përndryshe do të keni një bosh në qelizat përkatëse të Kollonës F .
➤ Shtypni F5 .
Pas kësaj, do të keni një Kuti hyrëse ku duhet të shkruani tekstin që dëshironi të kërkoni në gamën e ID-ve të emailit (këtu kemi futur gmail ) dhe më pas shtypni OK .
Më në fund, ne po i kemi ID-të tona të përditësuara të emailit në Finale Email Id kolona.
Lexo më shumë: Gjeni dhe zëvendësoni një tekst në një gamë me Excel VBA (Macro dhe UserForm)
Seksioni i praktikës
Për të bërë praktikë ngavetë ne kemi ofruar një seksion Praktika si më poshtë në një fletë të quajtur Praktika . Ju lutemi bëjeni vetë.
Përfundim
Në këtë artikull, ne u përpoqëm të trajtojmë mënyrat për të zëvendësuar tekstin në një varg duke përdorur Excel VBA . Shpresoj se do ta gjeni të dobishme. Nëse keni ndonjë sugjerim ose pyetje, mos ngurroni t'i ndani ato në seksionin e komenteve.
