Excel vertaa kahta saraketta ja korosta löydettäessä

Saattaa olla yksinkertaisempi vaihtoehto, mutta VLOOKUPin avulla voit tarkistaa, näkyykö arvo luettelossa (ja VLOOKUP on tehokas kaava, johon on joka tapauksessa päästävä).

Joten A1: lle voit asettaa ehdollisen muodon seuraavalla kaavalla:

=NOT(ISNA(VLOOKUP(A1,$B:$B,1,FALSE)))

Kopioi ja liitä erityinen> Muotot kopioidaksesi ehdollisen muodon sarakkeen A muihin soluihin.

Mitä yllä oleva kaava tekee:

• VLOOKUP etsii solun A1 (ensimmäinen parametri) arvoa koko saraketta B vastaan ($ B: $ B) ensimmäisessä sarakkeessa (se on kolmas parametri, joka on tässä redundantti, mutta tyypillisesti VLOOKUP etsii taulukkoa eikä sarake). Viimeinen parametri FALSE määrittää, että vastaavuuden on oltava tarkka eikä vain lähin vastaavuus.
• VLOOKUP palauttaa #ISNA: n, jos vastaavuutta ei löydy, joten NOT (ISNA (...)) palauttaa arvon true kaikille soluille, joilla on vastaavuus sarakkeessa B.

Yksinkertainen kaava käyttää on

=COUNTIF($B:$B,A1)

Määritetty kaava on solulle A1. Kopioi ja liitä erikoismuoto koko sarakkeeseen A

HUOMAUTUS: Haluat ehkä poistaa päällekkäiset kohteet (esim. Päällekkäiset merkinnät samassa sarakkeessa), ennen kuin teet nämä vaiheet väärän positiivisen estämiseksi.

1. Valitse molemmat sarakkeet
2. Napsauta Ehdollinen muotoilu
3. napsauta Korosta solusäännöt
4. napsauta Kopioi arvot (oletusarvojen pitäisi olla OK)
5. Kopiot on nyt korostettu punaisella:

Helpoin tapa tehdä se, ainakin minulle, on:

Ehdollinen muoto-> Lisää uusi sääntö-> Aseta oma kaava:

=ISNA(MATCH(A2;$B:$B;0))

Missä A2 on sarakkeen A ensimmäinen elementti, jota verrataan, ja B on sarake, josta A: n elementtiä haetaan.

Kun olet asettanut kaavan ja valinnut muodon, käytä tätä sääntöä kaikkiin sarakkeen elementteihin.

Toivottavasti tämä auttaa

A1 -> ehdollinen muotoilu -> solun arvo on B1 -> muoto: mitä haluat

Toivottavasti se auttaa

Oletetaan, että haluat verrata sarakkeita A ja H samassa laskentataulukossa.

Sinun täytyy mennä toiseen sarakkeeseen näiden 2 sarakkeen viereen ja liittää tämä kaava: = (Sheet1! A: A = Sheet1! H: H) tämä näyttää sarakkeessa FALSE tai TRUE. Joten voit käyttää tätä uutta saraketta värittämään ei-yhteensopivat arvot ehdollisen värin muotoiluominaisuuden avulla.

Yritin verrata AB-sarakkeita ja tuoda esiin yhtä suurta tekstiä, mutta yläpuolella olevien komentojen avulla jotkut tekstit eivät sopineet ollenkaan. Joten käytin muotoa (VBA-makro vertailla kahta saraketta ja väri korosta solujen eroja) -koodeja ja muokkain muutamia asioita mukauttamaan sitä sovellukseeni ja etsimään haluamasi sarakkeen (napsauttamalla sitä). Minun tapauksessani käytän suuria ja erilaisia rivejä kussakin sarakkeessa. Toivottavasti tämä auttaa:

Ala ABTextCompare ()

Dim Report As Worksheet
Dim i, j, colNum, vMatch As Integer
Dim lastRowA, lastRowB, lastRow, lastColumn As Integer
Dim ColumnUsage As String
Dim colA, colB, colC As String
Dim A, B, C As Variant

Set Report = Excel.ActiveSheet
vMatch = 1

'Select A and B Columns to compare
On Error Resume Next
 Set A = Application.InputBox(Prompt:="Select column to compare", Title:="Column A", Type:=8)
  If A Is Nothing Then Exit Sub
colA = Split(A(1).Address(1, 0), "$")(0)
 Set B = Application.InputBox(Prompt:="Select column being searched", Title:="Column B", Type:=8)
   If A Is Nothing Then Exit Sub
  colB = Split(B(1).Address(1, 0), "$")(0)
 'Select Column to show results
 Set C = Application.InputBox("Select column  to show results", "Results", Type:=8)
    If C Is Nothing Then Exit Sub
  colC = Split(C(1).Address(1, 0), "$")(0)

'Get Last Row
lastRowA = Report.Cells.Find("", Range(colA & 1), xlFormulas, xlByRows, xlPrevious).Row - 1 ' Last row in column A
lastRowB = Report.Cells.Find("", Range(colB & 1), xlFormulas, xlByRows, xlPrevious).Row - 1 ' Last row in column B

 Application.ScreenUpdating = False
'***************************************************
For i = 2 To lastRowA
      For j = 2 To lastRowB
          If Report.Cells(i, A.Column).Value <> "" Then
              If InStr(1, Report.Cells(j, B.Column).Value, Report.Cells(i, A.Column).Value, vbTextCompare) > 0 Then
                  vMatch = vMatch + 1
                  Report.Cells(i, A.Column).Interior.ColorIndex = 35 'Light green background
                  Range(colC & 1).Value = "Items Found"
                  Report.Cells(i, A.Column).Copy Destination:=Range(colC & vMatch)
                  Exit For
              Else
                  'Do Nothing
              End If
          End If
      Next j
  Next i
If vMatch = 1 Then
    MsgBox Prompt:="No Itmes Found", Buttons:=vbInformation
End If
'***************************************************
Application.ScreenUpdating = True

End Sub

Älä tee niin paljon töitä kavereita .. Paina vain Ctr ja valitse Colum one, paina Ctr ja valitse colum two. Napsauta sitten ehdollinen muotoilu -> Korosta solusäännöt -> Tasaa.

ja siinä se. olet valmis. :)