Comparar colunas em 2 planilhas do Excel

[BlueWing]

Olá!

Como posso comparar 4 colunas no excel da planilha 1, com outras 4 colunas da outra planilha 2, onde o que for duplicado ser enviado para 3ª planilha?

Abraço,

Sandra

[zinhovba]

Boa tarde!!

Poste seu arquivo modelo!

[Visitante]

Considerei que os dados estão nas colunas 'A' até 'D', nas 2 planilhas.

Instale o código abaixo em um módulo comum, assim:

1. copie o código daqui

2. a partir de qualquer planilha do arquivo tecle 'Alt+F11' para acessar o editor de VBA

3. no menu do editor >> Inserir >> Módulo

4. cole o código na janela em branco que vai se abrir

5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:

6. tecle 'Alt+F8' >> selecione a macro 'Duplicados' >> Executar, ou insira um botão em qualquer planilha e vincule-o à macro

Sub Duplicados()
Dim LR1 As Long, LR2 As Long, k As Long, m As Long
Dim oCel As Range, wsD As Worksheet
Set wsD = Sheets("PLan2")
Sheets("Plan3").Range("A:D").ClearContents
With Sheets("Plan1")
 LR1 = .Cells(Rows.Count, 1).End(xlUp).Row
 LR2 = wsD.Cells(Rows.Count, 1).End(xlUp).Row
m = 2

For k = 1 To LR1
 Set oCel = Range("A1") '[A1]
nova:
 Set oCel = wsD.[A:A].Find(.Cells(k, 1).Value, After:=oCel)
  If Not oCel Is Nothing Then
   If .Cells(k, 2).Value = oCel.Offset(, 1).Value And _
    .Cells(k, 3).Value = oCel.Offset(, 2).Value And _
     .Cells(k, 4).Value = oCel.Offset(, 3).Value Then
    Sheets("Plan3").Cells(m, 1).Resize(, 4).Value = _
     .Cells(k, 1).Resize(, 4).Value
    m = m + 1
   Else:   GoTo nova
   End If
  End If
Next k

End With
End Sub