Цель состоит в том, чтобы покрасить все строки в красный цвет, если столбец «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
Буду признателен за любые предложения или помощь.