Saya telah mencoba membuat beberapa makro untuk menemukan dan mengganti banyak nilai dalam sel yang dipilih seperti di bawah ini, Show
SubFR() Dim rngCell Sebagai Jangkauan fndList = Array("Inggris Raya", "Amerika Serikat", "Australia")
Untuk Setiap rngCell Dalam Seleksi 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 VBAJika 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
4. 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 TerbaikKutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
Baca selengkapnya. Download Gratis. Pembelian. Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Lebih Mudah
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? Bagaimana Anda menemukan dan mengganti beberapa nilai sekaligus di Excel?Ganti teks atau angka dengan Find & Replace . Tekan Ctrl+H atau buka Beranda > Temukan & Pilih > Ganti Di Temukan apa, ketikkan teks atau angka yang ingin Anda temukan Anda dapat lebih menentukan pencarian Anda. . Di kotak Ganti dengan, masukkan teks atau angka yang ingin Anda gunakan untuk mengganti teks pencarian Pilih Ganti atau Ganti Semua Bagaimana Anda mengotomatiskan pencarian dan penggantian di Excel?Langkah-langkah detailnya ikuti di bawah ini. . Pilih rentang sel tempat Anda ingin mengganti teks atau angka. . Tekan pintasan Ctrl + H untuk membuka tab Ganti dari dialog Temukan dan Ganti Excel. . Di kotak Temukan apa, ketikkan nilai yang akan dicari, dan di kotak Ganti dengan, ketikkan nilai yang akan diganti Bisakah Anda menggunakan Temukan dan Ganti dalam makro?Di VBA, kita bisa membuat makro yang bisa digunakan untuk mencari dan mengganti apapun yang biasa kita lakukan di Excel dengan menekan tombol shortcut Ctrl + H . Dengan bantuan VBA Find and Replace, kami dapat mengotomatiskan pencarian kata apa pun dan menggantinya dengan pengganti lainnya.
Bagaimana Anda menemukan dan mengganti beberapa nilai sekaligus dalam lembaran?Temukan dan Ganti di Google Spreadsheet
. Pilih rentang tempat Anda ingin mengganti nilai (di sini, B2. B19), dan di Menu, buka Edit > Temukan dan ganti (atau gunakan pintasan keyboard CTRL + H) . |