Nueva función «UNICOS»

[alonsodiego]

¡Hola, comunidad! He visto una nueva función muy útil que se llama «UNICOS», pero, lamentablemente, solo está disponible para Office 365. Mi pregunta es la siguiente: ¿alguien sabe cuál es el código fuente de esta fórmula para poder agregarla a mi Excel 2019? No tengo el Office 365. :(

[#2]

@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.