Another one for what it's worth
Sub First_Yes()
Dim v, itms, i&, j&
With Range("A1", Range("A" & Rows.Count).End(xlUp)).Resize(, 3)
v = .Value
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(v, 1)
If Not .Exists(v(i, 1)) Then
.Item(v(i, 1)) = Application.Index(v, i, 0)
ElseIf v(i, 3) = "Yes" And .Item(v(i, 1))(3) <> "Yes" Then
.Remove v(i, 1)
.Item(v(i, 1)) = Application.Index(v, i, 0)
End If
Next i
itms = .Items
ReDim v(1 To UBound(v, 1), 1 To UBound(v, 2))
For i = 0 To UBound(itms)
For j = 1 To UBound(itms(i))
v(i + 1, j) = itms(i)(j)
Next j
Next i
End With
.Value = v
End With
End Sub
Bookmarks