Excel Macro para excluir duplicados entre duas planilhas

[Rafael nunes da silva]

Boa noite,

 

é possível excluir itens que estejam duplicados entre a coluna A da plan1 e a coluna A da plan2?

 

Ex: na plan1 possuo um banco de dados com milhares de linhas preenchidas, gostaria de na plan2 colar uma grande quantidade de dados na coluna A, para através de uma macro excluir todos os dados que constem na coluna A da plan1.

 

Detalhe: ao excluir esses dados na plan1 excluisse também as linhas inteiras em que estivessem.

 

[Midori]

Você pode fazer um loop para ir excluindo linha a linha caso encontre repetição na outra planilha.

 

Outra forma mais rápida é usar uma coluna auxiliar na Plan2 com CountIf p.ex para procurar o dado correspondente na outra planilha. Aí é só filtrar (ou ordenar) e excluir todos >= 1.

[Rafael nunes da silva]

3 horas atrás, Midori disse:

Você pode fazer um loop para ir excluindo linha a linha caso encontre repetição na outra planilha.

 

Outra forma mais rápida é usar uma coluna auxiliar na Plan2 com CountIf p.ex para procurar o dado correspondente na outra planilha. Aí é só filtrar (ou ordenar) e excluir todos >= 1.

Oi Midori, 

 

não entendi muito como faria desta forma. Na verdade, a ideia é usar um botão na "plan2 para fazer essa exclusão em massa. Meu arquivo é utilizado por muitas pessoas, então a planilha principal é toda bloqueada tendo disponível apenas dois inputbox para inserir e remover dados de um em um.

porém muitas vezes preciso excluir muitos dados de uma vez só, onde por exemplo, puxo do sistema 500 dados  para exclusão, então eu colaria na plan2 esses 500 e só executaria o comando.

 

Minha ideia inicial era criar um inputbox ou formulário para que eu colasse esses "500" e conseguisse excluir tudo junto mas também não consegui.

 

Deixei um anexo uma base para tentar entender melhor.

MACRO.7z

[Midori]

@Rafael nunes da silva Pode ser feito como comentei acima. Um exemplo do primeiro método, veja se resolve. A macro vai excluir a linha de todos os dados da planilha Excluir com o mesmo código na Plan1.

 

Sub ExcluirDados()
    Dim A       As Worksheet
    Dim B       As Worksheet
    Dim Excluir As Range
    Dim Linha   As Long
    
    Set A = ThisWorkbook.Sheets("Plan1")
    Set B = ThisWorkbook.Sheets("EXCLUIR")
    Set Excluir = B.[A1].CurrentRegion
    
    For Linha = Excluir.Rows.Count To 2 Step -1
        Set Excluir = B.Cells(Linha, 1)        
        If WorksheetFunction.CountIf(A.[A:A], Excluir) > 0 Then
            Excluir.EntireRow.Delete
        End If
    Next Linha
End Sub

 

[Rafael nunes da silva]

@Midori era isso mesmo o objetivo, ficou excelente.

Muitíssimo obrigado.