Como comparar Duas colunas e deletar dados
Página 1 de 1
Como comparar Duas colunas e deletar dados
Boa tarde!!
Como comparar Duas colunas e deletar dados
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
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» Como comparar Duas colunas e deletar dados II
» Copiar duas células fixa de todas as guias para uma única guia, mas colando em duas colunas diferentes.
» Macro para conferir duas colunas
» Comparar dados em arquivos diferentes
» Separar arquivo em arquivos menores de acordo com 2 critérios (duas colunas)
» Copiar duas células fixa de todas as guias para uma única guia, mas colando em duas colunas diferentes.
» Macro para conferir duas colunas
» Comparar dados em arquivos diferentes
» Separar arquivo em arquivos menores de acordo com 2 critérios (duas colunas)
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|