Forum Discussion
alonsodiego
May 28, 2022Copper Contributor
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 ...
OliverScheurich
May 29, 2022Gold Contributor
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 SubAn alternative could be this code. You can click the button in cell I3 in the attached file to start the macro.