Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menghapus aksara pendua atau perkataan dalam rentetan sel?

Supaya ada terdapat dua aksara atau kata-kata dalam setiap sel, dan anda ingin memadamkan pendua dan tinggalkan hanya aksara atau kata yang unik. Bagaimana anda boleh menyelesaikan masalah ini dalam Excel?

Keluarkan aksara pendua rentetan teks dengan Fungsi Ditakrifkan Pengguna

Keluarkan perkataan pendua yang dipisahkan oleh tanda baca dengan Fungsi Ditetapkan Pengguna


Pilih nilai pendua dalam lajur dan kemudian tanggalkannya sekali gus:

dengan Kutools untuk Excel'S Pilih Duplicate & Unique Cells ciri, anda boleh dengan cepat memilih dan menyerlahkan nilai pendua atau unik dari julat, dan kemudian anda boleh mengeluarkan atau memformatkannya seperti yang anda perlukan.

doc mengalih keluar kedua-dua salinan 15 15


anak panah gelembung kanan biru Keluarkan aksara pendua rentetan teks dengan Fungsi Ditakrifkan Pengguna


Jika anda mempunyai senarai rentetan teks, sekarang, anda perlu mengalih keluar aksara pendua seperti tangkapan skrin berikut. Di sini, saya boleh bercakap tentang kod VBA untuk menanganinya.

doc-remove-duplicate-characters-1

1. Tahan ALT + F11 kunci untuk membuka Tetingkap Microsoft Visual Basic untuk Aplikasi.

2. Klik Memasukkan > Modul, dan tampal kod berikut dalam Modul Window.

Kod VBA: Keluarkan aksara pendua rentetan teks dalam sel

Function RemoveDupes1(pWorkRng As Range) As String
'Updateby20140924
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
    xChar = VBA.Mid(xValue, i, 1)
    If xDic.Exists(xChar) Then
    Else
        xDic(xChar) = ""
        xOutValue = xOutValue & xChar
    End If
Next
RemoveDupes1 = xOutValue
End Function

3. Kemudian simpan dan tutup kod ini, kembali ke lembaran kerja, dan masukkan formula ini = dihapuskan1 (A2) (A2 adalah sel data yang anda ingin keluarkan pendua dari) ke sel kosong selain data anda, lihat tangkapan skrin:

doc-remove-duplicate-characters-1

4. Dan kemudian seret pemegang pengisian ke sel-sel rangkaian yang anda mahu gunakan formula ini, semua aksara pendua telah dikeluarkan dari setiap sel dengan serta-merta.

doc-remove-duplicate-characters-1


anak panah gelembung kanan biru Keluarkan perkataan pendua yang dipisahkan oleh tanda baca dengan Fungsi Ditetapkan Pengguna

Sekiranya terdapat beberapa perkataan yang dipisahkan oleh tanda baca dalam sel, anda juga boleh mengeluarkan kata-kata pendua yang anda suka. Sila lakukan langkah-langkah berikut:

1. Tahan ALT + F11 kunci untuk membuka Tetingkap Microsoft Visual Basic untuk Aplikasi.

2. Klik Memasukkan > Modul, dan tampal kod berikut dalam Modul Window.

Kod VBA: Keluarkan perkataan pendua yang dipisahkan dengan tanda baca sel

Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
    Dim x
    'Updateby20140924
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For Each x In Split(txt, delim)
            If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
        Next
        If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
    End With
End Function

3. Kemudian simpan dan tutup kod ini, kembali ke lembaran kerja, dan masukkan formula ini = RemoveDupes2 (A2, ",") ke dalam sel kosong di sebelah data anda, lihat tangkapan skrin:

doc-remove-duplicate-characters-1

4. Kemudian salurkan formula ke sel yang diperlukan, dan semua perkataan pendua telah dikeluarkan dari setiap sel. Lihat tangkapan skrin:

doc-remove-duplicate-characters-1

Nota: Dalam formula di atas, A2 menunjukkan sel yang anda mahu gunakan, dan koma (,) bermaksud tanda baca yang memisahkan kata-kata dalam sel, anda boleh mengubahnya ke sebarang tanda baca yang lain untuk keperluan anda.


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Rocio · 4 months ago
    Hi, what should I do if I want to delete duplicated words within on cell? For example, Ana Garcia Lopes Garcia -> Ana Garcia Lopes
    • To post as a guest, your comment is unpublished.
      skyyang · 4 months ago
      Hello, Rocio,
      To remove the duplicate words within a cell, you should apply the User Defined Function of the second method in this article,
      Remove duplicate words separated by punctuation with User Defined Function

      and then apply this formula:=RemoveDupes2(A2," ").
      Please try it, hope it can help you!
      • To post as a guest, your comment is unpublished.
        Rocio · 4 months ago
        Thanks! but what will happen if i do not have punctuation within the cell? for example: Apple Book Pencil Book and I want to remove the duplicated word in this case Book and just obtain Apple Book Pencil
        • To post as a guest, your comment is unpublished.
          skyyang · 4 months ago
          Hi,
          If your cell value is separated by space, after pasting the above code, you just need to replace the comma with space as follows:
          Replace this formula:=RemoveDupes2(A2,",") with =RemoveDupes2(A2," ")
  • To post as a guest, your comment is unpublished.
    Bill Davis · 5 months ago
    I have been using the VBA code: Remove duplicate words separated by punctuation of a cell RemoveDupes2 logic for some time now and I recently had my machine upgraded to O365 and when running this same process, I get an error on my cell. Instead of returning the values I expect, I am getting the #Value! error in the cell.

    I'm not too savy on writing formulas or using the VB logic, so not sure where to start, any guidance would be helpful.
  • To post as a guest, your comment is unpublished.
    NeedExcelHelp · 9 months ago
    What about removing duplicate addresses. If I have a cell that says "123 Address St. 123 Address St." How can I select only the first address when I have many cells with different addresses in each of them?
  • To post as a guest, your comment is unpublished.
    Suraj Singh · 9 months ago
    Can we removed the duplicate from in single cell tax . like as per below tax the highlighted tax is duplicate.

    C2/1104, SUMMER PALM SECTOR 86 C2/1104, SUMMER PALM FARIDABAD HARYANA India
  • To post as a guest, your comment is unpublished.
    Angshuman Pradhan · 10 months ago
    how to save =RemoveDupes2 this formula in excel 2007
    • To post as a guest, your comment is unpublished.
      skyyang · 10 months ago
      Hello, Pradhan,
      To save this formula for using next time, you should save the workbook as Excel Macro-Enabled Workbook file format.
      Please try it, hope it can help you!