Note: The other languages of the website are Google-translated. Back to English

Jak porovnat dva sloupce a zvýraznit neporovnaná data v aplikaci Excel?

Jak je ukázáno na následujícím snímku obrazovky, můžete pro porovnání dvou sloupců sousedních buněk a zvýraznění neporovnaných dat vyzkoušet metody v článku.

Porovnejte dva sloupce a zvýrazněte neporovnaná data pomocí kódu VBA
Porovnejte dva sloupce a zvýrazněte neporovnaná data pomocí Kutools pro Excel


Porovnejte dva sloupce a zvýrazněte neporovnaná data pomocí kódu VBA

Jako výše uvedený snímek obrazovky porovnáváte data ve sloupci A a sloupci B. Spusťte následující kód VBA a zvýrazněte tak nepřekonatelná data.

1. lis Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte následující kód do okna Kód.

Kód VBA: Porovnejte dva sloupce a zvýrazněte nepřekonatelná data

Sub Dyeware()
    Dim xRg1 As Range
    Dim xRg2 As Range
    Dim xTxt As String
    Dim xCell1 As Range
    Dim xCell2 As Range
    Dim I As Long
    Dim J As Integer
    Dim xLen As Integer
    Dim xDiffs As Boolean
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
lOne:
    Set xRg1 = Application.InputBox("Range A:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg1 Is Nothing Then Exit Sub
    If xRg1.Columns.Count > 1 Or xRg1.Areas.Count > 1 Then
        MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lOne
    End If
lTwo:
    Set xRg2 = Application.InputBox("Range B:", "Kutools for Excel", "", , , , , 8)
    If xRg2 Is Nothing Then Exit Sub
    If xRg2.Columns.Count > 1 Or xRg2.Areas.Count > 1 Then
        MsgBox "Multiple ranges or columns have been selected", vbInformation, "Kutools for Excel"
        GoTo lTwo
    End If
    If xRg1.CountLarge <> xRg2.CountLarge Then
       MsgBox "Two ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
       GoTo lTwo
    End If
    xDiffs = (MsgBox("Click Yes to highlight matched data, click No to highlight unmatched data ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
    Application.ScreenUpdating = False
    xRg2.Interior.ColorIndex = xlNo
    xRg1.Interior.ColorIndex = xlNo
    For I = 1 To xRg1.Count
        Set xCell1 = xRg1.Cells(I)
        Set xCell2 = xRg2.Cells(I)
        If xCell1.Value = xCell2.Value Then
            If Not xDiffs Then
                xCell1.Interior.Color = vbRed
                xCell2.Interior.Color = vbRed
            End If
        Else
            If xDiffs Then
                xCell1.Interior.Color = vbRed
                xCell2.Interior.Color = vbRed
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. zmáčkni F5 klíč ke spuštění kódu. Ve vyskakovacím okně Kutools pro Excel V dialogovém okně vyberte první sloupec, který chcete porovnat, a klikněte na OK knoflík. Viz snímek obrazovky.

4. V dalším vyskakovacím okně vyberte druhý srovnávaný sloupec Kutools pro Excel dialogové okno.

5. V dialogovém okně, jak je ukázáno níže, pro zvýraznění neporovnaných dat klikněte na Ne .

Poté jsou okamžitě zvýrazněna všechna nepřizpůsobená data mezi dvěma sloupci. Viz snímek obrazovky:


Porovnejte dva sloupce a zvýrazněte neporovnaná data pomocí Kutools pro Excel

Pokud chcete jen zjistit a zvýraznit, zda hodnoty buňky ve sloupci existují v jiném sloupci nebo ne, například jak je ukázáno na následujícím obrázku obrazovky, číslo 2 ve sloupci A ve sloupci B neexistuje, můžete zkusit Porovnat rozsahy užitečnost Kutools pro Excel.

1. cvaknutí Kutools > VložitVyberte stejné a různé buňky. Viz snímek obrazovky:

2. V Vyberte stejné a různé buňky dialogové okno, musíte nakonfigurovat takto:

2.1 Vyberte první sloupec s nepřizpůsobenými buňkami, které zvýrazníte v Najděte hodnoty doručená pošta;
2.2 Vyberte druhý sloupec, který chcete porovnat na základě v Podle krabice;
2.3 V Na základě nastavení, vyberte Jediná buňka volba;
2.3 Zvolte Různé hodnoty možnost v Najít sekce;
2.4 V Zpracování výsledků zkontrolujte část Vyplňte backcolor pole a z rozevíracího seznamu zadejte barvu pozadí;
2.5 Klepněte na OK knoflík. Viz screenshot:

3. Poté se objeví dialogové okno, které vám řekne, kolik buněk, které pouze ve sloupci A, ale ne ve sloupci B, kliknete na tlačítko OK a ve sloupci A jsou vybrány všechny odpovídající buňky.

  Pokud chcete mít bezplatnou zkušební verzi (30-den) této utility, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.


Související články:


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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!
officetab dno
Komentáře (5)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
hi
mám nějaké pochybnosti o vba
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Sdělte mi prosím své pochybnosti.
Tento komentář byl moderátorem webu minimalizován
Ahoj, je to úžasné a velmi užitečné!!!!!!!!

O tom také pochybuji. V 'A1' mám text jako 'Hi Muž“ a v „B1“ mám text jako „Ha Muž'. Takže když spustím Macrona, potřebuji výsledek jako v B1 'Ha Muž' ("a" pouze by měl být zvýrazněn a ostatní text by měl být normální).

Prosím o vyřešení tohoto problému, brácho!!!
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Kód VBA v níže uvedeném článku vám může pomoci. Následujte prosím odkaz.
Jak porovnat dva řetězce pro podobnost nebo zvýraznění rozdílů v aplikaci Excel?
https://www.extendoffice.com/documents/excel/3716-excel-compare-two-strings-highlight-differences-for-similarity.html#a2
Tento komentář byl moderátorem webu minimalizován
Čau brácho,
Děkujeme vám za odpověď.
Zkontroloval jsem tento odkaz a nevidím, co očekávám.. pokud v A1 clm máme 'Muž' a A2 jako 'Pon'. V tom je 'o' jen jiné. Takže potřebuji, aby bylo zvýrazněno „o“. Ostatní text by měl být zobrazen jako normální text.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL