Excluir entradas duplicadas em um intervalo

O exemplo a seguir mostra como usar um intervalo de dados na coluna A e excluir entradas duplicadas. Este exemplo usa o método AdvancedFilter do objeto Range com o parâmetroUnique igual a True para obter a lista exclusiva de dados. O parâmetro TheAction é igual a xlFilterInPlace, especificando que os dados são filtrados no local. Se você quiser manter seus dados originais, defina o parâmetro Action igual a xlFilterCopy e especifique o local em que deseja que os dados filtrados sejam copiados no parâmetroCopyToRange. Depois 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 excluí-las.

Código de exemplo fornecido por: Tom Urtis, Atlas programação de gerenciamento

Sub DeleteDuplicates()
    With Application
        ' Turn off screen updating to increase performance
        .ScreenUpdating = False
        Dim LastColumn As Integer
        LastColumn = Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column + 1
        With Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
            ' Use AdvanceFilter to filter unique values
            .AdvancedFilter Action:=xlFilterInPlace, Unique:=True
            .SpecialCells(xlCellTypeVisible).Offset(0, LastColumn - 1).Value = 1
            On Error Resume Next
            ActiveSheet.ShowAllData
            'Delete the blank rows
            Columns(LastColumn).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
            Err.Clear
        End With
        Columns(LastColumn).Clear
        .ScreenUpdating = True
    End With
End Sub

Sobre o colaborador

MVP Tom Urtis é o fundador da Atlas programação gerenciamento, uma empresa com soluções de gerenciamento completas de serviço do Microsoft Office e Excel localizada no Silicon Valley. Tom tem mais de 25 anos de experiência do gerenciamento de negócios e desenvolvimento dos aplicativos Microsoft e é co-autor de "Holy Macro! São 2.500 exemplos de VBA do Excel."

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.