Excluir linhas duplicadas entre planilhas

Question

Eu tenho duas folhas com uma estrutura básica: Folha (A) e Folha (B). A folha (B) é um subconjunto da folha (A) que precisa ser removida da Folha (A). Como isso pode ser feito no Excel 2007?

    

Answer 1

Editou o código do comentário para trabalhar em folhas; isso comparará sheet 1 Column A a sheet 2 column A e removerá duplicatas de sheet 1

Sub removematches()
Dim firstcolumn() As Variant
Dim A As Range
Dim B As Range
Dim i As Long, del As Long

'This will set the ranges to look in.  
Set A = Range("A:A")
Set B = Range("Sheet2!A:A")

firstcolumn = A

ReDim Preserve firstcolumn(1 To UBound(firstcolumn), 1 To 2) As Variant
i = 1
del = 0

Do While i <= UBound(firstcolumn)
    firstcolumn(i, 2) = Application.WorksheetFunction.CountIf(B, firstcolumn(i, 1))
    If firstcolumn(i, 2) > 0 Then
        Range("A1").Offset(i - del - 1, 0).Delete Shift:=xlUp
        del = del + 1
    End If
    i = i + 1
Loop
End Sub