Gnostico Posted April 24, 2017 Share Posted April 24, 2017 (edited) 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 April 24, 2017 by Gnostico Duplicadas e não Duplicatas, Vixe! Quote Link to comment Share on other sites More sharing options...
Substantivo Posted April 25, 2017 Share Posted April 25, 2017 Se a versão do seu excel for 2010 voce pode usar o Power Query. Veja como usar-lo no link abaixo. http://www.minhasplanilhas.com.br/comparar-duas-listas-no-excel/ Quote Link to comment Share on other sites More sharing options...
Gnostico Posted April 25, 2017 Author Share Posted April 25, 2017 2 horas atrás, Substantivo disse: Se a versão do seu excel for 2010 voce pode usar o Power Query. Veja como usar-lo no link abaixo. http://www.minhasplanilhas.com.br/comparar-duas-listas-no-excel/ Muito obrigado meu nobre. Gnostico. Quote Link to comment Share on other sites More sharing options...
pedrosaavas Posted April 25, 2017 Share Posted April 25, 2017 (edited) 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 Edited April 25, 2017 by pedrosaavas Quote Link to comment Share on other sites More sharing options...
Gnostico Posted April 25, 2017 Author Share Posted April 25, 2017 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 Grande pedrosaavas muito obrigado meu caro. Gnostico. 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.