Excel porovná dva sloupce a zvýrazní, když je nalezen

Translate

Mám soubor aplikace Excel s 10 000 řádky ve sloupci A, některé hodnoty jsou stejné.

Příklad:

A1 - P7767

A2 - P3443

A3 - P7767

A4 - P8746

A5 - P9435

atd...

Pak mám další sloupec se 100 řádky, které mají některé z hodnot nalezených ve sloupci A,

B1 - P7767

B2 - P8746

atd...

Musím zvýraznit všechny buňky ve sloupci A, kde se hodnota nachází v kterékoli z hodnot ve sloupci B

V zásadě tedy sloupec B zkontroluje, zda může najít stejnou hodnotu kdekoli ve sloupci A, pokud je pravda, zvýrazněte buňku a ponechte všechny buňky bílé, když hodnota není nalezena ve sloupci B

Doufám, že jsem to dobře vysvětlil, udělal jsem nějaký výzkum a věřím, že k dosažení tohoto výsledku potřebuji použít podmíněné formátování, ale jsem opravdu přilepený na vzorec, který mám použít, a nemohu najít příklad online (Možná nehledám správný termín, protože si nejsem jistý, jak se to přesně nazývá)

This question and all comments follow the "Attribution Required."

Všechny odpovědi

Translate

Může existovat jednodušší možnost, ale můžete použít VLOOKUP ke kontrole, zda se hodnota objeví v seznamu (a VLOOKUP je mocný vzorec, který se stejně dá zvládnout).

Takže pro A1 můžete nastavit podmíněný formát pomocí následujícího vzorce:

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

Zkopírujte a vložte speciální> formáty a zkopírujte tento podmíněný formát do ostatních buněk ve sloupci A.

Co dělá výše uvedený vzorec:

  • VLOOKUP vyhledává hodnotu buňky A1 (první parametr) oproti celému sloupci B ($ B: $ B), v prvním sloupci (to je třetí parametr, zde je nadbytečný, ale obvykle VLOOKUP vyhledá tabulku spíše než a sloupec). Poslední parametr, FALSE, určuje, že shoda musí být přesná, nikoli jen nejbližší shoda.
  • VLOOKUP vrátí #ISNA, pokud není nalezena shoda, takže NOT (ISNA (...)) vrátí true pro všechny buňky, které mají shodu ve sloupci B.
Zdroj
Translate

Jednoduchý vzorec k použití je

=COUNTIF($B:$B,A1)

Zadaný vzorec platí pro buňku A1. Jednoduše zkopírujte a vložte speciální formát do celého sloupce A

Zdroj
Translate

POZNÁMKA: Možná budete chtít před provedením těchto kroků odstranit duplicitní položky (např. Duplicitní položky ve stejném sloupci), abyste zabránili falešným poplachům.

  1. Vyberte oba sloupce
  2. klikněte na Podmíněné formátování
  3. klikněte na Zvýraznit pravidla buněk
  4. klikněte na Duplikovat hodnoty (výchozí hodnoty by měly být v pořádku)
  5. Duplikáty jsou nyní zvýrazněny červeně:

enter image description here

Zdroj
Translate

Nejjednodušší způsob, jak to udělat, alespoň pro mě, je:

Podmíněný formát-> Přidat nové pravidlo-> Nastavit vlastní vzorec:

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

Kde A2 je první prvek ve sloupci A, který má být porovnán, a B je sloupec, kde bude prohledán prvek A.

Jakmile nastavíte vzorec a vyberete formát, použijte toto pravidlo na všechny prvky ve sloupci.

Snad to pomůže

Zdroj
Translate

A1 -> podmíněné formátování -> hodnota buňky je B1 -> formát: cokoli chcete

doufám, že to pomůže

Zdroj
Translate

Předpokládejme, že chcete porovnat sloupec A a sloupec H ve stejné tabulce.

Musíte jít do dalšího sloupce vedle těchto 2 sloupců a vložit tento vzorec: = (List1! A: A = List1! H: H), ve sloupci se zobrazí FALSE nebo TRUE. Tento nový sloupec tedy můžete použít k vybarvení neodpovídajících hodnot pomocí funkce podmíněného formátování barev.

Zdroj
Translate

Snažil jsem se porovnat sloupce AB a zvýraznit stejný text, ale pomocí obove fomrulas se nějaký text vůbec neshodoval. Použil jsem tedy formulář (Makro VBA k porovnání rozdílů mezi dvěma sloupci a barevným zvýrazněním buněk) kódy a upravil jsem pár věcí, abych jej přizpůsobil mé aplikaci a našel požadovaný sloupec (pouhým kliknutím na něj). V mém případě používám velký a různý počet řádků v každém sloupci. Snad to pomůže:

Sub 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

Zdroj
Translate

Nechceš dělat tolik práce, kluci .. Stačí stisknout Ctr a vybrat Colum one a stisknout Ctr a vybrat colum two. Poté klikněte na podmíněné formátování -> Zvýraznit pravidla buněk -> Vyrovnat.

a to je vše. jsi hotový. :)

Zdroj
Leave a Reply
You must be logged in to post a answer.
O autorovi