VBA Excel - Selecionando dados iguais

[Giovanni B. Machado]

Boa tarde pessoal!!!

Estou quebrando a mufa pra fazer um código que separe dados iguais dentro de um range.

Por exemplo: tenho uma coluna onde estão listadas idades. Então, quero um código que faça a varredura dentro deste range e me diga quantas pessoas(contador) existem com determinadas idades.

Desde já, obrigado!

Giovanni.

[Giovanni B. Machado]

Pessoal, depois de muito quebrar a cabeça, finalmente consegui!!!!!

Dim Rg As Range

Dim rCelula As Range

Dim cCelula As New Collection

Dim vValor As Variant

Set Rg = Plan28.Range("H2:H60000")

' Cria um único dado não duplicado na nova coleção

For Each rCelula In Rg

On Error Resume Next

cCelula.Add rCelula.Value, CStr(rCelula.Value)

Next rCelula

' Lista os dados na planilha de resultados

x = 80

For Each vValor In cCelula

Plan27.Range("G" & x).Value = vValor

x = x + 1

Next vValor

Set cCelula = Nothing