Macro para copiar valores distintos de uma planilha do Excel para outra

Question

Eu tenho uma pasta de trabalho do Excel que tem as seguintes planilhas, "Principal" e "Contagem": Agora, a planilha "Principal" tem a coluna B com uma lista de IDs.

É possível ter uma macro na página "Contagem" para copiar todos os valores distintos na coluna A da coluna B na Folha Principal?

Eu sei que a função Index e o filtro Advanced funcionarão, mas eu preciso especificamente de uma macro simples.

    

Answer 1

Tente isto:

Sub CopyUnique()
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("Main")
    Set s2 = Sheets("Count")
    s1.Range("B:B").Copy s2.Range("A1")
    s2.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub