Ënnert de Standard Microsoft Excel Tools ginn et vill verschidde Weeër fir Duplikate mat Faarf ze markéieren. Deen einfachsten a séierste Wee ass mat bedingt Formatéierung. Fir dëst ze maachen, wielt just eng Rei vun Zellen a wielt op der Tab Home - Bedingungsvoll Formatéierung - Zell Selektiounsregelen - Duplizéiert Wäerter (Home - Conditional Formatting - Highlight Zellen Regelen - Duplizéiert Wäerter):
Wéi och ëmmer, an dësem Fall wäert d'Füllfaarf vun all Zellen d'selwecht sinn, dh et signaliséiert einfach datt d'Element Duplikate soss anzwousch am Beräich huet, awer näischt hëlleft fir se ze fannen. Dir kënnt d'Situatioun mat engem klenge Makro fixéieren, deen all Paar (oder méi) widderholl Duplikate mat senger eegener Faarf fëllt:
Sou vill méi kloer, richteg? Natierlech, mat enger grousser Zuel vu Widderhuelungszellen, wäert et schwéier sinn tëscht Nuancen z'ënnerscheeden, awer mat enger relativ klenger Unzuel vun Duplikaten wäert dës Methode perfekt funktionnéieren.
Fir dëse Macro ze benotzen, dréckt d'Tastatur Ofkiirzung Alt + F11 oder Knäppchen visuell Grondleegend Reiter programméieren, en neien eidele Modul iwwer de Menü setzen Insert - Modul a kopéiert de Code vun dësem Makro do:
Sub DuplicatesColoring() Dim Dupes() 'Deklaréiert eng Array fir Duplikater ze späicheren ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Ewechzehuelen d'Fëllung wann i = 3 Fir All Zell An Selektioun If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Dann Fir k = LBound(Dupes) To UBound(Dupes) 'wann d'Zelle schonn an der Array vun Duplikaten ass, fëllt If Dupes(k, 1) = Zell aus. Dann Zell.Interieur. ColorIndex = Dupes(k, 2) Nächst k 'wann d'Zell en Duplikat enthält, awer nach net an der Array, füügt se an d'Array derbäi a fëllt se Wann cell.Interior.ColorIndex = -4142 Dann cell.Interior.ColorIndex = i Dupes(i, 1) = cell.Value Dupes(i, 2) = ii = i + 1 End If End If Next cell End Sub
Elo kënnt Dir all Gamme mat Daten op der Blat auswielen an eise Macro mat der Tastatur Ofkiirzung lafen Alt + F8 oder duerch de Knäppchen macros (Makroen) Reiter Entwéckler (Entwéckler).
- Highlight Duplikate mat Faarf
- Wat sinn Makroen, wou een Makrocode an Visual Basic setzen, wéi se lafen
- Wéi zielt d'Zuel vun eenzegaartege Wäerter an enger bestëmmter Palette vun Zellen