Eu sou novo em scripts VBA ... O que estou tentando fazer é:

coluna de verificação para valores duplicados no arquivo MS ExcelSe houver duplicatas, copie as linhas que contêm valores duplicados para outra planilha ...

Por exemplo, eu tenho uma planilha1 com conteúdo:

Desejo passar pelo conteúdo da coluna A e exportar linhas que contêm valores duplicados na coluna A para uma nova planilha:

depois de pesquisar e editar alguns scripts VBA, vim com esse código:

Sub FilterAndCopy()

Dim wstSource As Worksheet, _
    wstOutput As Worksheet
Dim rngCell As Range, _
    rngMyData As Range
Dim lngMyRow As Long

Set wstSource = Worksheets("Sheet1")
Set wstOutput = Worksheets("Sheet2")
Set rngMyData = wstSource.Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)

Application.ScreenUpdating = False

For Each rngCell In rngMyData
    If Evaluate("COUNTIF(" & rngMyData.Address & "," & rngCell.Address & ")") > 1 Then
        lngMyRow = wstOutput.Cells(Rows.Count, "A").End(xlUp).Row + 1
        wstSource.Range("A" & rngCell.Row & ":D" & rngCell.Row).Copy _
            Destination:=wstOutput.Range("A" & lngMyRow & ":D" & lngMyRow)
    End If
Next rngCell

Application.ScreenUpdating = True
End Sub

Esse código está correto? pode ser otimizado para ser mais rápido?

Tenho 80.000 registros para prosseguir ...