Se puder ser por código, uma ideia seria usar um Dictionary:
Sub ÚnicosCaseSensitive()
Dim cel As Range, rg As Range
Set rg = Planilha1.Range("A2", Planilha1.Cells(Rows.Count, "A").End(xlUp))
With CreateObject("Scripting.Dictionary")
For Each cel In rg
If Not .exists(cel.Value2) Then .Add cel.Value2, ""
Next cel
Set rg = Planilha1.Range("E2", Planilha1.Cells(2 + .Count - 1, "E"))
rg.Value2 = Application.Transpose(.Keys)
Planilha1.Cells(1, 7).Value2 = .Count
End With
Set cel = Nothing: Set rg = Nothing
End Sub
Obs.: lista direto, sem classificar antes. Se for necessário, pode acrescentar o código para classificar antes ou depois de filtrar.
Postado : 31/03/2018 9:34 pm