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!