Como comparar Duas colunas e deletar dados

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Como comparar Duas colunas e deletar dados

Mensagem por alexandrevba em Qui Abr 17, 2014 2:48 pm

Boa tarde!!

Como comparar Duas colunas e deletar dados
Código:
Option Explicit
    
Sub CompararDuasColunas_AleVBA()
Dim rngColA As Range
Dim rngColB As Range
Dim rngCell As Range
    
    With Plan1
        Set rngColA = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
        Set rngColB = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
        
        For Each rngCell In rngColA.Cells
            If Not IsError(Application.Match(rngCell.Value, rngColB, 0)) Then
                'rngCell.Interior.ColorIndex = 15 'vai colorir o que for iqual a B
                rngCell.Delete
            End If
        Next
    End With
End Sub
avatar
alexandrevba
Intermediário
Intermediário

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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum