Jump to content

[pedido] Ajuda para eliminar duplicadas.


Recommended Posts

Bom dia a todos(as) !

 

Gostaria por gentileza se pudessem me explicar como faço para eliminar duplicadas(não sei nada de Excel, mas pelo que pesquisei consegui fazer por uma coluna e não consegui por todas as colunas de 1 vez só) , pois quando escolho uma coluna é eliminado e quando escolho todas as colunas vem o aviso que não foi encontrada duplicadas, e depois colocar em ordem crescente, estou fazendo em Dados/Remover duplicadas, os números não tem fórmulas adicionadas a eles. Da para fazer de uma vez só ou tem que ser uma a uma?

1 coluna elimina a duplicada, todas as colunas juntas vem o aviso de não ter encontrado duplicadas.      

 

6   6
1   1
4   4
6   2
1   5
2   3
5   0
2   8
3   9
4
6
1
0
3
8
8
9
0
5
0

 

Edited by Gnostico
Duplicadas e não Duplicatas, Vixe!
Link to comment
Share on other sites

Em 24/04/2017 at 10:57, Gnostico disse:

Bom dia a todos(as) !

 

Gostaria por gentileza se pudessem me explicar como faço para eliminar duplicadas(não sei nada de Excel, mas pelo que pesquisei consegui fazer por uma coluna e não consegui por todas as colunas de 1 vez só) , pois quando escolho uma coluna é eliminado e quando escolho todas as colunas vem o aviso que não foi encontrada duplicadas, e depois colocar em ordem crescente, estou fazendo em Dados/Remover duplicadas, os números não tem fórmulas adicionadas a eles. Da para fazer de uma vez só ou tem que ser uma a uma?

1 coluna elimina a duplicada, todas as colunas juntas vem o aviso de não ter encontrado duplicadas.      

 

6   6
1   1
4   4
6   2
1   5
2   3
5   0
2   8
3   9
4
6
1
0
3
8
8
9
0
5
0

 

 

 

Olá @Gnostico,

 

Fiz o código abaixo em vba. Espero que ajude.

 

Link da planilha Exemplo:

http://www.mediafire.com/file/8qovjjj8oapjq6w/Duplicados.xlsm

 

Sub Apagar_Duplicados()
Dim Ws As Worksheet
Dim Rng As Range, Cel As Range
Dim Titulo As String

On Error Resume Next
Application.DisplayAlerts = False

Set Ws = ActiveSheet
Titulo = "Remover valores duplicados - By PedroSaavas@gmail.com"

'Seleciona a tabela
Set Rng = Ws.Application.InputBox("Selecione a tabela.", Titulo, Type:=8)
If Rng.Cells.Count < 1 Then Exit Sub

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

   For Each Cel In Rng
      If Ws.Application.WorksheetFunction.CountIf(Rng, Cel) > 1 Then
         Cel.Select
         Range(Selection, Selection.End(xlDown)).RemoveDuplicates Columns:=1, Header:=xlNo
         Range(Selection, Selection.End(xlDown)).Sort key1:=Cel, Order1:=xlAscending, Header:=xlGuess, Orientation:=xlTopToBottom
      End If
   Next Cel
   
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

2yl4fev.jpg

 

uxxy9.jpg

 

 

Edited by pedrosaavas
Link to comment
Share on other sites

4 horas atrás, pedrosaavas disse:

 

 

Olá @Gnostico,

 

Fiz o código abaixo em vba. Espero que ajude.

 

Link da planilha Exemplo:

http://www.mediafire.com/file/8qovjjj8oapjq6w/Duplicados.xlsm

 


Sub Apagar_Duplicados()
Dim Ws As Worksheet
Dim Rng As Range, Cel As Range
Dim Titulo As String

On Error Resume Next
Application.DisplayAlerts = False

Set Ws = ActiveSheet
Titulo = "Remover valores duplicados - By PedroSaavas@gmail.com"

'Seleciona a tabela
Set Rng = Ws.Application.InputBox("Selecione a tabela.", Titulo, Type:=8)
If Rng.Cells.Count < 1 Then Exit Sub

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

   For Each Cel In Rng
      If Ws.Application.WorksheetFunction.CountIf(Rng, Cel) > 1 Then
         Cel.Select
         Range(Selection, Selection.End(xlDown)).RemoveDuplicates Columns:=1, Header:=xlNo
         Range(Selection, Selection.End(xlDown)).Sort key1:=Cel, Order1:=xlAscending, Header:=xlGuess, Orientation:=xlTopToBottom
      End If
   Next Cel
   
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

2yl4fev.jpg

 

uxxy9.jpg

 

 

Grande pedrosaavas muito obrigado meu caro.

Gnostico.

  • Like 1
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...