Ir ao conteúdo
  • Cadastre-se
mmrs

Excel Macro para copiar em colar transposto em um período

Recommended Posts

Pessoal, tenho uma coluna cheia de dados que se repetem de três em três, sendo eles "Nome do evento", "Data e hora" e "Local".

Exemplo:

COLUNA A

Evento X

19/01/2018 às 23:00

SAO PAULO - RUA GENERAL JARDIM, 45

Evento Y

02/02/2018 às 20:00

SANTOS - Aquario de Santos

Evento Z

10/02/2018 às 21:30

SAO PAULO - Espaço das Américas

 

Preciso de uma macro que copie os dados dessa coluna única e cole de três em três nas colunas com os nomes de cada item que coloquei acima.

 

Montei uma básica, mas daria muito trabalho para fazer com todos os dados, pois teria que repetir cada Range de cópia (três linhas) e colar em uma linha (transformar em três colunas).

Segue o que fiz:

 

 Range("A1:A3").Select
    Selection.Copy
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

 

Range("A4:A6").Select
    Selection.Copy
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

 

Se alguém puder me ajudar, pouparia um trabalhão! 

 

Super obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×