Aya tilu cara pikeun milarian sareng mupus duplikat dina sél dina Excel. Pilih wae nu panghadéna pikeun anjeun.

Nalika éta masalah miceun nilai duplikat atawa baris, Microsoft Excel nawarkeun rupa-rupa pilihan. Tapi lamun datang ka nyoplokkeun téks idéntik dina sél dibikeun, Excel nyadiakeun ... nanaon. Taya parabot, euweuh fitur, euweuh rumus, euweuh nanaon. Naha éta bakal ngeureunkeun urang pikeun ngahontal tujuan urang? Bisi wae. Lamun Excel teu boga fungsi nu urang butuhkeun, hayu urang balik nulis hiji sorangan :)

Kumaha carana miceun ulang kecap dina sél Excel

Masalah : Anjeun gaduh kecap atawa senar téks nu sami dina sél sareng hoyong miceun nu kadua sareng sadaya ulangan saterasna.

Solusi : fungsi khusus anu ditetepkeun ku pamaké atanapi makro VBA.

Pungsi nu ditetepkeun ku pamaké pikeun mupus duplikat dina sél

Pikeun ngaleungitkeun téks duplikat dina sél, Anjeun bisa maké fungsi nu ditangtukeun ku pamaké (UDF) ieu di handap. , ngaranna RemoveDupeWords :

Function RemoveDupeWords(text As String , Optional delimiter As String = " " ) As String Dim dictionary As Object Dim x, part Set dictionary = CreateObject ( "Scripting.Dictionary") kamus .CompareMode = vbTextCompare Pikeun Unggal x Dina Split (téks, delimiter) bagian = motong (x) Lamun bagian "" Jeung Teu dictionary.Exists (bagean) Lajeng dictionary.Add bagian, Euweuh tungtung Mun salajengna Lamun dictionary.Count & GT; 0 Lajeng RemoveDupeWords = Gabung(kamus.keys,delimiter) Else RemoveDupeWords = "" End If Set dictionary = Euweuh Fungsi End

Kumaha cara nyelapkeun kodeu fungsi dina buku kerja anjeun

Pikeun nambahkeun kodeu di luhur kana Excel anjeun, ieu anu anjeun kedah laksanakeun:

1. Pencét Alt + F11 pikeun muka Éditor Visual Basic.
2. Dina panel kénca, klik katuhu ThisWorkbook terus pilih Selapkeun > Modul .
3. Tempelkeun kodeu di luhur dina jandela Kode .

Pikeun inpormasi lengkep, mangga tingali Cara nyelapkeun VBA kode dina Excel.

Sintaksis fungsi RemoveDupeWords

Fungsi urang nu anyar dijieun pikeun miceun duplikat téks dina sél mibanda sintaksis kieu:

RemoveDupeWords(teks, [delimiter])

Dimana :

• Teks (diperlukeun) - string atawa sél nu Anjeun hoyong pupus téks ulangan.
• Delimiter (opsional) - delimiter yén téks ulang dipisahkeun ku. Lamun dileungitkeun, spasi dipaké pikeun delimiter.

Pungsina teu sénsitip kana hurup leutik , hartina hurup leutik jeung hurup badag dianggap salaku karakter nu sarua.

Kumaha cara ngagunakeun pungsi RemoveDupeWords

Sanggeus kodeu pungsi ditambahkeun kana buku kerja, Anjeun bisa maké éta dina rumus cara nu sarua jeung maké pungsi Excel nu diwangun-di.

Ngan ngamimitian ngetik ngaran fungsi sanggeus tanda sarua, sarta eta bakal muncul dina rumus intellisense. Ganda-klik dina fungsi, tur anjeun bakal boga etadiasupkeun kana sél. Nangtukeun argumen, ketik kurung panutup, pencét Enter , sarta rumus anjeun geus réngsé.

Contona, pikeun mupus duplikat kecap dipisahkeun ku koma jeung spasi tina A2, lebetkeun rumus di handap ieu dina B2, teras sered ka handap ngaliwatan saloba sél anu diperlukeun:

=RemoveDupeWords(A2, ", ")

Hasilna, anjeun bakal boga daptar kecap unik atawa substrings dipisahkeun ku koma sareng spasi :

Upami anjeun langkung milih daptar anu dipisahkeun koma, teras paké ngan koma pikeun pangwatesan :

=RemoveDupeWords(A2, ",")

Upami data sumber anjeun dipisahkeun ku spasi , argumen kadua kedah " " atanapi dileungitkeun:

=RemoveDupeWords(A2)

Sapertos pungsi Excel anu sanés, UDF urang otomatis ngitung deui nalika data sumberna robih, janten hasil anjeun bakal salawasna diropéa.

Makro VBA pikeun mupus duplikat téks ti sababaraha sél sakaligus

Lamun anjeun néangan miceun téks ulang tina sababaraha sél sakaligus, mangka anjeun bisa nelepon ka RemoveDupeWords pungsi fro m dina hiji makro. Dina hal ieu, delimiter anu hardcoded, sarta anjeun kudu ngamutahirkeun kodeu makro urang unggal waktos delimiter robah. Alternatipna, Anjeun bisa nulis sababaraha variasi kode pikeun delimiters paling umum, sebutkeun, spasi, koma, atawa koma jeung spasi, sarta méré macros Anjeun ngaran bermakna, misalna. RemoveDupesDelimSpace .

Kode makro nyaéta kieu:

Sub Publik RemoveDupeWords2() Taram sél Salaku Rentang Pikeun Unggal sél Dina Application.Selection cell.Value = RemoveDupeWords(cell.Value, "," ) Next End Sub

Dina kode di luhur, delimiter mangrupa koma jeung spasi . Pikeun ngagunakeun pangwatesan anu béda, ganti "," ku karakter séjén dina baris kode ieu:

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

Catetan. Pikeun makro tiasa dianggo, kode na sareng kode fungsi RemoveDupeWords kedah disimpen dina modul anu sami.

Kumaha cara ngagunakeun makro

Selapkeun kode makro dina buku kerja anjeun nyalira atanapi buka buku kerja conto kami nganggo kode, teras laksanakeun léngkah-léngkah ieu pikeun ngajalankeun makro.

1. Pilih rentang sél nu Anjeun hoyong cabut téks ulang.
2. Pencét Alt + F8 pikeun muka kotak dialog Makro .
3. Dina daptar makro, pilih RemoveDupeWords2 .
4. Klik Run .

Pikeun leuwih jéntré, mangga tingali Kumaha ngajalankeun makro dina Excel.

Catetan. Kusabab tindakan makro teu tiasa dibolaykeun , kami nyarankeun pisan nyimpen buku kerja anjeun sateuacan nganggo makro. Ku cara ieu, upami aya anu lepat, anjeun tiasa nutup sareng muka deui buku kerja, sareng anjeun bakal balik deui ka tempat anjeun. Atanapi anjeun tiasa ngadamel salinan lembar kerja anu tiasa kapangaruhan ku makro.

Kumaha carana miceun duplikat karakter dina sél

Masalah : Anjeun gaduh sababaraha kajadian nu karakter nu sarua dina sél, bari unggalsél ngan ukur ngandung hiji kajadian tina karakter nu tangtu.

Solusi : fungsi husus nu ditetepkeun ku pamaké atawa makro VBA.

Pungsi nu ditetepkeun ku pamaké pikeun mupus karakter nu diulang deui

Pikeun miceun karakter duplikat dina sél ngan ukur nyimpen kajadian kahiji, anjeun tiasa nganggo pungsi nu ditetepkeun ku pamaké ieu, ngaranna RemoveDupeChars :

Fungsi RemoveDupeChars (téks Salaku String) Salaku String Taram kamus Salaku Obyék Taram char Salaku string Taram hasilna Salaku String Set kamus = CreateObject ( "Scripting.Dictionary") Pikeun i = 1 Pikeun Len (téks) char = Mid (téks, i, 1 ) Lamun Teu dictionary.Exists (char) Lajeng kamus.Tambahkeun char, Euweuh hasil = hasil & amp; char End If Next RemoveDupeChars = result Set dictionary = Euweuh End Function

Pikeun nyelapkeun kodeu pungsi kana buku kerja anjeun, léngkah-léngkahna persis sarua jeung conto saméméhna.

RemoveDupeChars function syntax

Sintaksis fungsi khusus ieu saderhana pisan - ngan ukur hiji argumen anu diperyogikeun:

RemoveDupeChars(text)

Dimana text mangrupikeun string atanapi sél anu dipikahoyong. pikeun miceun karakter duplikat.

Pungsina sénsitip-huruf leutik sareng ngarawat hurup leutik sareng hurup ageung salaku karakter anu béda.

Kumaha ngagunakeun fungsi RemoveDupeChars

Sadaya anu kami nyarioskeun ngeunaan panggunaan RemoveDupeWords leres pikeun RemoveDupeChars . Ku kituna, tanpa inditteuing kana teori, hayu urang langsung ka conto.

Pikeun mupus karakter duplikat ti kolom A dimimitian ku A2, lebetkeun rumus ieu dina B2 teras salin ka handap:

=RemoveDupeChars(A2)

Sakumaha anjeun tiasa tingali dina gambar di handap ieu, fungsi éta suksés nanganan jinis karakter anu béda-béda kalebet hurup, angka sareng simbol khusus:

Tip. Upami karakter anjeun dipisahkeun ku sababaraha wates sapertos spasi, koma atanapi hyphen, teras nganggo fungsi RemoveDupeWords sapertos anu dipidangkeun dina conto sateuacana.

VBA makro pikeun miceun karakter nu sarua tina sél

Siga RemoveDupeWords , fungsi RemoveDupeChars ogé bisa disebut ti jero makro:

Public Sub RemoveDupeChars2() Taram sél Salaku Rentang Pikeun Unggal sél Dina Application.Selection cell.Value = RemoveDupeChars(cell.Value) Next End Sub

Kusabab UDF ieu teu make delimiter nanaon, anjeun teu kudu nyieun sagala pangaluyuan dina kodeu.

Catetan. Pikeun makro tiasa dianggo, kode na sareng kode RemoveDupeChars UDF kedah disimpen dina modul anu sami dina redaktur VBA.

Kumaha cara ngagunakeun makro

Anggap anjeun parantos nyelapkeun kode makro dina buku kerja anjeun atanapi muka buku kerja conto kami anu ngandung kodeu, jalankeun makro ku cara kieu.

1. Pilih rentang sél nu Anjeun hoyong cabut karakter ulang.
2. Pencét Alt + F8 pikeun muka dialog Makro kotak.
3. Dina daptar makro, pilih RemoveDupeChars2 .
4. Klik Run .

Hapus duplikat substrings nganggo Ultimate Suite

Dina awal tutorial ieu, disebatkeun yen Microsoft Excel teu gaduh fitur inbuilt pikeun miceun duplikat dina sél. Tapi Ultimate Suite kami henteu!

Anjeun tiasa mendakanana dina menu turun-handap Duplicate Remover dina tab Ablebits Data , dina Dedupe golongan. Lamun pilihan Hapus Duplikat Substrings teu nembongan dina Excel anjeun, pastikeun anjeun geus dipasang versi panganyarna tina Ultimate Suite (percobaan gratis bisa diundeur di dieu).

Pikeun miceun kecap atawa téks nu diulang-ulang tina sababaraha sél dina 5 detik (sadetik per lengkah :), ieu nu kudu dipigawé:

1. Pilih data sumber Anjeun tur ngajalankeun Leupaskeun alat Duplikat Substrings .
2. Sebutkeun pangwatesan .
3. Tetepkeun naha bakal nganggap wates padeukeut salaku hiji (standar).
4. Pilih naha rék ngalakukeun sénsitip-huruf atawa henteu-hurup pilarian.
5. Klik Hapus .

Rengse! Henteu nganggo VBA atanapi rumus, mung hasil anu gancang sareng akurat.

Pikeun langkung seueur ngeunaan tambihan anu saé ieu, mangga buka halaman utama na. Atanapi langkung saé, unduh vérsi évaluasi di handap sareng cobian!

Kitu cara ngahapus duplikat téks dina sél.Hatur nuhun pikeun maca sareng ngarepkeun anjeun tiasa ningali dina blog kami minggu payun!

Sadia undeuran

Conto pikeun ngahapus duplikat dina sél (file .xlsm)

Ultimate Suite 14 -day vérsi fungsi pinuh (file .exe)