Isabella,

Boa noite!

Anexe seu arquivo.

Bom dia!
Estou com um pequeno problema, tive que formatar meu computador...

Andei pesquisando, só não tive a oportunidade de testar ainda, mas vi que tem um código com distinct ou goup by
se alguém puder me ajudar, assim que tiver meu computador ok, quero testar...

Tenha uma listView onde tem uma coluna de nomes
Então tem:
João
Pedro
Maria
João
Romeu
Maria
Coloca-se o nome conforme necessidade
O que preciso seria ao fazer um filtro o comanda ir somar quantos nomes tem em toda a listview
Exemplo dos nome acima: quantidade de 4 nomes, sendo que joão e Maria estão duplicado

Atenciosamente,
Isabella.

Fiz o código para listbox.
Para listview, basta substituir list por listitems e listcount por listitems.count

Option Explicit



Private Sub ListBox1_Change()

Dim qtd As Long
Dim i As Long
Dim j As Long
qtd = 0
 For j = 0 To Me.ListBox1.ListCount - 2
 For i = j + 1 To Me.ListBox1.ListCount - 1

If Me.ListBox1.List(j) <> Me.ListBox1.List(i) Then
qtd = qtd + 1
Exit For
End If
 
 Next i
Next j

Me.TextBox1.Text = qtd
End Sub



Private Sub UserForm_Initialize()
Me.ListBox1.AddItem ("Maria")
Me.ListBox1.AddItem ("Maria")
Me.ListBox1.AddItem ("João")
Me.ListBox1.AddItem ("João")

End Sub