Bagaimana cara menghapus karakter atau kata duplikat dalam string sel?
Misalkan ada karakter atau kata duplikat di setiap sel, dan Anda ingin menghapus duplikat tersebut dan hanya menyisakan karakter atau kata unik. Bagaimana Anda bisa mengatasi masalah ini di Excel?
Hapus karakter duplikat dari string teks dengan User Defined Function
Hapus kata duplikat yang dipisahkan oleh tanda baca dengan User Defined Function
Hapus karakter duplikat dari string teks dengan User Defined Function
Jika Anda memiliki daftar string teks, sekarang, Anda perlu menghapus karakter duplikat seperti gambar berikut yang ditampilkan. Di sini, saya dapat berbicara tentang kode VBA untuk menghadapinya.
1. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.
Kode VBA: Hapus karakter duplikat dari string teks dalam sel
Function RemoveDupes1(pWorkRng As Range) As String
'Updateby Extendoffice
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 kode ini, kembali ke lembar kerja, dan masukkan rumus ini = dihapusupes1 (A2) (A2 adalah sel data yang ingin Anda hapus duplikatnya) ke dalam sel kosong selain data Anda, lihat tangkapan layar:
4. Dan kemudian seret gagang isian ke sel rentang yang ingin Anda terapkan rumus ini, semua karakter duplikat telah segera dihapus dari setiap sel.
Hapus kata duplikat yang dipisahkan oleh tanda baca dengan User Defined Function
Jika ada beberapa kata yang dipisahkan oleh tanda baca tertentu di dalam sel, Anda juga dapat menghapus kata duplikat sesuka Anda. Silakan lakukan dengan langkah-langkah berikut:
1. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.
Kode VBA: Hapus kata duplikat yang dipisahkan dengan tanda baca sel
Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
Dim x
'Updateby Extendoffice
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 kode ini, kembali ke lembar kerja, dan masukkan rumus ini = RemoveDupes2 (A2, ",") ke dalam sel kosong di samping data Anda, lihat tangkapan layar:
4. Kemudian salin rumus ke sel yang Anda butuhkan, dan semua kata duplikat telah dihapus dari setiap sel. Lihat tangkapan layar:
Note: Dalam rumus di atas, A2 menunjukkan sel yang ingin Anda gunakan, dan koma (,) adalah tanda baca yang memisahkan kata-kata dalam sel, Anda dapat mengubahnya menjadi tanda baca lain sesuai kebutuhan Anda.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab 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 sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!