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.
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
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
Nenhum comentário:
Postar um comentário