Makro untuk menemukan dan mengganti beberapa nilai di excel

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


Makro untuk menemukan dan mengganti beberapa nilai di excel
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

Makro untuk menemukan dan mengganti beberapa nilai di excel

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 Sub

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

5. Klik OK, dan kotak prompt lainnya ditampilkan untuk mengingatkan Anda memilih kriteria yang Anda buat di langkah 1. Lihat tangkapan layar

Makro untuk menemukan dan mengganti beberapa nilai di excel

6. Kemudian klik OK, semua nilai spesifik telah diganti dengan nilai baru sesuai kebutuhan Anda segera

Makro untuk menemukan dan mengganti beberapa nilai di excel


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.
Makro untuk menemukan dan mengganti beberapa nilai di excel

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
Makro untuk menemukan dan mengganti beberapa nilai di excel

Baca selengkapnya. Download Gratis. Pembelian.  

 

 

Terlama Pertama

Urutkan komentar menurut

Terlama Pertama

Pertama Terbaru

Komentar ( 136 )

Belum ada peringkat. Jadilah yang pertama menilai

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

bany

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

OMG, saya menyaksikan Yesus di sini

Membalas

0

0

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

Khan

sekitar 7 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Terima kasih itu membantu saya

Membalas

0

0

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

Swetha

sekitar 7 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Wow. Terima kasih banyak. Bekerja seperti permata

Membalas

0

0

Makro untuk menemukan dan mengganti beberapa nilai di excel

KiranRamannaIyer

sekitar 7 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Bekerja seperti pesona. Terima kasih banyak. D (Y)

Membalas

0

0

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

Jairam

sekitar 7 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Terima kasih. Ini bekerja dengan baik

Membalas

0

0

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

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

Makro untuk menemukan dan mengganti beberapa nilai di excel

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) .