Lamun anjeun néangan cara pikeun ngaganti téks dina string maké Excel VBA , mangka anjeun bakal manggihan artikel ieu mangpaat. Ngaganti bagian téks anu tangtu tiasa ngahémat waktos nalika ngetik deui senar téks. Ku kituna, hayu urang lebet kana artikel utama pikeun terang rinci ngeunaan tugas ngagantian ieu.

Unduh Workbook

5 Cara Ngaganti Téks dina String Nganggo Excel VBA

Di dieu, kami gaduh set data di handap ieu anu ngandung sababaraha rékaman karyawan sareng id emailna. Tugas urang nyaéta ngaganti ngaran domain heubeul jeung nu anyar. Dina metodeu di handap ieu, urang bakal damel sareng set data ieu sareng sababaraha senar téks acak pikeun ngagentos téks anu dipikahoyong ku kode VBA .

Kami parantos nganggo Vérsi Microsoft Excel 365 di dieu, anjeun tiasa nganggo vérsi anu sanés numutkeun karesep anjeun.

Métode-01: Ngaganti Téks Mimitian ti Posisi ka-N tina String Acak

Di dieu, urang bakal ngaganti téks dina string téks acak pikeun posisi awal béda.

Lengkah-01 :

➤ Buka tab Pamekar >> Kode Grup >> Visual Basic Pilihan.

Lajeng, Visual Basic Editor bakal muka.

➤ Buka Selapkeun Tab >> Modul Pilihan.

Sanggeus éta, Modul bakal dijieun.

Lengkah-02 :

➤ Tuliskeun ieu di handapkode

6986

Di dieu, kami geus nyatakeun full_txt_str jeung updated_str salaku String terus ditugaskeun full_txt_str kana téks acak string- "Saratus Mobil Lima Puluh Mobil Sapuluh Mobil" . Lajeng VBA GANTIKAN fungsi dipaké pikeun ngaganti Mobil bagian string acak ieu kalawan Sapédah jeung 1 digunakeun di dieu pikeun ngamimitian ngagantian tina posisi 1 tina string ieu. Tungtungna, kami parantos netepkeun string téks énggal ieu ka updated_str sareng nganggo kotak pesen ( MsgBox ) urang bakal ningali hasilna.

➤ Pencét F5 .

Teras kotak pesen bakal muncul sareng string téks anyar sareng téks diganti Sapédah .

➤ Pikeun ngalakukeun prosés ngagantian ti instance kadua Mobil pake kodeu ieu.

8347

Di dieu, kami geus ngagunakeun posisi awal salaku 14 sabab urang hayang boga bagian tina string sanggeus Saratus Mobil jeung ngaganti Mobil di dieu.

➤ Sanggeus ngajalankeun kodeu, urang bakal boga kotak pesen kieu kalayan string téks dimimitian tina téks Lima Puluh jeung kalawan Sapédah dina posisi Mobil .

➤ Pikeun ngan boga bagian panungtungan string ieu kami nerapkeun kodeu handap.

9398

Di dieu, kami parantos nganggo posisi awal salaku 25 kusabab urang hayang boga bagian string sanggeus Lima Puluh Mobil jeung ngaganti Mobil jeung Sapédah di dieu.

Ahirna, urang bakal boga kotak pesen kalayan bagian string anu dipikahoyong diganti ku Sapédah .

Baca deui: Excel VBA: Ganti Karakter dina String dumasar Posisi (4 Cara Éféktif)

Métode-02: Ngaganti Téks pikeun Kajadian n-th tina String Acak Nganggo Excel VBA

Dina bagian ieu, urang bakal ngagentos téks dina string acak pikeun jumlah kajadian anu béda kalayan bantosan. tina VBA kode.

Lengkah :

➤ Turutan Lengkah-01 tina Metoda-1 .

➤ Ketik kodeu ieu di handap.

5342

Di dieu, kami geus nyatakeun full_txt_str jeung updated_str salaku String lajeng ditugaskeun full_txt_str ka string téks acak- "Saratus Mobil Lima Puluh Mobil Sapuluh Mobil" . Sanggeus éta, fungsi REPLACE digunakeun pikeun ngaganti Mobil bagéan string acak ieu ku Sapédah , 1 digunakeun di dieu pikeun ngamimitian ngagantian tina posisi 1 tina string ieu, jeung final 1 nyaeta pikeun ngitung jumlah kajadian. Ku ngagunakeun 1 salaku angka cacah, urang nangtukeun ngagantian tina Mobil hijina. Tungtungna, kami geus ditugaskeun string téks anyar ieu updated_str sarta kalawan akotak pesen ( MsgBox ) urang bakal ningali hasilna.

➤ Pencét F5 .

Sanggeus, a kotak pesen bakal muncul kalawan téks anyar Sapédah dina posisi kahiji tina Mobil ngan.

➤ Pikeun ngaganti dua instansi mimiti Mobil jeung Sapédah pake kodeu di handap ieu.

2778

Di dieu, 2 digunakeun sabagé nomer cacah pikeun ngagantikeun dua instansi mimiti Mobil kalayan Sapédah .

Sanggeus ngajalankeun kodeu, anjeun bakal boga ngagantian dua téks munggaran Mobil jeung Sapédah .

➤ Larapkeun kodeu ieu pikeun ngaganti sakabéh instansi tina téks Mobil .

4291

Di dieu, argumen pamungkas tina fungsi REPLACE nyaéta 3 nu mangrupa nomer cacah nuduhkeun ngagantian sakabéh Mobil jeung Sapédah dina string téks.

➤ Pencét F5 .

Sanggeus, urang bakal gaduh kotak pesen di handap ieu sareng téks anu diganti Sepeda dina senar.

Bacaan Sarupa

• Kumaha Ngaganti Téks sareng Carriage Return dina Excel (4 Pendekatan Lemes)
• Excel VBA: Kumaha Milarian sareng Ngaganti Téks dina Dokumén Word
• Kumaha Ngaganti Téks saatos Aksara Spésifik dina Excel (3 Métode)
• Ganti Téks tina hijiSél Dumasar Kaayaan dina Excel (5 Métode Gampang)

Métode-03: Ganti Téks dina String Acak sareng InputBox

Di dieu, urang bakal ngagentos téks anu tangtu. string acak kalayan téks anu bakal didefinisikeun ku pamaké kalayan bantuan fungsi VBA InputBox .

Lengkah :

➤ Turutan Lengkah-01 tina Metoda-1 .

➤ Ketik kodeu ieu.

7726

Di dieu, kami geus nyatakeun full_txt_str , new_txt , jeung updated_str salaku String terus ditugaskeun full_txt_str ka string téks acak- "Saratus Mobil Lima Puluh Mobil Sapuluh Mobil" . Pikeun gaduh input anu ditetepkeun ku pangguna salaku téks anu bakal diganti ku Mobil dina senar acak, kami parantos nganggo fungsi InputBox teras ditugaskeun nilai ieu. ka new_txt . Lajeng Fungsi REPLACE digunakeun pikeun ngaganti Mobil bagian tina string acak ieu kalawan new_txt . Tungtungna, kami parantos netepkeun string téks énggal ieu ka updated_str sareng nganggo kotak pesen ( MsgBox ) urang bakal ningali hasilna.

➤ Pencét F5 .

Sanggeus éta, hiji Kotak Input bakal nembongan dimana anjeun bisa ngasupkeun bagian téks mana wae nu Anjeun hoyongkeun dina string anyar.

➤ Ketik Sapédah atawa téks séjén nu dipikahoyong terus pencét OK .

Ahirna, anjeun bakal boga hasil kieu jeung string téks anyar ngabogaan téks anyar Sapédah diposisi Mobil .

Baca deui: Kumaha Ngaganti Téks dina Formula Excel (7 Cara Gampang)

Métode-04: Ganti Téks dina Range of Strings sareng Excel VBA

Di dieu, urang bakal ngagantikeun gmail bagian tina id email sareng domain dina kolom Domain Anyar , sareng pikeun ngumpulkeun id email énggal kami parantos nyelapkeun kolom énggal; Id Surélék Pamungkas .

Lengkah :

➤ Turutan Lengkah-01 tina Metode-1 .

➤ Ketik kodeu di handap ieu.

2956

Di dieu, kami geus ngagunakeun FOR loop pikeun ngajalankeun operasi ti Baris 4 nepi ka Baris 13 . Kalayan bantuan pernyataan IF-THEN , kami parantos pariksa naha id email Kolom D ngandung “gmail” atawa henteu, sarta pikeun minuhan kriteria ieu bagian “gmail” id email bakal diganti ku domain anyar Kolom E pikeun nyieun id anyar dina Kolom F . Upami teu kitu, anjeun bakal boga kosong dina sél pakait Kolom F .

➤ Pencét F5 .

Salajengna, anjeun bakal gaduh id email énggal dina kolom Id Email Akhir .

Maca deui: Excel VBA  pikeun Manggihan tur Ngaganti Téks dina Kolom (2 Conto)

Métode-05: Ganti Téks dina Range of String ku Input Pamaké pikeun Milarian Téks

Anjeun tiasa ngagentos handap id email kalawandomain anyar jeung nyatakeun naon nu kudu diganti dina id saméméhna input pamaké bisa dipaké ku cara kieu.

Lengkah :

➤ Turutan Lengkah-01 tina Metoda-1 .

➤ Ketik kodeu ieu.

6055

Di dieu, kami geus ngartikeun partial_text salaku String lajeng ditugaskeun ka string anu bakal dibikeun ku pamaké ngaliwatan Kotak Input .

Sanggeus éta, kami ngagunakeun FOR loop pikeun ngajalankeun operasi ti Baris 4 nepi ka Baris 13 , sarta ngagunakeun pernyataan IF-THEN , urang pariksa naha id email Kolom D ngandung “gmail” atawa henteu. Jeung pikeun minuhan kriteria ieu “gmail” porsi id email bakal diganti ku domain anyar Kolom E pikeun nyieun. id anyar dina Kolom F . Upami teu kitu, anjeun bakal boga kosong dina sél pakait Kolom F .

➤ Pencét F5 .

Sanggeus éta, anjeun bakal gaduh Kotak Input dimana anjeun kedah ngetik téks anu anjeun hoyong milarian dina rentang id email (di dieu kami gaduh diasupkeun gmail ) terus pencét OK .

Ahirna, urang boga id surélék nu diropéa dina Ahir. Id Surélék kolom.

Baca Selengkapnya: Panggihan tur Ganti téks dina Rentang jeung Excel VBA (Makro jeung UserForm)

Bagian Latihan

Pikeun ngalakonan latihan kusorangan kami geus disadiakeun a Praktek bagian kawas handap dina lambar ngaranna Praktek . Mangga laksanakeun ku nyalira.

Kacindekan

Dina artikel ieu, urang nyobaan pikeun nutupan cara ngaganti téks dina string maké Excel VBA . Miharep anjeun bakal manggihan eta mangpaat. Upami anjeun gaduh saran atanapi patarosan, mangga bagikeun dina bagian koméntar.