求帮忙修改一份工作的VBA代码，根据多条件实现EXCEL用VBA求和

Question

想要的结果是：当相邻两行的单据编号、工号相同且O列数值不等于1,且M列相邻两行求和不超过10万，自动求和并将结果放置Q列，并标注重复颜色。

Answer 1

Sub 多条件数据整理()
Dim rng As Range
Dim i As Long
For Each rng In Range(Range("C2"), Range("C2").End(xlDown))
i = rng.Offset(0, 10).Value + rng.Offset(1, 10).Value
If rng = rng.Offset(1, 0) And _
rng.Offset(0, 5) = rng.Offset(1, 5) And _
rng.Offset(0, 12) <> 1 And _
rng.Offset(1, 12) <> 1 And _
i <= 100000 Then
rng.Offset(0, 14) = i
rng.Offset(0, 14).Interior.Color = RGB(255, 180, 178)
rng.Offset(1, 14) = i
rng.Offset(1, 14).Interior.Color = RGB(255, 180, 178)
End If
Next
End Sub