Przejdź do głównej zawartości

Jak znaleźć zduplikowane lub unikalne wartości w dwóch kolumnach dwóch arkuszy?

Autor: Sun Ostatnia modyfikacja: 2013-09-17

Może porównać dwa zakresy w tym samym arkuszu i dowiedzieć się, że zduplikowane lub unikalne wartości są łatwe dla większości z was, ale jeśli dwa zakresy znajdują się w dwóch różnych arkuszach, jak można szybko znaleźć zduplikowane i unikalne wartości w tych dwóch zakresach ? Ten samouczek wprowadzi kilka szybkich zmian.

Porównaj dwie takie same kolumny nagłówków w dwóch arkuszach kalkulacyjnych z formułą w programie Excel

Porównaj dwa zakresy w dwóch arkuszach kalkulacyjnych z VBA

Porównaj dwa zakresy w dwóch arkuszach kalkulacyjnych z Kutools for Excel


strzałka niebieski prawy bąbelek Porównaj dwie takie same kolumny nagłówków w dwóch arkuszach kalkulacyjnych z formułą w programie Excel

Dzięki formule w programie Excel możesz porównać dwie takie same kolumny nagłówka, jak pokazano poniżej, na różnych arkuszach i znaleźć zduplikowane i unikalne wartości:

1. Wpisanie tej formuły = LICZ.JEŻELI (Arkusz1! $ A: $ A, A1) w pustej komórce, która sąsiaduje z zakresem w Arkuszu 3. Zobacz zrzut ekranu:

2. naciśnij Wchodzę na klawiaturze, a następnie przeciągnij uchwyt wypełniania, aby wypełnić zakres, który chcesz porównać z zakresem w Arkuszu 1. (Liczba Zero oznacza zduplikowane wartości w dwóch zakresach, a Numer 1 oznacza unikalne wartości w Arkuszu3, ale nie w Arkuszu1)

Porady:

Ta formuła może porównać tylko dwie kolumny z tym samym nagłówkiem w dwóch arkuszach kalkulacyjnych.

2. Jeśli chcesz znaleźć unikalne wartości w Sheet1, ale nie w Sheet3, musisz wprowadzić powyższą formułę =COUNTIF (Sheet3! $ A: $ A, A1) do Sheet1.


strzałka niebieski prawy bąbelek Porównaj dwa zakresy w dwóch arkuszach kalkulacyjnych z VBA

1. Utrzymać ALT i naciśnij F11 na klawiaturze, aby otworzyć plik Microsoft Visual Basic dla aplikacji okno.

2. kliknij wstawka > Modułi skopiuj VBA do modułu.

VBA: porównaj dwa zakresy w dwóch arkuszach kalkulacyjnych

Sub CompareRanges () 'Update 20130815 Dim WorkRng1 As Range, WorkRng2 As Range, Rng1 As Range, Rng2 As Range xTitleId = "KutoolsforExcel" Set WorkRng1 = Application.InputBox ("Range A:", xTitleId, "", Type: = 8 ) Ustaw WorkRng2 = Application.InputBox ("Range B:", xTitleId, Type: = 8) For each Rng1 In WorkRng1 rng1Value = Rng1.Value For each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA .RGB (255, 0, 0) Zakończ na koniec, jeśli następny następny koniec Sub

3. kliknij run lub naciśnij F5 do uruchomienia VBA.

4. Na ekranie zostanie wyświetlone okno dialogowe, w którym należy wybrać zakres, z którym chcesz porównać. Zobacz zrzut ekranu:

5. kliknij Ok i zostanie wyświetlone inne okno dialogowe, w którym można wybrać drugi zakres. Zobacz zrzut ekranu:

6. kliknij Ok, a zduplikowane wartości zarówno w Zakresie A, jak iw Zakresie B są wyróżnione czerwonym tłem w Zakresie A. Zobacz zrzut ekranu:

Wskazówki: dzięki temu VBA możesz porównać dwa zakresy zarówno w tym samym, jak i w różnych arkuszach.


strzałka niebieski prawy bąbelek Porównaj dwa zakresy w dwóch arkuszach kalkulacyjnych z Kutools for Excel

Jeśli formuła nie jest dla Ciebie wygodna, a VBA jest dla Ciebie trudna, możesz spróbować Kutools dla programu Excel's Porównaj zakresy funkcja.

Kutools dla programu Excel zawiera ponad 300 przydatnych narzędzi programu Excel. Bezpłatne wypróbowanie bez ograniczeń w ciągu 30 dni. Pobierz teraz

Proszę złożyć wniosek Porównaj zakresy funkcji, klikając Kutools > Porównaj zakresy. Zobacz zrzut ekranu:

Porównaj z dwiema kolumnami w różnych arkuszach:

1. kliknij Kutools > Porównaj zakresy, na ekranie zostanie wyświetlone okno dialogowe. Zobacz zrzut ekranu:

2. Określ zakresy i reguły, wykonaj następujące czynności:

Pozostaw Porównaj w tym samym zakresie usuń zaznaczenie i wybierz dwa zakresy, klikając Zakres A i Zakres Bzobacz zrzut ekranu:

Określ te same wartości lub różne wartości, które chcesz znaleźć, w polu rozwijanym w obszarze Reguły;

3. kliknij Ok. Wyskakujące okno dialogowe informuje o wybraniu tych samych wartości.

4. kliknij Ok w wyskakującym oknie dialogowym. Te same wartości między dwoma zakresami są wybierane w zakresie A.

Porównaj dwa zakresy w arkuszach kalkulacyjnych

Jeśli masz dwa zakresy w dwóch arkuszach kalkulacyjnych, jak pokazano poniżej, i chcesz je porównać i znaleźć różne wartości, możesz wykonać następujące czynności:

1. kliknij Kutools > Porównaj zakresy, na ekranie zostanie wyświetlone okno dialogowe.

2. Określ zakresy i reguły, wykonaj następujące czynności:

Opuść Porównaj w tym samym zakresie usuń zaznaczenie i wybierz dwa zakresy, klikając Zakres A i Zakres B;

Określ różne wartości, które chcesz znaleźć, w polu rozwijanym w obszarze Reguły;

Sprawdź, czy Moje dane mają nagłówki in Opcje Sekcja;

3. kliknij Ok. Wyskakujące okno dialogowe informuje o wybraniu tych samych wartości.

4. kliknij Ok w wyskakującym oknie dialogowym. Wybrane są różne wartości w zakresie A. Zobacz zrzut ekranu:

Jeśli chcesz poznać różne wartości w zakresie B arkusza 2, musisz zamienić dwa zakresy.

Porównaj zakresy funkcja może również porównywać zakresy w tym samym arkuszu. Kliknij tutaj, aby dowiedzieć się więcej na temat porównania zakresów.


Względne artykuły:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis Projektu


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is good. It highlights only one sheet duplicate item. But I need to highlight both the sheet where duplicate items are
This comment was minimized by the moderator on the site
You need to add a second command inside the THEN statement.


Try this;

Sub CompareRanges()
'Update 20130815
Dim WorkRng1 As Range, WorkRng2 As Range, Rng1 As Range, Rng2 As Range
xTitleId = "Enter Range for Comparison"
Set WorkRng1 = Application.InputBox("Range A:", xTitleId, "", Type:=8)
Set WorkRng2 = Application.InputBox("Range B:", xTitleId, Type:=8)
For Each Rng1 In WorkRng1
rng1Value = Rng1.Value
For Each Rng2 In WorkRng2
If rng1Value = Rng2.Value Then
Rng1.Interior.Color = VBA.RGB(255, 0, 0)
Rng2.Interior.Color = VBA.RGB(255, 0, 0)
Exit For
End If
Next
Next
End Sub
This comment was minimized by the moderator on the site
Hi,morning, I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range. I have tried the following code: Sub Compare3() Dim WorkRng1 As Range Dim WorkRng2 As Range Dim Rng1 As Range Dim Rng2 As Range Dim DataRange As Range Dim ws As Worksheet xTitleId = "Buscar coincidencias" Set WorkRng1 = Application.InputBox("Seleccionar equipos con cambios:", xTitleId, "", Type:=8) Set WorkRng2 = Range("B1" & LastRow) For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each ws In ActiveWorkbook.Worksheets For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA.RGB(200, 250, 200) Exit For End If Next Next Next End Sub But it does not make any changes when there are matches.... Could someone help?? Many thanks, Have a good day
This comment was minimized by the moderator on the site
Hi, I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range. I have tried the following code: Sub Compare3() Dim WorkRng1 As Range Dim WorkRng2 As Range Dim Rng1 As Range Dim Rng2 As Range Dim DataRange As Range Dim ws As Worksheet xTitleId = "Buscar coincidencias" Set WorkRng1 = Application.InputBox("Seleccionar equipos con cambios:", xTitleId, "", Type:=8) Set WorkRng2 = Range("B1" & LastRow) For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each ws In ActiveWorkbook.Worksheets For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA.RGB(200, 250, 200) Exit For End If Next Next Next End Sub But it does not make any changes when there are matches.... Could someone help?? Many thanks, Have a good day
This comment was minimized by the moderator on the site
Hi, the code is working but the entire range is getting highlighted even if there are no duplicate values. Help!
This comment was minimized by the moderator on the site
how to compare datas between two different excel sheets?
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations