Jak porównać dane w dwóch kolumnach w celu znalezienia duplikatów w programie Excel

Korzystając z poniższych metod, można porównać dane w dwóch kolumnach arkusza programu Microsoft Excel i znaleźć zduplikowane wpisy. 

Metoda 1: Używanie formuły arkusza

  1. Uruchom program Excel.

  2. W nowym arkuszu wprowadź następujące dane w postaci przykładu (pozostaw pustą kolumnę B):

    A

    B

    C

    1

    1

    3

    2

    2

    5

    3

    3

    8

    4

    4

    2

    5

    5

    0

  3. Wpisz następującą formułę w komórce B1:

    =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)

  4. Zaznacz komórkę B1 to B5.

  5. W programie Excel 2007 i nowszych wersjach programu Excel wybierz pozycję Wypełnij w grupie Edytowanie , a następnie wybierz pozycję w dół.

    Zduplikowane numery są wyświetlane w kolumnie B, tak 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: korzystanie z makra w języku Visual Basic

Ostrzeżenie: Firma Microsoft dostarcza przykładów programistycznych tylko dla ilustracji, bez żadnych gwarancji wyrażonych wprost lub domyślnie. Dotyczy to, ale nie jest ograniczona do, domniemanych gwarancji dotyczących przydatności handlowej lub przydatności do określonego celu. W tym artykule przyjęto założenie, że znasz język programowania, który jest prezentowany, oraz narzędzia używane do tworzenia i debugowania procedur. Inżynierowie pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu funkcji konkretnej procedury. Nie będą one jednak w stanie modyfikować tych przykładów, aby zapewnić dodatkową funkcjonalność lub konstruować procedury w celu spełnienia określonych wymagań.

Aby porównać dane w dwóch kolumnach za pomocą makra języka Visual Basic, wykonaj czynności podane w poniższym przykładzie:

  1. Uruchom program Excel.

  2. Naciśnij klawisze ALT + F11, aby uruchomić Edytor Visual Basic.

  3. W menu Wstaw wybierz pozycję moduł.

  4. Wprowadź następujący kod 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
  5. Naciśnij klawisze ALT + F11, aby wrócić do programu Excel.

    1. Wprowadź następujące dane w postaci przykładu (pozostaw pustą kolumnę B):
       

      A

      B

      C

      1

      1

      3

      2

      2

      5

      3

      3

      8

      4

      4

      2

      5

      5

      0

  6. Zaznacz komórki od a1 do A5.

  7. W programie Excel 2007 i nowszych wersjach programu Excel wybierz kartę deweloper , a następnie w grupie kod wybierz pozycję makra .

    Uwaga: Jeśli nie widzisz karty deweloper , może być konieczne jej włączenie. W tym celu wybierz pozycję File > pliku Opcje > Dostosowywanie wstążki, a następnie wybierz kartę deweloper w polu Dostosowywanie po prawej stronie.

  8. Kliknij pozycję Find_matches, a następnie kliknij pozycję Uruchom.

    Zduplikowane numery 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

Uwaga:  Ta strona została przetłumaczona automatycznie i może zawierać błędy gramatyczne lub nieścisłości. Chcemy, aby ta zawartość była dla Ciebie przydatna. Czy możesz dać nam znać, czy te informacje były pomocne? Oto angielskojęzyczny artykuł do wglądu.

Rozwijaj umiejętności związane z pakietem Office
Poznaj szkolenia
Uzyskuj nowe funkcje w pierwszej kolejności
Dołącz do niejawnych testerów pakietu Office

Czy te informacje były pomocne?

Dziękujemy za opinię!

Dziękujemy za opinię! Wygląda na to, że połączenie Cię z jednym z naszych agentów pomocy technicznej pakietu Office może być pomocne.

×