Option Explicit

Private Sub Find_MisMatches()
    Dim CompareRange As Range, x As Range, y As Range
    Set CompareRange = Worksheets("Лист2").Range("B1:B12") 'диапазон с которым сравнивают
    
    Application.ScreenUpdating = False
    Worksheets("Лист1").UsedRange.Interior.ColorIndex = xlNone
    
    'Вар1. Подсвечивает ячейки в диапазоне Worksheets("Лист1").Range("D1:D12")
    'если внутри строки из символов этой ячейки найдена хоть одно совпадение с ячейками из диапазона CampareRange
    For Each y In CompareRange
       ' Debug.Print y
        If Not IsEmpty(y) Then
        For Each x In Worksheets("Лист1").Range("D1:D12")
            If InStr(1, x, y, vbTextCompare) > 0 Then x.Interior.Color = vbGreen
        'Debug.Print x, y, InStr(1, x, y, vbTextCompare)
        Next x
        End If
    Next y
    
    Application.ScreenUpdating = True
    
    
    'Вар2. Подсвечивает ячейки в диапазоне Worksheets("Лист1").Range("F1:F12")
    'если ячейка из этого диапазона совпадает по значению с ЛЮБОЙ из ячеек из диапазона CompareRange
    For Each y In CompareRange
        
        If Not IsEmpty(y) Then
        For Each x In Worksheets("Лист1").Range("F1:F12") ' циклом берем любую ячейку из диапазона CompareRange и сравниваем её значение с ячейкой в сравниваемом диапазоне Worksheets("Лист1").Range("F1:F12")
            If x = y Then x.Interior.Color = vbGreen
        Next x
        End If
    Next y
    
    'Вар3. Подсвечивает ячейки в диапазоне Worksheets("Лист1").Usedrange
    'если ячейка из диапазона в Листе 1 совпадает с ячейкой с таким же адресом из диапазона CompareRange
    
    Dim i As Integer, j As Integer  ' переменные для записи номеров строк и столбов в ячейках из дипазона Comparerange
    
    Set x = Worksheets("Лист1").UsedRange ' устанавливаем диапазон в котором надо подсветить совпадающие ячейки при сравнении с Comparerange
    
    For Each y In CompareRange
        
        If Not IsEmpty(y) Then
        i = y.Row ' записываем номер строки ячейки из Comparerange
        j = y.Column 'записываем номер столбца ячейки из Comparerange
        If x(i, j) = y Then x(i, j).Interior.Color = vbGreen  'если данные в ячейке из сравниваемого диапазона на листе 1  совпадают с данными в ячейке из диапазона CampareRange с тем же номером строки и с тем же номер столбца, то подсвечиваем
        End If
    Next y
    
    
    
    
    MsgBox "Данные проверены"
End Sub

Option Explicit

Private Sub Find_MisMatches()
    Dim CompareRange As Range, x As Range, y As Range, InitialSheet As Worksheet
    Dim i As Long, j As Long  ' переменные для записи номеров строк и столбов в ячейках из дипазона Comparerange
     
    Set InitialSheet = Worksheets("Лист1") ' устанавливаем диапазон в котором надо подсветить совпадающие ячейки из листа 1 при сравнении с Comparerange. В данном случае выбирается диапазон со всеми когда-либо заполненными ячейками в Листе1
    Set CompareRange = Application.InputBox("Укажите диапазон ячеек для сравнения", "Запрос данных", "B2:S10", Type:=8) 'диапазон в листе 2 с которым сравнивают. В данном случае это все когда-либо заполненные ячейки в листе2

    
    Application.ScreenUpdating = False
    InitialSheet.UsedRange.Interior.ColorIndex = xlNone  ' очищаем заливку в  диапазоне где будем заливать совпадающие ячейки
    
    On Error Resume Next
    
    
    'Вар3. Подсвечивает ячейки в сравниваемом диапазоне , но только в тех ячейках ,
    'у которых тот же самый адрес , что и выбранном диаппазоне CompareRange
    
    
    'Если выбрано менее двух ячеек
     If CompareRange.Count = 1 Then
        MsgBox "Для отбора уникальных значений требуется указать более одной ячейки", vbInformation
        Exit Sub
     End If
     
     'если указаны только пустые ячейки вне рабочего диапазона
    If CompareRange Is Nothing Then
        MsgBox "Недостаточно данных для выбора значений", vbInformation
        Exit Sub
    End If
        
       
'Запускаем цикл по каждой ячейке из Comparerange
    For Each y In CompareRange
               
        i = y.Row ' записываем номер строки ячейки из Comparerange
        j = y.Column 'записываем номер столбца ячейки из Comparerange
       
10      If CStr(InitialSheet.Cells(i, j).Value) = CStr(CompareRange.Parent.Cells(i, j).Value) Then   ' здесь преобразовываем данные в ячейках в текстовый формат и сравниваем
        InitialSheet.Cells(i, j).Interior.Color = vbGreen 'если данные в ячейке из сравниваемого диапазона на листе 1  совпадают с данными в ячейке из диапазона CompareRange с тем же номером строки и с тем же номер столбца, то подсвечиваем зеленым
      End If
        
    Next y
    MsgBox "Данные проверены"
End Sub