Penjelasan terperinci tentang cara memadam pendua dalam sel excel

Artikel ini memperkenalkan tiga cara untuk mencari dan memadam pendua dalam sel Excel, dan hanya pilih kaedah yang sesuai dengan anda.

Microsoft Excel menawarkan pelbagai pilihan yang berbeza apabila memadamkan nilai atau baris pendua. Walau bagaimanapun, apabila perlu memadam teks yang sama dalam sel tertentu, Excel ... tidak memberikan apa -apa. Tiada alat, tiada fungsi, tiada formula, tiada apa -apa. Adakah ini akan menghalang kita daripada mencapai matlamat kita? Sudah tentu tidak. Jika Excel tidak mempunyai ciri -ciri yang kita perlukan, mari kita tulis sendiri!

• Gunakan VBA untuk membuang perkataan pendua dalam Excel
• Gunakan VBA untuk memadam watak pendua
• Gunakan suite muktamad untuk memadam teks pendua dalam pelbagai sel

Cara Menghapus Perkataan Duplikat di Excel Cell

Masalah: Terdapat rentetan perkataan atau teks yang sama di dalam sel dan anda ingin memadam kedua dan semua pendua berikutnya.

Penyelesaian: Sesuaikan fungsi yang ditentukan pengguna atau makro VBA.

Fungsi yang ditentukan pengguna yang memadam pendua dalam sel

Untuk menghapuskan teks pendua dalam sel, anda boleh menggunakan fungsi yang ditentukan oleh pengguna khas (UDF) yang disebut RemovedUpewords :

 Fungsi RemovedUpewords (teks sebagai rentetan, pemisahan pilihan sebagai string = "") sebagai rentetan
  Kamus Dim sebagai Objek
  Dim x, bahagian
  Tetapkan kamus = createObject ("scripting.dictionary")
  Kamus.comPareMode = VBTextCompare
  Untuk setiap x dalam perpecahan (teks, pemisah)
    bahagian = trim (x)
    Jika bahagian  "" dan bukan kamus.exists (bahagian) maka
      bahagian kamus.add, tiada apa -apa
    Akhir jika
  Seterusnya
  Jika kamus.count> 0 kemudian
    Dipindahkan
  Lain
    Dikeluarkan = ""
  Akhir jika
  Tetapkan kamus = tiada
Fungsi akhir

Cara memasukkan kod fungsi dalam buku kerja

Untuk menambah kod di atas ke Excel anda, anda perlu melakukan perkara berikut:

1. Tekan ALT F11 untuk membuka editor Visual Basic.
2. Di anak panah kiri, klik kanan ini dan pilih Insert > Modul .
3. Tampal kod di atas ke dalam tetingkap kod .

Untuk maklumat lanjut, lihat cara memasukkan kod VBA dalam Excel.

Sintaks fungsi yang dikeluarkan

Fungsi kami yang baru dibuat untuk memadam teks pendua dalam sel mempunyai sintaks berikut:

RemovedUpewords (teks, [Delimiter]) di mana:

• Teks (diperlukan) - Rentetan atau sel dari mana untuk memadam teks pendua.
• Delimiter (Pilihan) - Pembatas teks pendua yang akan dipisahkan olehnya. Jika ditinggalkan, gunakan ruang sebagai pembatas.

Fungsi ini tidak sensitif , bermakna huruf kecil dan huruf besar dianggap sebagai aksara yang sama.

Cara menggunakan fungsi yang dikeluarkan

Selepas menambah kod fungsi ke buku kerja, anda boleh menggunakannya dalam formula anda seperti menggunakan fungsi terbina dalam Excel.

Hanya mula menaip nama fungsi selepas tanda yang sama dan ia akan muncul dalam Perisikan Formula. Klik dua kali fungsi dan ia akan dimasukkan ke dalam sel. Tentukan parameter, taipkan pendakap penutup, tekan Enter, dan formula anda selesai.

Sebagai contoh, untuk mengeluarkan kata -kata pendua yang dipisahkan oleh koma dan ruang dari A2, masukkan formula berikut dalam B2 dan seretnya ke bilangan sel yang dikehendaki:

=RemoveDupeWords(A2, ", ")

Akibatnya, anda mendapat senarai perkataan atau substring yang unik yang dipisahkan oleh koma dan ruang :

Jika anda ingin mendapatkan senarai yang dipisahkan koma, gunakan koma hanya untuk pembatas:

=RemoveDupeWords(A2, ",")

Jika data sumber anda dipisahkan oleh ruang , parameter kedua harus "" atau ditinggalkan:

=RemoveDupeWords(A2)

Seperti mana -mana fungsi Excel yang lain, UDF kami secara automatik akan mengira semula apabila data sumber berubah, jadi hasil anda akan sentiasa terkini.

VBA Macro yang memadam teks pendua dalam pelbagai sel sekaligus

Jika anda ingin memadam teks pendua dalam pelbagai sel sekaligus, anda boleh menghubungi fungsi yang dikeluarkan dalam makro. Dalam kes ini, pembatas adalah keras, dan anda perlu mengemas kini kod makro setiap kali perubahan pembatas. Sebagai alternatif, anda boleh menulis beberapa variasi kod untuk pembatas yang paling biasa seperti ruang, koma atau koma dan ruang dan memberi makro anda nama yang bermakna, seperti RemovedupesDelimspace .

Kod makro adalah seperti berikut:

 Sub Awam Dihapus 2 ()
  Sel Dim sebagai Julat
  Untuk setiap sel dalam aplikasi.celection
    Cell.Value = RemovedUpewords (Cell.Value, ",")
  Seterusnya
Akhir sub

Dalam kod di atas, pemisah adalah koma dan ruang . Untuk menggunakan pembatas yang berbeza, ganti "," dengan aksara lain dalam baris kod berikut:

cell.Value = RemoveDupeWords(cell.Value, ", ")

Notis. Untuk makro berfungsi dengan betul, kodnya dan kod fungsi yang dikeluarkan mesti diletakkan dalam modul yang sama.

Cara menggunakan makro

Masukkan kod makro ke dalam buku kerja anda sendiri atau buka buku kerja sampel yang mengandungi kod dan lakukan langkah -langkah berikut untuk menjalankan makro.

1. Pilih pelbagai sel dari mana anda ingin mengeluarkan teks pendua.
2. Tekan Alt F8 untuk membuka kotak dialog Makro .
3. Dalam senarai makro, pilih RemovedUpewords2 .
4. Klik Run .

Untuk maklumat lanjut, lihat cara menjalankan makro dalam Excel.

Notis. Oleh kerana operasi makro tidak boleh dibatalkan , kami sangat mengesyorkan agar anda menyimpan buku kerja anda sebelum menggunakan makro. Dengan cara ini, jika ada masalah, anda boleh menutup dan membuka semula buku kerja dan anda akan kembali ke tempat anda sebelum ini. Sebagai alternatif, anda boleh menyalin hanya helaian yang mungkin dipengaruhi oleh makro.

Cara Menghilangkan Watak Duplikat di Sel

Masalah: Terdapat banyak watak yang sama dalam sel, dan setiap sel harus mengandungi hanya satu kejadian watak yang diberikan.

Penyelesaian: Sesuaikan fungsi yang ditentukan pengguna atau makro VBA.

Fungsi yang ditentukan pengguna yang membuang watak pendua

Untuk mengalih keluar aksara pendua dalam sel, menyimpan hanya kejadian pertama aksara, anda boleh menggunakan fungsi yang ditentukan pengguna tersuai berikut yang dipanggil RemovedUpeChars :

 Fungsi RemovedUpeChars (teks sebagai rentetan) sebagai rentetan
  Kamus Dim sebagai Objek
  Dim char sebagai rentetan
  Hasil redup sebagai rentetan
  Tetapkan kamus = createObject ("scripting.dictionary")
  Untuk i = 1 hingga len (teks)
    char = pertengahan (teks, i, 1)
    Jika tidak kamus.seksimasi (char) maka
      Kamus.Add Char, tiada apa -apa
      hasil = hasil & char
    Akhir jika
  Seterusnya
  RemovedUpeChars = hasil
  Tetapkan kamus = tiada
Fungsi akhir

Untuk memasukkan kod fungsi ke dalam buku kerja anda, langkah -langkahnya sama seperti contoh sebelumnya.

Sintaks fungsi yang dikeluarkan

Sintaks fungsi tersuai ini semudah mungkin - hanya satu parameter yang diperlukan:

RemovedUpeChars (teks) di mana teks adalah rentetan atau sel dari mana aksara pendua akan dikeluarkan.

Fungsi ini sensitif kes dan merawat huruf kecil dan huruf besar sebagai aksara yang berbeza.

Cara menggunakan fungsi yang dikeluarkan

Segala -galanya yang kami katakan mengenai kerja -kerja yang dikeluarkan dengan dikeluarkan dengan dikeluarkan . Jadi, tanpa teori terlalu banyak, mari kita terus ke contoh.

Untuk mengalih keluar aksara pendua dari lajur A (bermula dari A2), masukkan formula ini dalam B2 dan salin di bawah:

=RemoveDupeChars(A2)

Seperti yang ditunjukkan dalam gambar di bawah, fungsi berjaya mengendalikan jenis watak yang berbeza, termasuk huruf, nombor dan simbol khas:

petunjuk. Jika watak anda dipisahkan antara satu sama lain oleh pembatas tertentu seperti ruang, koma, atau tanda hubung, kemudian gunakan fungsi yang dikeluarkan yang ditunjukkan dalam contoh sebelumnya.

Padam makro VBA dengan watak yang sama dalam sel

Seperti yang dikeluarkan , fungsi yang dikeluarkan juga boleh dipanggil dalam makro:

 Sub Awam RemovedUpeChars2 ()
  Sel Dim sebagai Julat
  Untuk setiap sel dalam aplikasi.celection
    Cell.Value = RemovedUpeChars (Cell.Value)
  Seterusnya
Akhir sub

Kerana UDF ini tidak menggunakan mana -mana pemisah, anda tidak perlu membuat sebarang pelarasan dalam kod anda.

Notis. Untuk makro berfungsi dengan betul, kodnya dan kod yang dikeluarkan UDF mesti diletakkan dalam modul yang sama dalam editor VBA.

Cara menggunakan makro

Dengan mengandaikan bahawa anda telah memasukkan kod makro ke dalam buku kerja anda atau membuka buku kerja sampel yang mengandungi kod, mulakan makro seperti berikut.

1. Pilih julat sel dari mana anda ingin mengeluarkan aksara pendua.
2. Tekan Alt F8 untuk membuka kotak dialog Makro .
3. Dalam senarai makro, pilih RemovedUpeChars2 .
4. Klik Run .

Gunakan suite muktamad untuk memadam substring pendua

Pada permulaan tutorial ini, disebutkan bahawa Microsoft Excel tidak mempunyai fungsi terbina dalam untuk memadam pendua dalam sel. Tetapi suite muktamad kami boleh!

Anda boleh menemuinya dalam menu drop-down Remover Duplicate pada tab Data Cabebits , yang terletak di Kumpulan Dedupe . Jika pilihan Substrings Duplicate tidak muncul dalam Excel anda, pastikan anda mempunyai versi terkini Ultimate Suite yang dipasang (percubaan percuma yang tersedia di sini).

Untuk membuang perkataan atau teks pendua dari pelbagai sel pada 5 saat (setiap langkah), anda perlu melakukan perkara berikut:

1. Pilih data sumber anda dan mulakan alat Substrings Duplikat .
2. Tentukan pemisah .
3. Mentakrifkan sama ada untuk merawat pembatas berturut -turut sebagai satu (lalai).
4. Pilih untuk melakukan carian sensitif atau kes-insensitif kes .
5. Klik Padam .

Selesai! Tiada VBA atau formula diperlukan, hanya hasil yang cepat dan tepat.

Untuk mengetahui lebih lanjut mengenai add-in yang kuat ini, lawati laman utamanya. Atau lebih baik lagi, muat turun versi penilaian di bawah dan cuba!

Ini adalah cara memadam teks pendua dalam sel. Terima kasih kerana membaca dan berharap dapat berjumpa dengan anda minggu depan di blog kami!

Sumber yang boleh dimuat turun

Contoh Menghapus Duplikat dalam sel (.xlsm File) Ultimate Suite 14 Hari Ciri Penuh Versi (.exe File)

Atas ialah kandungan terperinci Cara membuang pendua dalam sel di Excel. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!