Bagaimana menemukan dan mengganti beberapa nilai sekaligus di Excel?
Seperti yang kita semua tahu, kita dapat menggunakan fungsi Find and Replace untuk menemukan beberapa sel yang sama dan menggantinya dengan nilai yang Anda butuhkan. Tetapi terkadang, Anda perlu menerapkan penggantian banyak ke banyak secara bersamaan. Misalnya, saya memiliki berbagai data, dan sekarang saya ingin mengganti semua Apel menjadi Apel Merah, Jeruk menjadi Jeruk Hijau, Pisang menjadi Pisang Kuning dan seterusnya seperti gambar berikut yang ditampilkan, apakah Anda punya ide bagus untuk menyelesaikan tugas ini di Unggul?
Temukan dan ganti beberapa nilai sekaligus dengan kode VBA
Jika Anda bosan menemukan dan mengganti nilai berkali-kali, kode VBA berikut dapat membantu Anda mengganti beberapa nilai dengan teks yang Anda butuhkan sekaligus.
1. Harap buat kondisi Anda yang ingin Anda gunakan yang berisi nilai asli dan nilai baru. Lihat tangkapan layar:
2. Kemudian tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.
3. Klik Menyisipkan > Modul, dan tempel kode berikut di jendela modul.
Kode VBA: Temukan dan ganti beberapa nilai sekaligus
Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub
4. Lalu tekan F5 kunci untuk menjalankan kode ini, di kotak prompt yang muncul, tentukan rentang data yang ingin Anda ganti nilainya dengan nilai baru.
5. Klik OK, dan kotak prompt lain ditampilkan untuk mengingatkan Anda memilih kriteria yang Anda buat di langkah 1. Lihat tangkapan layar:
6. Lalu klik OK, semua nilai spesifik telah diganti dengan nilai baru yang Anda butuhkan segera.
Artikel terkait:
Bagaimana menemukan dan mengganti teks tertentu di kotak teks?
Bagaimana menemukan dan mengganti teks dalam judul grafik di Excel?
Bagaimana menemukan dan mengganti teks dalam komentar di Excel?
Bagaimana cara mengubah beberapa jalur hyperlink sekaligus 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!