VBA, сравнивая значение диапазона с другим диапазоном по критериям - PullRequest
0 голосов
/ 19 февраля 2019

Цель состоит в том, чтобы покрасить все строки в красный цвет, если столбец «Out» равен столбцу «In», или он отличается от 0,01 друг от друга, и в то же время текст «Name» из «Out» будет равенна «имя» из «В».Прикрепленное изображение показывает фиктивный набор данных.Невозможно объединить строки на основе идентификатора или любого другого уникального значения объединения. Пример

До сих пор я придумал следующий код, который не использовался в dummydata:

Dim r As Range
Dim x As Range

For Each r In Range(Range("I2"), Range("I2").End(xlDown))
r = r.Value
    For Each x In Range(Range("H2"), Range("H2").End(xlDown))
         If r.Value = x.Value Then
            If r.Value <> "" Or IsNull(r.Value) Then
                 If r.Offset(0, -3).Value = x.Offset(0, -2).Value Then
                    r.EntireRow.Interior.Color = vbRed
                    x.EntireRow.Interior.Color = vbRed
                    Exit For
            End If
        End If
    End If
Next x
Next r

Буду признателен за любые предложения или помощь.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...