Forum Discussion

alonsodiego's avatar
alonsodiego
Copper Contributor
May 29, 2022

Nueva función «UNICOS»

¡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. 😞

excel

1 Reply

Sort By
  • OliverScheurich's avatar
    OliverScheurich
    Gold Contributor
    May 29, 2022

    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.

Resources