Přejít k hlavnímu obsahu

Jak najít duplicitní nebo jedinečné hodnoty ve dvou sloupcích ze dvou listů?

Možná porovnat dva rozsahy ve stejném listu a zjistit, zda duplicitní nebo jedinečné hodnoty je pro většinu z vás snadné, ale pokud jsou tyto dva rozsahy ve dvou různých pracovních listech, jak můžete rychle zjistit duplicitní a jedinečné hodnoty v těchto dvou rozsazích? ? Tento výukový program vám představí několik rychlých řezů.

Porovnejte dva stejné sloupce záhlaví ve dvou tabulkách s vzorcem v aplikaci Excel

Porovnejte dva rozsahy ve dvou tabulkách s VBA

Porovnejte dva rozsahy ve dvou tabulkách s Kutools pro Excel


šipka modrá pravá bublina Porovnejte dva stejné sloupce záhlaví ve dvou tabulkách s vzorcem v aplikaci Excel

Pomocí vzorce v aplikaci Excel můžete porovnat dva stejné sloupce záhlaví, jak je uvedeno níže, na různých listech a najít duplicitní a jedinečné hodnoty:

1. Zadáním tohoto vzorce = COUNTIF (List1! $ A: $ A, A1) v prázdné buňce, která sousedí s rozsahem v listu 3. Viz screenshot:

2. lis vstoupit tlačítko na klávesnici a přetažením úchytu výplně vyplňte rozsah, který chcete porovnat s rozsahem v listu 1. (Nula čísla znamená duplicitní hodnoty ve dvou rozsazích a číslo 1 znamená jedinečné hodnoty v listu 3, ale ne v listu 1)

Tip:

1. Tento vzorec může porovnávat pouze dva sloupce se stejnou hlavičkou ve dvou tabulkách.

2. Pokud chcete najít jedinečné hodnoty v Listu1, ale ne v Listu3, musíte zadat výše uvedený vzorec =COUNTIF (list 3! $ A: $ A, A1) do Listu 1.


šipka modrá pravá bublina Porovnejte dva rozsahy ve dvou tabulkách s VBA

1. Držet ALT a stiskněte tlačítko F11 na klávesnici otevřete a Microsoft Visual Basic pro aplikaci okno.

2. cvaknutí Vložit > Modula zkopírujte VBA do modulu.

VBA: Porovnejte dva rozsahy ve dvou tabulkách

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 ) Nastavit WorkRng2 = Application.InputBox ("Rozsah B:", xTitleId, Typ: = 8) Pro každý Rng1 v WorkRng1 rng1Value = Rng1.Value Pro každý Rng2 v WorkRng2 If rng1Value = Rng2.Value Pak Rng1.Interior.Color = VBA .RGB (255, 0, 0) Exit For End If Next Next End Sub

3. cvaknutí Běh nebo stiskněte tlačítko F5 spustit VBA.

4. Na obrazovce se zobrazí dialogové okno a měli byste vybrat jeden rozsah, se kterým chcete porovnat. Viz screenshot:

5. cvaknutí Ok a zobrazí se další dialog pro výběr druhého rozsahu. Viz screenshot:

6. cvaknutí Oka duplicitní hodnoty v rozsahu A a v rozsahu B jsou zvýrazněny červeným pozadím v rozsahu A. Viz screenshot:

Tipy: S tímto VBA můžete porovnat dva rozsahy ve stejném i v různých pracovních listech.


šipka modrá pravá bublina Porovnejte dva rozsahy ve dvou tabulkách s Kutools pro Excel

Pokud vám vzorec není vhodný a pro vás je VBA obtížný, můžete to zkusit Kutools pro Excel's Porovnat rozsahy funkce.

Kutools pro Excel obsahuje více než 300 užitečných nástrojů aplikace Excel. Zdarma to můžete vyzkoušet bez omezení do 30 dnů. Získat nyní

Prosím, aplikujte Porovnat rozsahy funkci kliknutím Kutools > Porovnat rozsahy. Viz snímek obrazovky:

Porovnejte se dvěma sloupci v různých listech:

1. cvaknutí Kutools > Porovnat rozsahy, na obrazovce se zobrazí dialog. Viz screenshot:

2. Určete rozsahy a pravidla, postupujte následovně:

Ponechat Porovnání ve stejném rozsahu zrušte zaškrtnutí a kliknutím vyberte dva rozsahy Rozsah A a Rozsah B, viz screenshot:

V rozevíracím seznamu v části Pravidla zadejte stejné hodnoty nebo různé hodnoty, které chcete najít;

3. cvaknutí Ok. Vyskakovací dialogové okno vám řekne, že jsou vybrány stejné hodnoty.

4. cvaknutí Ok v rozbalovacím dialogovém okně. V rozsahu A jsou vybrány stejné hodnoty mezi dvěma rozsahy.

Porovnejte dva rozsahy v roztažených listech

Pokud máte dva rozsahy ve dvou tabulkách, jak je uvedeno níže, a chcete je porovnat a zjistit různé hodnoty, můžete postupovat následovně:

1. cvaknutí Kutools > Porovnat rozsahy, na obrazovce se zobrazí dialog.

2. Určete rozsahy a pravidla, postupujte následovně:

Dovolená Porovnejte ve stejném rozsahu zrušte zaškrtnutí a kliknutím vyberte dva rozsahy Rozsah A a Rozsah B;

V rozevíracím seznamu v části Pravidla zadejte různé hodnoty, které chcete najít;

Zkontrolujte, zda má moje data záhlaví in možnosti sekce;

3. cvaknutí Ok. Vyskakovací dialogové okno vám řekne, že jsou vybrány stejné hodnoty.

4. cvaknutí Ok ve vyskakovacím dialogovém okně. Jsou vybrány různé hodnoty v rozsahu A. Viz screenshot:

Pokud chcete zjistit různé hodnoty v rozsahu B listu2, musíte tyto dva rozsahy vyměnit.

Porovnat rozsahy Funkce také může porovnávat rozsahy na stejném listu. Klikněte sem a dozvíte se více o Porovnání rozsahů.


Relativní články:

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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?
This comment was minimized by the moderator on the site
Hi, How can I find out the word difference between two columns in excel
This comment was minimized by the moderator on the site
How to Find out same names from different columns. If one column contains 2000 records and second one contains 20000 records, so how to compare and differentiate that names? Thanks,
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations