Option Explicit
Sub 分机床产量()
Dim rng As Range, rng1 As Range
For Each rng In Worksheets("产量表").Range("c2:c85")
For Each rng1 In Range("c2:c81")
If rng1.Value = rng.Value Then
If Application.WorksheetFunction.CountIf(Range("c2:c81"), rng.Value) = 1 Then
rng1.Offset(0, 4).Resize(1, 3).Value = rng.Offset(0, 2).Resize(1, 3).Value
rng1.Interior.ColorIndex = 6
rng.Interior.ColorIndex = 6
End If
End If
Next
Next
End Sub
