Copia os dados da Guia_1 para a Guia_2 sem duplicidades II

Ir em baixo

Copia os dados da Guia_1 para a Guia_2 sem duplicidades II

Mensagem por alexandrevba em 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
avatar
alexandrevba
Intermediário
Intermediário

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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum