Możesz użyć następujących metod w celu porównania danych w dwóch kolumnach arkusza Microsoft Excel i znalezienia zduplikowanych wpisów.
Metoda 1. Używanie formuły arkusza
-
Uruchom program Excel.
-
W nowym arkuszu wprowadź następujące dane jako przykład (pozostaw kolumnę B pustą):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
Wprowadź następującą formułę w komórce B1: =JEŻELI(CZY.BŁĄD(PODAJ.POZYCJĘ(A1;$C$1:$C$5;0));"";A1)
-
Zaznacz komórki od B1 do B5.
-
Wybierz pozycję Wypełnij w grupie Edytowanie, a następnie wybierz pozycję W dół. Zduplikowane liczby są wyświetlane w kolumnie B, jak w poniższym przykładzie:
A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
Metoda 2: Używanie makra Języka Visual Basic
Ostrzeżenie: Firma Microsoft udostępnia przykłady programowania wyłącznie w celach ilustracyjnych, bez gwarancji wyrażonej lub dorozumianej. To obejmuje między innymi dorozumiane gwarancje przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że znasz język programowania, który jest demonstrowany, oraz narzędzia, które są używane do tworzenia i debugowania procedur. Inżynierowie pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu funkcjonalności danej procedury. Nie będą jednak modyfikować tych przykładów, aby zapewnić dodatkową funkcjonalność lub konstruować procedur spełniających specyficzne wymagania użytkownika.
Aby porównać dane w dwóch kolumnach za pomocą makra języka Visual Basic, wykonaj kroki opisane w poniższym przykładzie:
-
Uruchom program Excel.
-
Naciśnij klawisze ALT+F11, aby uruchomić edytor Visual Basic.
-
W menu Wstaw wybierz pozycję Moduł.
-
Wprowadź poniższy kod makra w arkuszu modułu:
Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant ' Set CompareRange equal to the range to which you will ' compare the selection. Set CompareRange = Range("C1:C5") ' NOTE: If the compare range is located on another workbook ' or worksheet, use the following syntax. ' Set CompareRange = Workbooks("Book2"). _ ' Worksheets("Sheet2").Range("C1:C5") ' ' Loop through each cell in the selection and compare it to ' each cell in CompareRange. For Each x In Selection For Each y In CompareRange If x = y Then x.Offset(0, 1) = x Next y Next x End Sub -
Naciśnij klawisze ALT+F11, aby powrócić do programu Excel.
-
Wprowadź następujące dane jako przykład (pozostaw kolumnę B pustą):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
Zaznacz komórki od A1 do A5.
-
Wybierz kartę Deweloper, a następnie wybierz pozycję Makra w grupie Kod .
Uwaga: Jeśli nie widzisz karty Deweloper, może być konieczne jej włączenie. W tym celu wybierz pozycję Plik > Opcje > Dostosuj wstążkę, a następnie wybierz kartę Deweloper w polu dostosowywania po prawej stronie.
-
Kliknij przycisk Znajdź dopasowania, a następnie kliknij pozycję Uruchom. Zduplikowane liczby są wyświetlane w kolumnie B. Pasujące liczby zostaną umieszczone obok pierwszej kolumny, jak pokazano poniżej:
A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
