Wśród standardowych narzędzi Microsoft Excel istnieje wiele różnych sposobów wyróżniania duplikatów kolorem. Najłatwiejszym i najszybszym sposobem jest formatowanie warunkowe. Aby to zrobić, po prostu zaznacz zakres komórek i wybierz na karcie Strona główna — Formatowanie warunkowe — Reguły wyboru komórek — Zduplikowane wartości (Strona główna — Formatowanie warunkowe — Reguły podświetlania komórek — Zduplikowane wartości):
Jednak w tym przypadku kolor wypełnienia wszystkich komórek będzie taki sam, tzn. po prostu sygnalizuje, że element ma duplikaty w innym miejscu w zakresie, ale nie pomaga w ich odnalezieniu. Możesz naprawić sytuację za pomocą małego makra, które wypełni każdą parę (lub więcej) powtarzających się duplikatów własnym kolorem:
O wiele jaśniejsze, prawda? Oczywiście przy dużej liczbie powtarzających się komórek trudno będzie rozróżnić odcienie, ale przy stosunkowo niewielkiej liczbie duplikatów ta metoda sprawdzi się doskonale.
Aby użyć tego makra, naciśnij skrót klawiaturowy Alt + F11 lub przycisk Visual Basic Zakładka Deweloper, włóż nowy pusty moduł za pomocą menu Wstaw – moduł i skopiuj tam kod tego makra:
Sub DuplicatesColoring() Dim Dupes() 'Zadeklaruj tablicę do przechowywania duplikatów ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Usuń wypełnienie, jeśli i = 3 For Each cell In Selection If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'jeśli komórka znajduje się już w tablicy duplikatów, wypełnij If Dupes(k, 1) = cell Następnie komórka.Wnętrze. ColorIndex = Dupes(k, 2) Next k 'jeśli komórka zawiera duplikat, ale jeszcze nie ma go w tablicy, dodaj go do tablicy i wypełnij If cell.Interior.ColorIndex = -4142 Then cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 End If End If Następna komórka End Sub
Teraz możesz wybrać dowolny zakres z danymi na arkuszu i uruchomić nasze makro za pomocą skrótu klawiaturowego Alt + F8 lub przez przycisk Makra (Makra) Zakładka wywoływacz (Deweloper).
- Wyróżnij duplikaty kolorem
- Czym są makra, gdzie wstawić kod makr w Visual Basic, jak je uruchamiać
- Jak policzyć liczbę unikalnych wartości w danym zakresie komórek?