OS MELHORES VÍDEOS

 

Pesquisar

sábado, 28 de março de 2015

Como: Excluir as entradas duplicadas em um intervalo.

O exemplo a seguir mostra como usar um intervalo de dados na coluna A e exclua as entradas duplicadas.





Este exemplo usa o método AdvancedFilter do objeto Range com o parâmetro Unique igual a True para obter a lista exclusiva de dados. O parâmetro Action é igual a xlFilterInPlace, especificando que os dados são filtrados no lugar. Se você deseja manter os dados originais, defina o parâmetro Action como xlFilterCopy e especifique o local onde você deseja que os dados filtrados copiados no parâmetro CopyToRange . Uma vez que os valores exclusivos são filtrados, este exemplo usa o método SpecialCells do objeto Range para localizar quaisquer linhas em branco restantes e exclui-los.


Sub Deletar()

Dim LastColumn As Integer

With Application

    .ScreenUpdating = False
    
    LastColumn = Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column + 1
    
    With Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    
        .AdvancedFilter Action:=xlFilterInPlace, Unique:=True
        
        .SpecialCells(xlCellTypeVisible).Offset(0, LastColumn - 1).Value = 1
        
        On Error Resume Next
        
        ActiveSheet.ShowAllData
        
        Columns(LastColumn).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        
        Err.Clear
    
    End With
    
    Columns(LastColumn).Clear
    
    .ScreenUpdating = True
    
End With

End Sub


Na Guia Desenvolverdor, Grupo Código, Ferramenta Visual Basic.
















Na tela de VBE (Visual Basic Editor), Menu Inserir, selecione a opção Modulo.
















Copie e cole o no modulo.















Assista




Baixar Planilha