Tata21

-Gostaria de agradecer mas não da certo pra mim. Eu usei o seguinte comando de macro Sub Reincidente() ' ' Reincidente Macro ' 'Colar apenas dados repetidos ' ' Atalho do teclado: Ctrl+r ' 'Apagar dados de Plan2 'Apaga os dados que possam estar na Plan2 Sheets("Plan2").Columns("A").ClearContents Dim I As Long Dim QtLinhas As Long QtLinhas = [A:R].CurrentRegion.Rows.Count For I = 1 To QtLinhas If WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(I, 1)), Cells(I, 1)) > 1 Then Cells(I, 1).Copy Destination:=Sheets("Plan2").Range("A" & Sheets("Plan2").Cells(Rows.Count, 1).End(xlUp).Row + 1) End If Next End Sub -Mas esta com a falha que sitei acima. Porém até o momento é o mais próximo do esperado que consegui chegar. Se tiver mais alguma ideia ficarei grata

Boa tarde, Desculpa se já teve algo parecido sou nova aqui. Estou com um probleminha, fiz uma macro com a função de pegar da Plan1 onde se encontra uma lista de nomes e copiar para Plan2 apenas os nomes repetidos, porém se o nome repetir por exemplo 3 vezes, ela joga esse nome na Plan2 duas vezes, mas gostaria que minha macro trouxesse a informação somente uma vez independente das vezes que o nome se repete na Plan1, e não traga o nome se não repetir. Ex atual. Plan1 Plan2 Maria Maria Maria Maria Maria José José José Pedro Ex desejado mudaria que na Plan2 aparecesse da seguinte forma Maria José A ideia posterior é colocar uma formula na Plan2 CONT.SE, para calcular a quantidade de repetições Ex Maria 3 José 2 Podem me ajudar?