Сравнение диапазонов на НЕ полное совпадение - VBA

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! Мне требуется помощь в сравнении двух диапазонов. Находятся диапазоны на разных листах. На первом листе столбец "А" содержит около 3000 значений. На втором листе столбец А содержит около 180 значений. Необходимо сравнить эти два диапазона на частичное совпадение.
В данном виде макрос выделяет цветом только если ячейки полностью совпадают. Нужно чтобы при значении в первом диапазоне "СОБАКА БЕЛАЯ", а во-втором "СОБАКА" - ячейка первого диапазона все равно реагировала и изменяла цвет. Так как кусок кода я нагуглил, то своими силами пока справиться не могу, а гугл в такой узкоспециальной задаче не подсказывает.

Решение задачи: «Сравнение диапазонов на НЕ полное совпадение»

textual
Листинг программы
Private Sub Find_Matches()
    Dim CompareRange As Range, x As Range, y As Range
    Set CompareRange = Worksheets("Лист2").Range("A1:A180")
    
    Application.ScreenUpdating = False 'Имеет смысл использ. если выделено много ячеек
    Selection.Interior.ColorIndex = xlNone
    
    For Each y In CompareRange
        If Not IsEmpty(y) Then
           For Each x In Selection
               If InStr(1, x, y, vbTextCompare) > 0 Then x.Interior.Color = vbRed
           Next x
        End If
    Next y
    
    Application.ScreenUpdating = True
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.167 из 5
Похожие ответы