Saya telah mencoba membuat beberapa makro untuk menemukan dan mengganti banyak nilai dalam sel yang dipilih seperti di bawah ini,
SubFR()
Dim rngCell Sebagai Jangkauan
Redupkan fndList Sebagai Varian
Dim rplcList Sebagai Varian
Redupkan F Selama
fndList = Array("Inggris Raya", "Amerika Serikat", "Australia")
rplcList = Array("UK", "US", "AUS")
Untuk F = LBound(fndList) Ke UBound(fndList)
Untuk Setiap rngCell Dalam Seleksi
sht. Sel. Ganti Apa. =fndList(x), Penggantian. =rplcDaftar(x), _
Melihat. =xlPart, SearchOrder. =xlByRows, MatchCase. =Salah, _
Format Pencarian. =Salah, GantiFormat. =Salah
Rng selanjutnya
F berikutnya
Akhir Sub
Tapi saya mengalami kesalahan. Bisakah kalian membantu ini?
Terimakasih banyak,
Muda
Seperti yang kita semua tahu, kita dapat menggunakan fungsi Temukan dan Ganti untuk menemukan beberapa sel yang sama dan menggantinya dengan nilai yang Anda butuhkan. Namun 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 yang ditunjukkan tangkapan layar berikut, apakah Anda punya ide bagus untuk menyelesaikan tugas ini di
Temukan dan ganti beberapa nilai sekaligus dengan kode VBA
Jika Anda bosan mencari dan mengganti nilai berkali-kali, kode VBA berikut dapat membantu Anda mengganti beberapa nilai dengan teks yang Anda butuhkan sekaligus
1. Harap buat ketentuan yang ingin Anda gunakan yang berisi nilai asli dan nilai baru. Lihat tangkapan layar
2. Kemudian tahan tombol ALT + F11 untuk membuka jendela Microsoft Visual Basic for Applications
3. Klik Sisipkan > Modul, dan tempelkan 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 Sub4. Kemudian tekan tombol F5 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 lainnya ditampilkan untuk mengingatkan Anda memilih kriteria yang Anda buat di langkah 1. Lihat tangkapan layar
6. Kemudian klik OK, semua nilai spesifik telah diganti dengan nilai baru sesuai kebutuhan Anda segera
Artikel terkait
Bagaimana menemukan dan mengganti teks tertentu di kotak teks?
Bagaimana menemukan dan mengganti teks dalam judul bagan di Excel?
Bagaimana menemukan dan mengganti teks di dalam komentar di Excel?
Bagaimana cara mengubah beberapa jalur hyperlink sekaligus di Excel?
Alat Produktivitas Kantor Terbaik
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
- Gunakan kembali. Masukkan dengan cepat rumus kompleks, bagan dan apa pun yang pernah Anda gunakan sebelumnya; . Encrypt Cells with password; Create Mailing List and send emails...
- Super Formula Bar (mengedit beberapa baris teks dan formula dengan mudah); . Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
- Menggabungkan Sel/Baris/Kolom tanpa kehilangan Data; . Cegah Sel Duplikat; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
- Pilih Baris Duplikat atau Unik ; . Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
- Exact Copy Beberapa Sel tanpa mengubah referensi rumus; . Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
- Ekstrak Teks , Tambah Teks, Hapus berdasarkan Posisi, Hapus Spasi ; . Convert Between Cells Content and Comments...
- Filter Super (simpan dan terapkan skema filter ke sheet lain); . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
- Menggabungkan Buku Kerja dan Lembar Kerja ; . Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
- Lebih dari 300 fitur canggih . Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
Baca selengkapnya. Download Gratis. Pembelian.
Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Lebih Mudah
- Aktifkan pengeditan dan pembacaan bertab 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 hingga 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari
Baca selengkapnya. Download Gratis. Pembelian.
Terlama Pertama
Urutkan komentar menurut
Terlama Pertama
Pertama Terbaru
Komentar ( 136 )
Belum ada peringkat. Jadilah yang pertama menilai
Ken Long
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Ini tidak berhasil untuk saya. Saya menggunakan Excel 2010. Itu meminta saya untuk rentang asli dan rentang baru kemudian gagal tanpa pesan. Tidak ada yang diganti. Saya akan terus mencari cara untuk melakukan ini
Membalas
0
0
Ken Long
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Tolong abaikan komentar terakhir saya. Saya salah melakukannya. Ini bekerja dengan baik
Membalas
0
0
Cory Ken Long
sekitar 6 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
[quote] Harap abaikan komentar terakhir saya. Saya salah melakukannya. Ini bekerja dengan baik. Oleh Ken Long[/quote] Itu tidak berhasil untuk saya. Bagaimana Anda melakukan kesalahan. Saya tidak memiliki pengetahuan tentang VBA
Membalas
0
0
Markus
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Hai, saya mencoba menggunakan makro ini untuk menerjemahkan pengukuran. Baris yang akan diterjemahkan. Manik-manik Ukur Kira-kira. Nilai Penggantian Lebar 11/16 Inci. 1/32 0,794 mm 1/16 1,588 mm. . . 16/11 17.463 mm. . . Garis Hasil 1/1 25.400 mm. Manik-manik Ukur Kira-kira. Lebar 11.588 mm Inch salah Masalah. Kode menggunakan Nilai dari 1/16 dan menggantikannya Bagaimana cara memperbaikinya? . =xlSeluruh di Makro lain saya tidak mendapatkan hasil apa pun)
Membalas
0
0
Mohajel
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Hai Terima kasih Bisakah saya membuatnya peka huruf besar-kecil?
Membalas
0
0
bany
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
OMG, saya menyaksikan Yesus di sini
Membalas
0
0
Jaka
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Hai, saya telah mencoba menggunakan kode ini dengan mengganti beberapa angka dengan teks yang sesuai. Saya memiliki kumpulan data besar mulai dari 1 -> 112000, tetapi ketika saya mencoba mengonversi 1 ke nilai string yang sesuai (mis. Apple), itu akan menerjemahkan ini ke setiap angka 1 di kolom. Oleh karena itu 112000 akan dikeluarkan sebagai AppleAppleOrange000. Apakah ada cara dalam proses Kutools ini, seperti alat temukan/ganti di excel, untuk menemukan/mengganti kasus kecocokan tertentu?
Membalas
0
0
Tom Jake
sekitar 6 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Anda perlu menambahkan parameter berikut. MatchCase. =Benar Jadi misalnya, tambahkan ke baris di bawah ini. InputRng. Ganti apa. =Rng. Nilai, penggantian. =Rng. Offset(0, 1). Nilai, MatchCase. =True Ini hanya akan menemukan dan mengganti item yang MatchCase dalam Rentang yang telah Anda pilih
Membalas
0
0
trisha Tom
sekitar 5 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Bisakah Anda menulis ulang kode untuk memastikan kami melakukannya dengan benar?
Membalas
0
0
trisha Tom
sekitar 5 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Itu tidak berhasil untuk saya, tolong bantu menulis ulang kode
Membalas
0
0
JD
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
apakah ada cara untuk default rentang Asli ke 'Tab1'. $4. $42
Membalas
0
0
Kartik
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Bekerja seperti pesona. Terima kasih untuk kode dan instruksi terperinci. Anda telah menyelamatkan dua hari saya. Tuhan memberkati
Membalas
0
0
jegadeez
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
FORMAT ASLI. 1 dalam ID X 2-1/2 dalam OD X 40 dalam Panjang 1 dalam ID X 2-1/2 dalam OD X 10 dalam Panjang 1 dalam ID X 2-1/2 dalam OD X 20 dalam Panjang 1 dalam ID X 2 . ID 1 x OD 2-1/2 x LG 40 IN ID 1 x OD 2-1/2 x LG 10 IN ID 1 x OD 2-1/2 x LG 20 IN ID 1 x OD 2-1/2 x LG
Membalas
0
0
Khan
sekitar 7 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Terima kasih itu membantu saya
Membalas
0
0
Khan
sekitar 7 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Makro tidak berfungsi untuk pencocokan persis. Seperti ada dua kategori ABC dan ABC 2. Temukan dan ganti ABC dengan RRR dan ABC 2 dengan TTT sehingga Macro akan mengubah ABC 2 menjadi RRR 2, bukan TTT
Membalas
0
0
Rama Khan
sekitar 6 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Mula-mula ganti ABC 2 dengan TTT dan kemudian ABC dengan RRR
Membalas
0
0
Xhaleira
sekitar 7 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Di bawah "Rentang asli", Anda menampilkan $A$2. $A$10, yang berarti dalam satu lembar. Bagaimana saya bisa memilih seluruh buku kerja di sini?
Membalas
0
0
Swetha
sekitar 7 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Wow. Terima kasih banyak. Bekerja seperti permata
Membalas
0
0
KiranRamannaIyer
sekitar 7 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Bekerja seperti pesona. Terima kasih banyak. D (Y)
Membalas
0
0
Dusyanth
sekitar 7 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Saya menggunakan kode di atas untuk mengganti angka tetapi 11 dan 1 diganti
Membalas
0
0
mmg1 Dushyanth
sekitar 6 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Sub MultiFindNReplace() 'Perbarui 20140722 Dim Rng Sebagai Rentang Dim InputRng Sebagai Rentang, ReplaceRng Sebagai Rentang xTitleId = "KutoolsforExcel" Tetapkan InputRng = Aplikasi. Seleksi Tetapkan InputRng = Aplikasi. InputBox("Rentang Asli ", xTitleId, InputRng. Tipe alamat. =8) Tetapkan ReplaceRng = Aplikasi. InputBox("Ganti Rentang. ", xTitleId, Ketik. =8) Aplikasi. ScreenUpdating = Salah Untuk Setiap Rng Di ReplaceRng. Kolom(1). Sel InputRng. Ganti apa. =Rng. Nilai, penggantian. =Rng. Offset(0, 1). Nilai, lihat. =xlseluruh Aplikasi Selanjutnya. Pembaruan Layar = True End Sub
Membalas
0
0
Kenneth mmg1
sekitar 6 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Ya. Terima kasih untuk kode ini, ini bekerja dengan sangat baik
Membalas
0
0
Excelsucks Kenneth
sekitar 3 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Ini juga tidak berhasil saat mencoba mengganti kolom nilai numerik dengan nilai numerik lain dari tabel pivot. Inilah yang saya dapatkan karena mencoba melakukan hal-hal sederhana untuk mengotomatiskan hal-hal di spreadsheet Excel
Membalas
0
0
Jairam
sekitar 7 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Terima kasih. Ini bekerja dengan baik
Membalas
0
0
ScottR
sekitar 7 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki masalah yang sama di mana jika 2 nama mirip, seperti jika saya ingin mengganti GURU dengan 1 dan GURU ASSIST dengan 2, itu akan menggantikan GURU dengan 1 dan GURU ASSIST dengan 1 ASSIST. Bagaimana saya mendapatkannya untuk menggantikan frase EXACT?
Membalas
0
0
SUNIL SINGHAL
sekitar 7 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak. Itu cukup berguna dan menyelamatkan saya 1 jam kerja
Membalas
0
0
Sharv
sekitar 7 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki dua kolom, kolom pertama adalah daftar nomor 1,2,3. 22,23,. Kolom kedua dengan daftar string. Alih-alih mengganti nilai 12 dengan nilai string. Itu menggantikannya dengan string dari 1 dan 2. Adakah yang tahu bagaimana mengurutkan ini?
Membalas
0
0
Sharv
sekitar 7 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki 3 kolom seperti di bawah ini, 1 Multimeter 2 Test Lamp 3 Ohm Meter 4 Resistance Tester 5 Fault Loop 12 RCD Tester 24 Portable RCD 13 Extension Lead Kolom ketiga memiliki angka 1,2. 50. Ada sekitar 36000 baris. Itu menggantikan 12 dengan nilai dari baris 1 dan 2, bukan 12. Ada yang tahu cara memperbaikinya?