Preskoči na glavno vsebino

Kako primerjati dva stolpca in poudariti neprimerljive podatke v Excelu?

Kot je prikazano na spodnji sliki zaslona, ​​lahko za primerjavo dveh stolpcev sosednjih celic in poudarjanje neprimerljivih podatkov preizkusite metode v članku.

Primerjajte dva stolpca in označite neprimerljive podatke s kodo VBA
Primerjajte dva stolpca in označite neprimerljive podatke s programom Kutools za Excel


Primerjajte dva stolpca in označite neprimerljive podatke s kodo VBA

Kot zgornji posnetek zaslona primerjate podatke v stolpcu A in stolpcu B. Zaženite naslednjo kodo VBA, da označite neprimerljive podatke.

1. Pritisnite druga + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite naslednjo kodo v okno Code.

Koda VBA: primerjajte dva stolpca in označite neprimerljive podatke

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. Pritisnite F5 tipko za zagon kode. V pojavnem oknu Kutools za Excel v pogovornem oknu izberite prvi stolpec, ki ga želite primerjati, nato kliknite OK . Oglejte si posnetek zaslona.

4. Nato izberite naslednji primerjani stolpec v naslednjem pojavnem oknu Kutools za Excel pogovorno okno.

5. V pogovornem oknu, kot je prikazano na spodnji sliki zaslona, ​​za poudarjanje neprimerljivih podatkov kliknite Ne gumb.

Nato so vsi neprimerljivi podatki med dvema stolpcema takoj označeni. Oglejte si posnetek zaslona:


Primerjajte dva stolpca in označite neprimerljive podatke s programom Kutools za Excel

Če želite samo ugotoviti in poudariti, ali vrednosti celic v stolpcu obstajajo v drugem stolpcu ali ne, na primer, kot je prikazano na spodnji sliki zaslona, ​​številka 2 v stolpcu A ne obstaja v stolpcu B., lahko poskusite Primerjaj obsege uporabnost Kutools za Excel.

1. klik Kutools > VstaviIzberite Enake in različne celice. Oglejte si posnetek zaslona:

2. V Ljubljani Izberite Enake in različne celice pogovorno okno, morate konfigurirati na naslednji način:

2.1 Izberite prvi stolpec z neprimerljivimi celicami, ki jih boste označili v Poiščite vrednosti v škatli;
2.2 V stolpcu izberite drugi stolpec, ki ga želite primerjati Glede na škatla;
2.3 V Na podlagi setcion, izberite Enotna celica možnost;
2.3 Izberite Različne vrednote možnost v Najdi odsek;
2.4 V Obdelava rezultatov odsek, preverite Izpolnite barvo in s spustnega seznama določite barvo ozadja;
2.5 Kliknite na OK . Oglejte si posnetek zaslona:

3. Nato se prikaže pogovorno okno, ki vam pove, koliko celic v stolpcu A, ne pa v stolpcu B, klikne gumb V redu in v stolpcu A so izbrane vse ujemajoče se celice.

  Če želite imeti brezplačno (30-dnevno) preskusno različico tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.


Sorodni članki:

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi Bro,
Thank you for your reply.
I checked this link and I don't see what iam expecting.. if in A1 clm we have 'Man' and A2 as 'Mon'. In that, 'o' only different. So, I need like the 'o' should be highlighted. Other text should be shown as normal text.
This comment was minimized by the moderator on the site
Hi, It's awesome and very useful!!!!!!!!

Also, I have a doubt about this. In 'A1', I have text as 'Hi Man' and in 'B1', I Have text as 'Ha Man'. So when I run the Macron, I need the result as in B1 'Ha Man' (The "a" only should be highlighted and other text should be in normal).

Please sort out this issue Bro!!!
This comment was minimized by the moderator on the site
Good day,
The VBA code in below article can do you a favor. Please follow the link.
How To Compare Two Strings For Similarity Or Highlight Differences In Excel?
https://www.extendoffice.com/documents/excel/3716-excel-compare-two-strings-highlight-differences-for-similarity.html#a2
This comment was minimized by the moderator on the site
hi
i have some doubt in vba
This comment was minimized by the moderator on the site
Hi,
Please let me know your doubt.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations