当“ 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
任何建议或帮助将不胜感激。