Jak znaleźć duplikaty w Excel Visual Basic

Znajdź duplikaty w Microsoft Excel 2010.

Krok 1

Otwórz plik Microsoft Excel 2010 zawierający dane, które chcesz sprawdzić w poszukiwaniu duplikatów. Po otwarciu arkusza kalkulacyjnego naciśnij klawisze "Alt" i "F11", aby załadować konsolę VBA.

Krok 2

Kliknij arkusz kalkulacyjny po lewej stronie ekranu VBA. Przesuń mysz nad "Wstaw" i wybierz opcję "Moduł". Kliknij dwukrotnie nowy moduł, który pojawia się kilka linii poniżej arkusza kalkulacyjnego.

Krok 3

Umieść kursor w pustym miejscu po prawej stronie ekranu. Napisz "Sub Dupecheck ()" i naciśnij Enter. VBA automatycznie wprowadzi dla ciebie polecenie "End Sub".

Krok 4

Umieść kursor na linii pomiędzy poleceniami "Sub" i "End Sub". Wprowadź następujące wiersze kodu:

Dim x As Long Dim endrow As Long endrow = Range ("A50000") Koniec (xlUp) .Row

Ten kod tworzy dwie zmienne "EndRow" i "x", a następnie ustawia wartość "EndRow". Ten kod przeszuka 50 tysięcy wierszy w jednej kolumnie, ale jeśli chcesz przeszukać więcej linii, zwiększa się z 50 tysięcy do dowolnej liczby. Ten kod ma również wyglądać w kolumnie "A", ale wystarczy zmienić "A" na dowolną literę w kolumnie, której potrzebujesz.

Krok 5

Ustaw kursor na następującym wierszu i wpisz następujący kod:

Dla x = endrow Do 1 kroku -1 Jeśli Application.WorksheetFunction.CountIf (Zakres ("A1: A" i x), Zakres ("A" i x). Tekst)> 1 Następnie Zakres ("A" i x). Interior.Color = RGB (200, 160, 35) Zakończ Jeśli następne x

Jest to serce kodu, które przeszukuje każdą komórkę i określa, czy identyczna komórka istnieje ponad nią. Jeśli znajdzie duplikat, zmieni kolor komórki na dole komórki. Możesz zmienić wszystkie wystąpienia "A", jeśli pracujesz w innej kolumnie. Możesz również zmienić trzy liczby po "Interior.color", aby zmienić kolor, w którym komórka zostanie przekształcona.

Krok 6

Kliknij "x" w prawym górnym rogu ekranu, aby zamknąć konsolę VBA. Kliknij kartę "Programista" u góry ekranu. Znajdź przycisk "Makro" po lewej stronie wstążki i kliknij na niego. Wybierz "Dupecheck" z listy dostępnych makr i kliknij "Uruchom". Excel podświetli teraz każdy duplikat w kolumnie danych.