Como dividir o conteúdo de uma célula em várias linhas

Tenho uma célula que contém diversas palavras e gostaria de colocar uma palavra por célula.
|

Olá!

Uma forma é você usar a opção "Texto para colunas" que está na aba "Dados". Lá você você pode usa o delimitador por espaço. Dessa forma você gerará uma palavra por célula na mesma linha, após isso você pode copiar e colar especial transpondo para gerar uma palavra por célula na mesma coluna.

Abraços!

Rafael I. F. Kamimura
Conheça o Blog Excelmaníacos
http://excelmaniacos.com/

7 pessoas consideraram esta resposta útil.

·

A resposta foi útil?

Desculpe se isso não ajudou.

Excelente! Obrigado por seus comentários.

Qual o seu grau de satisfação com esta resposta?

Obrigado por seus comentários. Isso nos ajuda a melhorar o site.

Qual o seu grau de satisfação com esta resposta?

Obrigado por seus comentários.

Obrigado, Rafael.Acontece que eu preciso distribuir o conteúdo em outras células, sendo um segmento do texto por célula, porém necessito fazer isso através de funções e fórmulas, para automatizar o procedimento.

Eu sei que vou precisar utilizar as funções EXT.TEXTO e LOCALIZAR porque as palavras a serem distribuídas têm número de caracteres diferentes entre si.

Só que eu não consegui ainda aprender como lidar com essas funções de forma a atender a minha necessidade. Segue um exemplo:

Tenho texto em uma única célula (no exemplo, na célula B3)

CPU
Monitor
Fone de ouvido
Teclado
Sistema de Som Estéreo com Bluetooth
Notebook
Tablet marca X com 8 polegadas

E preciso desmembrar esse texto em fragmentos, um por célula, assim como abaixo:

     
     
  CPU  
  Monitor  
  Fone de ouvido  
  Teclado  
  Sistema de Som Estéreo com Bluetooth  
  Notebook  
  Tablet marca X com 8 polegadas  
     
     

Agradeço se puder ajudar!

Abraço,

Ary Galasso

1 pessoa considerou útil esta resposta.

·

A resposta foi útil?

Desculpe se isso não ajudou.

Excelente! Obrigado por seus comentários.

Qual o seu grau de satisfação com esta resposta?

Obrigado por seus comentários. Isso nos ajuda a melhorar o site.

Qual o seu grau de satisfação com esta resposta?

Obrigado por seus comentários.

Olá Ary,

Você pode usar este código VBA para o seu propósito. Primeiro, selecione a célula quando tiver seus dados (supor célula B3). Do que do teclado usar simultaneamente Alt+F11 para abrir o Microsoft Visual Basic for Applications. Vá para Inserir (Insert) e depois do Módulo. Copie e cole este código no Módulo.

Option Explicit

Public Sub selection_into_rows()

    Dim k           As Variant
    Dim l_counter   As Long

    k = Split(Selection, Chr(10))

    For l_counter = LBound(k) To UBound(k)
        Cells(l_counter + 1, Selection.Column + 1) = k(l_counter)
    Next l_counter

End Sub

Do teclado, usar F5 para executar este código.

Espero que isto ajude. Se sim, marque minha resposta como Resposta.

IlirU

----------
Regards,
Mr. IlirU

15 pessoas consideraram esta resposta útil.

·

A resposta foi útil?

Desculpe se isso não ajudou.

Excelente! Obrigado por seus comentários.

Qual o seu grau de satisfação com esta resposta?

Obrigado por seus comentários. Isso nos ajuda a melhorar o site.

Qual o seu grau de satisfação com esta resposta?

Obrigado por seus comentários.

Olá!

Outra solução é utilizar novamente o Texto para colunas, mas usando o ALT+0010 como delimitador.

Acesse a postagem que escrevi hoje para ver maiores detalhes: 

https://excelmaniacos.com/2018/08/01/dica-alt0010-a-quebra-de-linhas-super-util/

ABraços!

Rafael I. F. Kamimura
Conheça o Blog Excelmaníacos
http://excelmaniacos.com/

4 pessoas consideraram esta resposta útil.

·

A resposta foi útil?

Desculpe se isso não ajudou.

Excelente! Obrigado por seus comentários.

Qual o seu grau de satisfação com esta resposta?

Obrigado por seus comentários. Isso nos ajuda a melhorar o site.

Qual o seu grau de satisfação com esta resposta?

Obrigado por seus comentários.

IlirU, boa tarde!

Excelente solução!!

Usar VBA para automação de tarefas no Excel é sempre muito mais elegante!.

O problema é que eu não estou acostumado a trabalhar com macros...(baita falha minha!!)

Mas tenho certeza de que a sua solução será muito bem recebida pela comunidade e de grande valia para outros que tenham habilidade com VBA!!

Muito obrigado!

1 pessoa considerou útil esta resposta.

·

A resposta foi útil?

Desculpe se isso não ajudou.

Excelente! Obrigado por seus comentários.

Qual o seu grau de satisfação com esta resposta?

Obrigado por seus comentários. Isso nos ajuda a melhorar o site.

Qual o seu grau de satisfação com esta resposta?

Obrigado por seus comentários.

Rafael Issamu, boa tarde.

Você sabe que a sua dica e sua postagem certamente ajudarão muita gente que não conhece a quebra de linha usada dentro de células no Excel! Você sabe que também pode utilizar o CARACT(10) para quebrar a linha alternativamente ao ALT+0010 ?

Mas eu estou tentando resolver essa questão utilizando as funções embutidas no Excel e não o assistente Texto para Colunas.

Obrigado pela dica!

5 pessoas consideraram esta resposta útil.

·

A resposta foi útil?

Desculpe se isso não ajudou.

Excelente! Obrigado por seus comentários.

Qual o seu grau de satisfação com esta resposta?

Obrigado por seus comentários. Isso nos ajuda a melhorar o site.

Qual o seu grau de satisfação com esta resposta?

Obrigado por seus comentários.

 
 

Informações da Pergunta


julho 21, 2021Última atualização Visualizações 10.173 Aplicável a: