Excel сравнява две колони и подчертава, когато се намери

Може да има по-проста опция, но можете да използвате VLOOKUP, за да проверите дали дадена стойност се появява в списък (и VLOOKUP е мощна формула, с която така или иначе можете да се справите).

Така че за A1 можете да зададете условен формат, като използвате следната формула:

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

Копирайте и поставете Специални> Формати, за да копирате този условен формат в другите клетки в колона А.

Какво прави горната формула:

• VLOOKUP търси стойността на Cell A1 (първи параметър) спрямо цялата колона B ($ B: $ B), в първата колона (това е третият параметър, излишен тук, но обикновено VLOOKUP търси таблица, а не колона). Последният параметър, FALSE, указва, че съвпадението трябва да е точно, а не само най-близкото съвпадение.
• VLOOKUP ще върне #ISNA, ако не бъде намерено съвпадение, така че NOT (ISNA (...)) връща true за всички клетки, които имат съвпадение в колона B.

Една проста формула за използване е

=COUNTIF($B:$B,A1)

Посочената формула е за клетка А1. Просто копирайте и поставете специален формат в цялата колона А

ЗАБЕЛЕЖКА: Може да искате да премахнете дублиращи се елементи (например дублиращи се записи в същата колона), преди да направите тези стъпки, за да предотвратите фалшиви положителни резултати.

1. Изберете и двете колони
2. щракнете върху Условно форматиране
3. щракнете върху Highlight Cells Rules
4. щракнете върху Дублиращи се стойности (по подразбиране трябва да са наред)
5. Дубликатите вече са маркирани в червено:

Най-лесният начин да го направя, поне за мен, е:

Условен формат-> Добавяне на ново правило-> Задайте своя собствена формула:

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

Където A2 е първият елемент в колона A, който се сравнява, а B е колоната, където ще се търси елементът на A.

След като зададете формулата и изберете формата, приложете това правило към всички елементи в колоната.

Надявам се това да помогне

A1 -> условно форматиране -> стойността на клетката е B1 -> формат: каквото искате

надявам се, че помага

Да предположим, че искате да сравните колона A и колона H в една и съща електронна таблица.

Трябва да отидете в друга колона до тези 2 колони и да поставите тази формула: = (Sheet1! A: A = Sheet1! H: H) това ще покаже FALSE или TRUE в колоната. Така че можете да използвате тази нова колона, за да оцветите несъответстващите стойности, като използвате функция за условно форматиране на цветовете.

Опитвах се да сравня колоните AB и да подчертая равен текст, но използвайки обратните части, някои текстове изобщо не съвпадат. Затова използвах формуляр (VBA макрос за сравняване на две колони и разлики в клетки с подчертаване на цветовете) кодове и модифицирах няколко неща, за да го адаптирам към моето приложение и да намеря всяка желана колона (само като щракна върху нея). В моя случай използвам голям и различен брой редове във всяка колона. Надявам се това да помогне:

Под 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

Крайна под

Не искайте да правите толкова много работа ... Просто натиснете Ctr и изберете Colum one и натиснете Ctr и изберете колона две. След това щракнете върху условно форматиране -> Открояване на правила за клетки -> Equel To.

и това е. готово. :)