Daptar eusi

Di antara alat Microsoft Excel standar, aya seueur cara pikeun nyorot duplikat nganggo warna. Cara panggampangna sareng panggancangna nyaéta kalayan pormat kondisional. Jang ngalampahkeun ieu, ngan pilih sauntuyan sél tur pilih dina tab Imah — Formatting Kondisi — Aturan Pamilihan Sél — Nilai Duplikat (Imah — Formatting Kondisi — Aturan Sél Sorot — Nilai Duplikat):

Panerangan ganda tina duplikat

Nanging, dina hal ieu, warna eusian sadaya sél bakal sami, nyaéta ngan ukur nunjukkeun yén unsur éta gaduh duplikat di tempat sanés dina rentang, tapi henteu ngalakukeun nanaon pikeun ngabantosanana. Anjeun tiasa ngalereskeun kaayaan ku makro leutik anu bakal ngeusian unggal pasangan (atanapi langkung) duplikat anu diulang ku warna sorangan:

Panerangan ganda tina duplikat

Janten langkung jelas, leres? Tangtosna, kalayan sajumlah ageung sél ulangan, bakal sesah ngabédakeun antara nuansa, tapi kalayan jumlah duplikat anu rélatif leutik, metode ieu bakal jalan sampurna.

Pikeun ngagunakeun makro ieu, pencét potong kompas keyboard Alt + F11 atawa tombol visual Basic tab pamekar, Selapkeun modul kosong anyar via menu nu Selapkeun - Modul sareng salin kodeu makro ieu di dinya:

Sub DuplicatesColoring() Dim Dupes() 'Deklarasikeun susunan pikeun nyimpen duplikat ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Leupaskeun eusian lamun i = 3 Pikeun Unggal sél Dina Selection If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'lamun sél geus aya dina susunan duplikat, eusian Lamun Dupes(k, 1) = cell Tuluy sélér.Interior. ColorIndex = Dupes(k, 2) Salajengna k 'lamun sél ngandung duplikat, tapi teu acan di Asép Sunandar Sunarya, tambahkeun ka Asép Sunandar Sunarya jeung eusian eta Mun cell.Interior.ColorIndex = -4142 Lajeng cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 Tungtung Lamun Tungtung Lamun Salajengna sél Tungtung Sub  

Ayeuna anjeun tiasa milih rentang naon waé sareng data dina lambaran sareng ngajalankeun makro kami nganggo potong kompas keyboard Alt + F8 atawa ngaliwatan tombol Macros (Macros) tab pamekar (Pamekar).

  • Sorot duplikat sareng warna
  • Naon macros, dimana nyelapkeun kode makro dina Visual Basic, kumaha ngajalankeunana
  • Kumaha ngitung jumlah nilai unik dina rentang sél anu ditangtukeun

Leave a Reply