Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Como comparar Duas colunas e deletar dados II

Ir para baixo

Como comparar Duas colunas e deletar dados II Empty Como comparar Duas colunas e deletar dados II

Mensagem por alexandrevba Ter Out 14, 2014 2:36 pm

Boa tarde!!
Como comparar Duas colunas e deletar dados em guias diferentes.
Código:
Sub Deletar_Duplicidade()
    Dim Rng As Range, Rng2 As Range, Str
    Dim MyCell
    Str = MyCell
    Set Rng = Sheets("Guia_1").Range("A2:A" & Sheets("Guia_1").Range("A" & Rows.Count).End(xlUp).Row) 'Aponta para o intervalo da colunaA da guia1
    Set Rng2 = Sheets("Guia_2").Range("D2:D" & Sheets("Guia_2").Range("D" & Rows.Count).End(xlUp).Row) 'Aponta para o intervalo da colunaD da guia2
    Application.ScreenUpdating = False
    For Each Str In Rng
        If Not IsError(Application.Match(Str, Rng2, 0)) Then
            Str.EntireRow.Delete 'Caso concidir deleta os dados (linha inteira) na guia2
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Att
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos