Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
koalabala

excel - Procurar valores repetidos em uma coluna e copiá-los na coluna seguinte sem as repetições

Mensagem Recomendada

Pessoal,

Numa planilha excel tenho uma coluna onde nomes se repetem seguidamente e quero que na coluna ao lado sejam listados estes nomes sem as repetições, ams um após o outro sem pular linha.

Isso se deve a eu ter uma planilha principal onde tenhotodos os nomes cadastrados. Nas planilhas seguintes eu uso PROCV para ele listar somente nomes com uma determinada inicial ( a, b ou c...) daí ele lista mas repete o mesmo nome varias vezes até encontrar o próximo diferente.

Assim fica :

Andréa Silva

Andréa Silva

Andréa Silva

Andréa Silva

Ana Paula Mariano

Ana Paula Mariano

Aldine Miller

Antonio carlos Trindade

Antonio carlos Trindade

...

Quero que na segunda coluna fique assim:

Andréa Silva

Ana Paula Mariano

Aldine Miller

Antonio carlos Trindade

como fazer isso?

Caso seja possivel buscar direto da planilha principal e já deixar no formato correto, melhor ainda.

Grato

Compartilhar este post


Link para o post
Compartilhar em outros sites

cara, com o excel 2007 ou superior é possível fazer isso com a ferramenta "Remover Duplicatas"(Alt+S+M)...

criei esse código veja se serve...antes de executar você deve ordenar a coluna "A"...pois ele compara os nomes na ordem..

Sub teste_remover_duplicadas()

Sheets("Plan1").Range("A1").Copy Destination:=Sheets("Plan2").Range("A1")
For i = 2 To Sheets("Plan1").Cells(Rows.Count, 1).End(xlUp).Row
If Sheets("Plan1").Range("A" & i) <> Sheets("Plan1").Range("A" & i - 1) Then
Sheets("Plan1").Range("A" & i).Copy Destination:=Sheets("Plan2").Range("A" & Sheets("Plan2").Cells(Rows.Count, 1).End(xlUp).Row + 1)
End If
Next i

End Sub

Plan1 = aba que contem todos os nomes(duplicados..)...

Plan2 = aba nova..onde será colocados a lista sem duplicadas..

espero que de certo.. :O


Espero ter ajudado, aguardo a resposta...
----------------------------------------------------------------------------------
"Para obter algo que você nunca teve, precisa fazer algo que nunca fez..."
----------------------------------------------------------------------------------

http://desvendandooexcel.blogspot.com.br/

Compartilhar este post


Link para o post
Compartilhar em outros sites

Eu não sei bem VBA.

Onde coloco este código?

eu coloquei em Plan 1 e ele deu erro.

pode explicar mais como eu usso este código?

grato

Compartilhar este post


Link para o post
Compartilhar em outros sites

para colocar em outros arquivos:

1 -> Abra o VBA (Alt+F11)

2 -> Insira um Módulo (Inserir/Módulo)

3 -> Copie o código para dentro do Módulo

4 -> Pronto...estará disponível na pasta do excel..

post-512961-1282767571_thumb.jpg

feitoria.. :O

Editado por barbosa.jean

Espero ter ajudado, aguardo a resposta...
----------------------------------------------------------------------------------
"Para obter algo que você nunca teve, precisa fazer algo que nunca fez..."
----------------------------------------------------------------------------------

http://desvendandooexcel.blogspot.com.br/

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite amigo.

Certa vez um companheiro do fórum me ajudou em uma planilha quase idêntica a essa.

Dá uma olhada para ver se ajuda.

http://www.babooforum.com.br/forum/Excel-F...ao-t686392.html

Na coluna A você insere todos os valores e ele procura valores repetidos nas colunas B, C e D e insere as informações sem repetição na coluna E

A planilha foi adaptada conforme meu pedido, mas posso dizer que ela também funcionaria para você. Porém você terá que inserir todos os dados na COLUNA A e depois todos os dados na COLUNA B (ou C ou D)

Todos os dados repetidos são frisados e o resultado aparece na COLUNA E.

Infelizmente não sei como ela funciona, pois a formula é gigantesca! =S

Qualquer coisa posta ai.

Abraços

Compartilhar este post


Link para o post
Compartilhar em outros sites

Criei um arquivo pra facilitar...

Remover_Duplicadas.zip

:O


Espero ter ajudado, aguardo a resposta...
----------------------------------------------------------------------------------
"Para obter algo que você nunca teve, precisa fazer algo que nunca fez..."
----------------------------------------------------------------------------------

http://desvendandooexcel.blogspot.com.br/

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom dia koalabala

Como vc tem dificuldades em VBA tenho uma forma mais fácil de fazer o que vc quer sem utilizar macro:

Como os nomes estão na coluna A, com o mouse marque o intervalo de A1 até a última célula que tem nome;

clique em Dados; Filtro avançado;

Marque copiar para outro local;

Em copiar para digite B1;

Marque "somente registros exclusivos";

Dê ok e esta pronto.

Espero tenha sido útil, aguardo retorno.

Abraços


Patropi - Moderador

Compartilhar este post


Link para o post
Compartilhar em outros sites

Continuando o desenvolvimento deste assunto,

há como inserir os nomes que estão repetidos, acima da tabela? (como se fosse inserir linhas?), associado ao somase

segue o exemplo:


A B
1 Andréa Silva 10
2 Andréa Silva 8
3 Andréa Silva 9
4 Andréa Silva 13
5 Ana Paula Mariano 2
6 Ana Paula Mariano 25
7 Aldine Miller 9
8 Antonio carlos Trindade 0
9 Antonio carlos Trindade 0


Após a execução da macro:

A B
1 Andréa Silva 40
2 Ana Paula Mariano 27
3 Aldine Miller 9
4 Antonio carlos Trindade 0
5
6
7
8 Andréa Silva 10
9 Andréa Silva 8
10 Andréa Silva 9
11 Andréa Silva 13
12 Ana Paula Mariano 2
13 Ana Paula Mariano 25
14 Aldine Miller 9
15 Antonio carlos Trindade 0
16 Antonio carlos Trindade 0

*Repare que foi inseridas 3 linhas de margem para a tabela original, acima da cópia tabela original.

minha questão é, como faze resta modificação na macro original?

Abraços a todos.

Editado por lgcovizzi

Compartilhar este post


Link para o post
Compartilhar em outros sites

  • Acrescentada rotina de ordenação da coluna A
  • Acrescentada rotina para apagar os dados da planilha provisória antes da cópia..
  • Mantida a cópia provisória para outra planilha
  • Acrescentada rotina para voltar com os dados separados para a planilha original
  • Acrescentado rotina para incluir a fórmula na coluna B

Substitua a macro original por esta abaixo...

Sub Remover_Duplicadas()
'Ordena os dados
Dim UL As Long
UL = Sheets("Plan1").Range("A1").End(xlDown).Row
Sheets("Plan1").Sort.SortFields.Clear
Sheets("Plan1").Sort.SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With Sheets("Plan1").Sort
.SetRange Range("A1:A" & UL)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

'Apaga os dados que possam estar na Plan2
Sheets("Plan2").Columns("A:A").ClearContents

'Copia provisoriamente os dados
Sheets("Plan1").Range("A1").Copy Destination:=Sheets("Plan2").Range("A1")
For i = 2 To Sheets("Plan1").Cells(Rows.Count, 1).End(xlUp).Row
If Sheets("Plan1").Range("A" & i) <> Sheets("Plan1").Range("A" & i - 1) Then
Sheets("Plan1").Range("A" & i).Copy Destination:=Sheets("Plan2").Range("A" & Sheets("Plan2").Cells(Rows.Count, 1).End(xlUp).Row + 1)
End If
Next i

'Retorna com os dados para planilha original
Dim LR As Long
LR = Sheets("Plan2").Range("A1").End(xlDown).Row + 3
Sheets("Plan2").Rows("1:" & LR).Copy
Sheets("Plan1").Rows("1:1").Insert Shift:=xlDown
LR = LR + 1
UL = Sheets("Plan1").Range("A" & LR).End(xlDown).Row

'Acrescenta a fórmula de CONT.SE para cada nome..
Dim Intervalo As String
Intervalo = "A" & LR & ":A" & UL
For UL = 1 To LR - 4
Sheets("Plan1").Range("B" & UL).FormulaLocal = "=CONT.SE(" & Intervalo & " ;A" & UL & ")"
Next
End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite a todos,

É minha primeira participação em Fórum e, sinceramente, peço desculpas se estiver postando minha post errado.

Tenho uma dúvida parecida.

Tenho uma planilha com dados que serão alimentados por um ano, e que trago para outra aba os dados que quero com base em dois critérios (Mês e Entrada), mas o resultado retorna os dados com as duplicidades. 

Gostaria, por gentileza, de uma ajuda, pois já tem dias que estou quebrando a cabeça, e já fiz várias pesquisas, mas não encontrei algo que se enquadrasse no que preciso.

Preciso de uma função que retorne os valores com base nos dois critérios sem a duplicidade de dados.

Se preferirem posso postar a planilha para analisarem melhor.

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ok Decio, muito obrigado! Segue anexo planilha.

Em Plan1 preciso retornar na coluna B, abaixo de receitas os descritivos da Folha de Contas, do mês selecionado, sem repetir as descrições e somando ao lado o total das entradas (receitas).

Controle de Contas.xls

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...