Bagaimana cara membuat kode makro untuk menemukan dan mengganti teks di Excel?
Biasanya, kami menggunakan fungsi Find and Replace bawaan untuk mencari dan mengganti nilai di Excel. Sebenarnya, Anda dapat menemukan dan mengganti teks di Excel secara langsung dengan kode makro. Di artikel ini, Anda akan mempelajari cara membuat kode makro untuk menemukan dan mengganti teks di Excel.
Buat kode makro untuk menemukan dan mengganti teks di Excel
Buat kode makro untuk menemukan dan mengganti teks di Excel
Harap lakukan hal berikut untuk membuat kode makro untuk menemukan dan mengganti teks di Excel.
1. tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Kemudian salin kode VBA di bawah ini ke jendela kode.
Kode VBA: Buat kode makro untuk menemukan dan mengganti teks di Excel
Sub FindandReplaceText()
'Update by Extendoffice 2018/5/24
Dim xFind As String
Dim xRep As String
Dim xRg As Range
On Error Resume Next
Set xRg =Cells
xFind = Application.InputBox("word to search:", "Kutools for Excel", , , , , 2)
xRep = Application.InputBox("word to replace:", "Kutools for Excel", , , , , 2)
If xFind = "False" Or xRep = "False" Then Exit Sub
xRg.Replace xFind, xRep, xlPart, xlByRows, False, False, False, False
End Sub
3. tekan F5 kunci untuk menjalankan kode.
4. Yang pertama Kutools untuk Excel kotak dialog, masukkan teks atau nilai yang akan Anda cari dan kemudian klik OK tombol. Lihat tangkapan layar:
5. Di kedua Kutools untuk Excel kotak dialog, masukkan teks atau nilai yang akan Anda ganti dan klik OK .
Kemudian semua teks yang ditentukan segera diganti dengan teks yang Anda inginkan.
Note: Kode ini diterapkan ke lembar kerja aktif.
Artikel terkait:
- Bagaimana menemukan dan mengganti semua sel kosong dengan angka atau teks tertentu di Excel?
- Bagaimana cara mengganti koma dengan baris baru (Alt + Enter) di sel di Excel?
- Bagaimana menemukan dan mengganti nama tab sheet di Excel?
- Bagaimana menemukan nilai dalam sel dengan daftar yang dipisahkan koma di Excel?
- Bagaimana menemukan persimpangan dua daftar kolom di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!