Copia os dados da Guia_1 para a Guia_2 sem duplicidades II
Página 1 de 1
Copia os dados da Guia_1 para a Guia_2 sem duplicidades II
Bom dia!!
Com dados repetidos na coluna A, copia os dados para outra guia e depois remove as duplicidades.
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- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» Copia dados do Arquivo e guia ativa para um Arquivo fechado (VBA)
» Copia 1 para Muitas Guias (nome das guias em células) critério
» Copiar Dados de VARIAS Planilhas para uma só Planilha
» Copiar dados de vários arquivos para uma única planilha
» Filtrar varias Guias baseado 1 critério copiar os dados para 1 guia
» Copia 1 para Muitas Guias (nome das guias em células) critério
» Copiar Dados de VARIAS Planilhas para uma só Planilha
» Copiar dados de vários arquivos para uma única planilha
» Filtrar varias Guias baseado 1 critério copiar os dados para 1 guia
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|