Página 1 de 1
Copiar e colar - Conteúdo de uma célula e colar em outra
Enviado: 20 Nov 2018 às 09:41
por ESDomingos
Bom dia!
Estou precisando de um help, uma vez que não sou ão expert no excel.
Tenho uma planilha onde colei um relatório (todo sem formatação) bem extenso, porém ao colar este relatório ele não ficou em uma linha única, ele colocou os dados em duas linhas e ai eu tenho que copiar o conteúdo da 2ª linha e editar a linha superior e colar no final o texto, para depois ir em na opção do menu Dados -> Texto para colunas.
Ocorre que como são muitas linhas para fazer isso e manualmente, esta cansativo e improdutivo, visto que tenho muitas outras atividades para realizar no dia (trabalho), gostaria de saber se tem como fazer isso automaticamente, tipo uma macro ou de alguma outra forma.
Conforme imagem (não consegui anexar), quero copiar o conteúdo da célula A45 (texto linha 2) para a célula A44 (linha 1), colocando o texto na sequência do que já tem na célula A44. Exemplo: A43
Alguém sabe se é possível fazer isso de forma mais ágil ?
Grato.
Re: Copiar e colar - Conteúdo de uma célula e colar em outra
Enviado: 20 Nov 2018 às 11:44
por osvaldomp
Sugestão: anexe uma amostra do seu arquivo Excel, pois imagens pouco ou nada ajudarão para entender a sua demanda e em imagens não é possível testar soluções.
Coloque apenas alguns dados na planilha, coloque também o resultado desejado para cada dado ou para cada conjunto de dados e as explicações detalhadas e exatas de como chegou aos resultados.
Para anexar o arquivo, abaixo da última postagem clique em + Resposta / Adicionar um anexo / Selecione o arquivo
Re: Copiar e colar - Conteúdo de uma célula e colar em outra
Enviado: 20 Nov 2018 às 16:01
por ESDomingos
Anexei o modelo da planilha com mais detalhes
Re: Copiar e colar - Conteúdo de uma célula e colar em outra
Enviado: 20 Nov 2018 às 16:27
por osvaldomp
"Tenho que copiar o texto dessa célula (A9) para a célula acima (A8), colocando essas informações no final da célula A8."
Se entendi corretamente você quer de início concatenar A8 com A9, ou seja, em A8 ficaria A8 & A9, é isso?
Após, o que fazer com A9 ? Podemos excluir a linha 9 inteira? Aí a atual A10 passaria para A9 e a atual A11 passaria para A10, aí A9 concatena com A10, então em A9 ficaria A9 & A10, assim até o final da tabela ?
Se for isso então é suposto que a tabela terá sempre número par de linhas e a quantidade final de linhas será igual à metade da quantidade inicial, é isso? E por último você quer aplicar Dados / Texto para colunas.
Re: Copiar e colar - Conteúdo de uma célula e colar em outra
Enviado: 20 Nov 2018 às 17:11
por ESDomingos
Isso mesmo Osvaldo,
A8 + texto A9
A linha A9 seria eliminada
A A10 passaria para a A9 e o processo se repetiria em todas as linhas até o final da planilha.
A formatação de Dados --> Texto para colunas eu mesmo faria sem problemas. O que não consegui descobrir foi um modo de realizar a tarefa anterior a formatação, o copia a linha abaixo e cola na linha acima e depois deleta a linha copiada, repetindo o processo.
Me desculpe se não estou sendo bem claro em minhas respostas, pois não tenho muita prática.
Grato.
Re: Copiar e colar - Conteúdo de uma célula e colar em outra
Enviado: 20 Nov 2018 às 18:25
por osvaldomp
Veja se esta solução via macro atende.
Instale o código abaixo em um módulo comum, assim:
1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor >> Inserir >> Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar
para rodar o código:
6. tecle 'Alt+F8' >> selecione a macro correspondente >> Executar, ou insira um botão na planilha e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 > Opções).
Código: Selecionar todosSub ConcatenaCélulasExcluiLinhas()
Dim LR As Long, k As Long
LR = Cells(Rows.Count, 1).End(3).Row
For k = LR - 1 To 4 Step -2
Cells(k, 1) = Cells(k, 1) & " " & Cells(k + 1, 1): Rows(k + 1).Delete
Next k
End Sub
Anexei uma cópia do seu arquivo já com o código acima instalado. Fiz uma cópia limpa da sua planilha para você testar. Coloquei comentários na própria planilha.
Re: Copiar e colar - Conteúdo de uma célula e colar em outra
Enviado: 21 Nov 2018 às 09:33
por ESDomingos
Meu amigo, funcionou perfeito.
Muito obrigado pela orientação e ajuda neste caso.
Gostaria de parabenizar o fórum do site e a presteza dos colegas membro.