Isi kandungan
Jika anda mencari cara untuk menggantikan teks dalam rentetan menggunakan Excel VBA , maka anda akan mendapati artikel ini berguna. Menggantikan bahagian teks tertentu mungkin menjimatkan banyak masa dalam menaip rentetan teks sekali lagi. Jadi, mari masuk ke artikel utama untuk mengetahui butiran tentang tugas gantian ini.
Muat Turun Buku Kerja
Ganti Teks dalam String.xlsm
5 Cara Mengganti Teks dalam Rentetan Menggunakan Excel VBA
Di sini, kami mempunyai set data berikut yang mengandungi beberapa rekod pekerja dengan id e-mel mereka. Tugas kami adalah untuk menggantikan nama domain lama dengan yang baru. Dalam kaedah berikut, kami akan bekerja dengan set data ini bersama-sama dengan beberapa rentetan teks rawak untuk menggantikan teks yang diingini dengan kod VBA .
Kami telah menggunakan Microsoft Excel 365 versi di sini, anda boleh menggunakan mana-mana versi lain mengikut keselesaan anda.
Kaedah-01: Gantikan Teks Bermula dari Kedudukan ke-n Rentetan Rawak
Di sini, kami akan menggantikan teks dalam rentetan teks rawak untuk kedudukan permulaan yang berbeza.
Langkah-01 :
➤ Pergi ke Tab Pembangun >> Kod Kumpulan >> Visual Basic Pilihan.
Kemudian, Visual Basic Editor akan dibuka.
➤ Pergi ke Sisipkan Tab >> Modul Pilihan.
Selepas itu, Modul akan dibuat.
Langkah-02 :
➤ Tulis yang berikutkod
2910
Di sini, kami telah mengisytiharkan full_txt_str dan updated_str sebagai String dan kemudian memperuntukkan full_txt_str kepada teks rawak rentetan- “Ratusan Lima Puluh Kereta Sepuluh Kereta” . Kemudian VBA Fungsi REPLACE digunakan untuk menggantikan Kereta bahagian rentetan rawak ini dengan Basikal dan 1 digunakan di sini untuk memulakan penggantian dari kedudukan 1 rentetan ini. Akhir sekali, kami telah menetapkan rentetan teks baharu ini kepada updated_str dan dengan kotak mesej ( MsgBox ) kami akan melihat hasilnya.
➤ Tekan F5 .
Kemudian kotak mesej akan muncul dengan rentetan teks baharu dengan teks diganti Basikal .
➤ Untuk melakukan proses penggantian daripada contoh kedua Kereta gunakan kod berikut.
3981
Di sini, kami telah menggunakan kedudukan permulaan sebagai 14 kerana kami mahu mempunyai bahagian rentetan selepas Ratus Kereta dan menggantikan Kereta di sini.
➤ Selepas menjalankan kod, kita akan mempunyai kotak mesej berikut dengan rentetan teks bermula daripada teks Lima Puluh dan dengan Basikal dalam kedudukan Kereta .
➤ Untuk hanya mempunyai bahagian terakhir rentetan ini, kami menggunakan kod berikut.
8489
Di sini, kami telah menggunakan kedudukan permulaan sebagai 25 kerana kami mahu mempunyai bahagian rentetan selepas Lima Puluh Kereta dan menggantikan Kereta dengan Basikal di sini.
Akhir sekali, kami akan mempunyai kotak mesej dengan bahagian rentetan yang kami kehendaki mempunyai penggantian dengan Basikal .
Baca Lagi: Excel VBA: Gantikan Aksara dalam Rentetan mengikut Kedudukan (4 Cara Berkesan)
Kaedah-02: Gantikan Teks untuk Kemunculan Rentetan Rawak ke-n Menggunakan Excel VBA
Dalam bahagian ini, kami akan menggantikan teks dalam rentetan rawak untuk bilangan kejadian yang berbeza dengan bantuan daripada VBA kod.
Langkah :
➤ Ikuti Langkah-01 daripada Kaedah-1 .
➤ Taip kod berikut.
3459
Di sini, kami telah mengisytiharkan full_txt_str dan updated_str sebagai String dan kemudian memperuntukkan full_txt_str kepada rentetan teks rawak- “Ratusan Lima Puluh Kereta Sepuluh Kereta” . Selepas itu, fungsi REPLACE digunakan untuk menggantikan Kereta bahagian rentetan rawak ini dengan Basikal , 1 digunakan di sini untuk memulakan penggantian dari kedudukan 1 rentetan ini dan yang terakhir 1 adalah untuk mengira bilangan kejadian. Dengan menggunakan 1 sebagai nombor pengiraan kami mentakrifkan penggantian Kereta yang pertama sahaja. Akhir sekali, kami telah menetapkan rentetan teks baharu ini kepada updated_str dan dengan akotak mesej ( MsgBox ) kita akan melihat hasilnya.
➤ Tekan F5 .
Selepas itu, kotak mesej akan muncul dengan teks baharu Basikal di kedudukan pertama Kereta sahaja.
➤ Untuk menggantikan dua contoh pertama Kereta dengan Basikal gunakan kod berikut.
5690
Di sini, 2 digunakan sebagai nombor pengiraan untuk menggantikan dua kejadian pertama Kereta dengan Basikal .
Selepas menjalankan kod, anda akan mendapat penggantian dua teks pertama Kereta dengan Basikal .
➤ Gunakan kod berikut untuk menggantikan semua kejadian daripada teks Kereta .
3622
Di sini, hujah terakhir bagi fungsi REPLACE ialah 3 iaitu nombor pengiraan yang menunjukkan penggantian semua Kereta dengan Basikal dalam rentetan teks.
➤ Tekan F5 .
Selepas itu, kami akan mempunyai kotak mesej berikut dengan teks yang digantikan Basikal dalam rentetan.
Bacaan Serupa
- Cara Menggantikan Teks dengan Carriage Return dalam Excel (4 Pendekatan Lancar)
- Excel VBA: Cara Mencari dan Gantikan Teks dalam Dokumen Word
- Cara Menggantikan Teks selepas Aksara Tertentu dalam Excel (3 Kaedah)
- Menggantikan Teks aSel Berdasarkan Keadaan dalam Excel (5 Kaedah Mudah)
Kaedah-03: Gantikan Teks dalam Rentetan Rawak dengan InputBox
Di sini, kami akan menggantikan teks tertentu rentetan rawak dengan teks yang akan ditakrifkan oleh pengguna dengan bantuan fungsi VBA InputBox .
Langkah :
➤ Ikuti Langkah-01 daripada Kaedah-1 .
➤ Taip kod berikut.
5855
Di sini, kami telah mengisytiharkan full_txt_str , new_txt dan updated_str sebagai String dan kemudian diberikan full_txt_str kepada rentetan teks rawak- "Seratus Kereta Lima Puluh Kereta Sepuluh Kereta" . Untuk mendapatkan input yang ditentukan pengguna sebagai teks yang akan digantikan dengan Kereta dalam rentetan rawak, kami telah menggunakan fungsi InputBox dan kemudian memberikan nilai ini kepada new_txt . Kemudian Fungsi REPLACE digunakan untuk menggantikan Kereta bahagian rentetan rawak ini dengan new_txt . Akhir sekali, kami telah menetapkan rentetan teks baharu ini kepada updated_str dan dengan kotak mesej ( MsgBox ) kami akan melihat hasilnya.
➤ Tekan F5 .
Selepas itu, Kotak Input akan muncul di mana anda boleh memasukkan mana-mana bahagian teks yang anda mahu ada dalam rentetan baharu.
➤ Taip Basikal atau mana-mana teks lain yang anda mahu dan kemudian tekan OK .
Akhir sekali, anda akan mempunyai hasil berikut dengan rentetan teks baharu yang mempunyai teks baharu Basikal dalamkedudukan Kereta .
Baca Lagi: Cara Mengganti Teks dalam Formula Excel (7 Cara Mudah)
Kaedah-04: Gantikan Teks dalam Julat Rentetan dengan Excel VBA
Di sini, kami akan menggantikan bahagian gmail id e-mel dengan domain dalam lajur Domain Baharu dan untuk mengumpul id e-mel baharu kami telah memasukkan lajur baharu; Id E-mel Akhir .
Langkah :
➤ Ikuti Langkah-01 daripada Kaedah-1 .
➤ Taip kod berikut.
4937
Di sini, kami telah menggunakan gelung FOR untuk melaksanakan operasi daripada Baris 4 hingga Baris 13 . Dengan bantuan pernyataan IF-THEN , kami telah menyemak sama ada id e-mel Lajur D mengandungi “gmail” atau tidak, dan untuk memenuhi kriteria ini bahagian “gmail” id e-mel akan digantikan dengan domain baharu Lajur E untuk mencipta id baharu dalam Lajur F . Jika tidak, anda akan mempunyai ruang kosong dalam sel yang sepadan Lajur F .
➤ Tekan F5 .
Kemudian, anda akan mempunyai id e-mel baharu dalam lajur Id E-mel Akhir .
Baca Lagi: Excel VBA untuk Cari dan Gantikan Teks dalam Lajur (2 Contoh)
Kaedah-05: Gantikan Teks dalam Julat Rentetan dengan Input Pengguna untuk Cari Teks
Anda boleh menggantikan mengikuti id e-mel dengandomain baharu dan mengisytiharkan perkara yang perlu diganti dalam id sebelumnya input pengguna boleh digunakan dengan mengikut kaedah ini.
Langkah :
➤ Ikuti Langkah-01 daripada Kaedah-1 .
➤ Taip kod berikut.
1372
Di sini, kami telah menentukan partial_text sebagai String dan kemudian memperuntukkannya kepada rentetan yang akan diberikan oleh pengguna melalui Kotak Input .
Selepas itu, kami menggunakan gelung FOR untuk melaksanakan operasi daripada Baris 4 hingga Baris 13 dan menggunakan pernyataan IF-THEN , kami menyemak sama ada id e-mel Lajur D mengandungi “gmail” atau bukan. Dan untuk memenuhi kriteria ini bahagian “gmail” id e-mel akan digantikan dengan domain baharu Lajur E untuk dibuat id baharu dalam Lajur F . Jika tidak, anda akan mempunyai ruang kosong dalam sel yang sepadan Lajur F .
➤ Tekan F5 .
Selepas itu, anda akan mempunyai Kotak Input di mana anda perlu menaip teks yang anda ingin cari dalam julat id e-mel (di sini kami ada masukkan gmail ) dan kemudian tekan OK .
Akhir sekali, kami mempunyai id e-mel yang dikemas kini dalam Akhir Id E-mel lajur.
Baca Lagi: Cari dan Gantikan Teks dalam Julat dengan Excel VBA (Makro dan Borang Pengguna)
Bahagian Latihan
Untuk melakukan latihan dengansendiri, kami telah menyediakan bahagian Amalan seperti di bawah dalam helaian bernama Amalan . Sila lakukan sendiri.
Kesimpulan
Dalam artikel ini, kami cuba membincangkan cara menggantikan teks dalam rentetan menggunakan Excel VBA . Harap anda akan mendapati ia berguna. Jika anda mempunyai sebarang cadangan atau soalan, sila kongsikannya di bahagian komen.
