Macro Excel - Copiar e Colar Células

Question

Olá,

Tenho uma planilha com dados de vendas com as informações dispostas em colunas, como abaixo:

CLIENTE	UF	PRODUTO 1	PRODUTO 2
1234	RJ	100,00	150,00
5678	MG	150,00	250,00
9012	ES	200,00	350,00

Eu preciso colocar o nome do produto como informação de uma nova coluna e copiar os valor um abaixo do outro, conforme abaixo:

CLIENTE	UF	PRODUTOS	VALOR
1234	RJ	PRODUTO 1	100,00
5678	MG	PRODUTO 1	150,00
9012	ES	PRODUTO 1	200,00
1234	RJ	PRODUTO 2	150,00
5678	MG	PRODUTO 2	250,00
9012	ES	PRODUTO 2	350,00

Gostaria de saber se tem como fazer isso com uma Macro, sendo que a quantidade de colunas e linhas são variáveis.

Obrigado.

Answer 1

Tem sim!

Selecione a coluna PRODUTOS e vá até a opção Transformar >> Coluna Dinâmica.

Depois selecione escolha a coluna VALOR na opção Coluna Valores.

Pronto!!

Answer 2

Ok!

Vamos ativar o Power Query no teu Excel para realizar esse procedimento. Utiliza o link abaixo para te ajudar a ativar.

Instalando o Power Query no Excel

Depois de instalado realiza os passos abaixo. O exemplo está no Office 2010, mas funcionará normalmente no Office 2013.

1. Selecione sua tabela e clique em From Table/Range na aba do Power Query. Na janela a seguir deixe a opção Minha tabela tem cabeçalhos ativa e clique em OK. Ao realizar este procedimento, sua tabela irá ficar em formato tabela. Então toda vez que adicionar novos dados abaixo dessa tabela, o intervalo de células será automaticamente ajustado.

Irá aparecer uma nova janela. Essa janela é o editor de consulta do Power Query. Aconselho dá uma estudada sobre ele, pois você consegue fazer maravilhas com ele.

2. Agora, segurando a tecla SHIFT você seleciona a coluna PRODUTO 1 e PRODUTO 2. Com as colunas selecionadas vá até a aba Transformar e na área Qualquer Coluna selecione a opção no qual está sendo mostrado na imagem abaixo (transformar colunas em linhas, se o seu Excel estiver em inglês o nome da função éUnpivot Columns)

Pronto! Sua consulta já está no formato desejado. Se quiser alterar o título das colunas, é só clicar duas vezes no título e inserir o nome desejado.

Depois é só ir na aba Página Inicial e selecionar Fechar e Carregarque será adicionado uma nova aba com a sua planilha.

Toda vez que você adicionar novos dados lá na sua tabela base, você deve atualizar os dados da nova tabela criada pelo Power Query dentro da aba DADOS>ATUALIZAR TUDO.

Abraços!

Answer 3

Office 2013

Answer 4

Muito obrigado pela ajuda Pietro.

Answer 5

Melhor do que isso `e utilizar o PowerQuery. Ele faz exatamente essa função. Qual a versão do teu Office?