VBA将范围值与标准上的其他范围进行比较

Question

当“ Out”列等于“ In”列，或者彼此之间的差为0.01时，同时将“ Out”列的“ Name”中的文本等于改为“ In”的“名称”。所附图片显示了虚拟数据集。无法基于ID或任何其他唯一的合并值合并行。 Example

到目前为止，我想出了以下代码，尚未在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

任何建议或帮助将不胜感激。