Nueva función «UNICOS»

alonsodiego 

Sub unique()

Dim i As Integer
Dim j As Integer
Dim z As Integer

z = 4
For i = 4 To 18

j = Application.WorksheetFunction.CountIf(Range(Cells(4, 4), Cells(i, 4)), Cells(i, 5))

If j = 1 Then
Cells(z, 6).Value = Cells(i, 4).Value
z = z + 1
Else

End If

Next i

End Sub

An alternative could be this code. You can click the button in cell I3 in the attached file to start the macro.