Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Copia os dados da Guia_1 para a Guia_2 sem duplicidades II

Ir para baixo

Copia os dados da Guia_1 para a Guia_2 sem duplicidades II Empty Copia os dados da Guia_1 para a Guia_2 sem duplicidades II

Mensagem por alexandrevba Dom Out 13, 2013 9:36 am

Bom dia!!
Com dados repetidos na coluna A, copia os dados para outra guia e depois remove as duplicidades.
Código:
Sub AleVBADeletaDepoisCopiar()
'Copia os dados da Guia_1 para a Guia_2 sem duplicidades
With Sheets("Plan1")
    .Range(.Range("A2"), .Range("A65536").End(xlUp)).Copy
End With
Sheets("Plan2").[A65536].End(xlUp)(2).PasteSpecial Paste:=xlValues
'Caso não queira copiar os dados para outra guia, deixe apenas a linha abaixo
Cells.RemoveDuplicates Columns:=Array(1), Header:=xlNo
End Sub
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos