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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de