Este fórum está sendo desativado

[dashe3d]

Olá Pessoal, tudo bem?

Tenho uma planilha que alimento diariamente, nela tem a coluna PRODUTOS. Onde gostaria de separa uma frase e colocar cada uma em uma linha. Segue exemplo

Antes:
1 | NOME | TELEFONE | PRODUTO |
2 | maria | 551155555 | Item 1 e Item 2

Depois:
1 | NOME | TELEFONE | PRODUTO |
2 | maria | 551155555 | Item 1
3 | maria | 551155555 | e Item 2

Como eu poderia fazer isso automaticamente? Podem me dar um auxilio, por gentileza?

Agradeço desde já!

[osvaldomp]

Sugestão: disponibilize uma amostra do seu arquivo Excel, com estrutura exatamente igual ao arquivo original, com 4 a 5 linhas com dados de exemplo, e com o resultado desejado.

[dashe3d]

Segue modelo

[osvaldomp]

Sugestão: disponibilize uma amostra do seu arquivo Excel, com estrutura exatamente igual ao arquivo original, com 4 a 5 linhas com dados de exemplo, e com o resultado desejado.

[dashe3d]

Desculpa, segue o arquivo.
https://www.filehosting.org/file/detail ... parar.xlsx

Obrigado

[osvaldomp]

Não consegui baixar o arquivo.

Anexe-o diretamente aqui no fórum: clique em + Resposta / Adicionar um anexo / Selecione o arquivo

[dashe3d]

Coloquei em anexo

[osvaldomp]

Veja se a solução contida no arquivo anexado atende.

Os comentários coloquei na própria planilha.

[dashe3d]

Veja se a solução contida no arquivo anexado atende.

Os comentários coloquei na própria planilha.

MUUUITO OBRIGADO!!!

[dashe3d]

Osvaldo, tudo bem?

Gostaria de acrescentar mais 4 colunas, porém quando faço isso o script da erro ao rodar, vc poderia me ajudar?
Outra coisa, gostaria de duplicar o código da coluna A tbm, é possível?

Obrigado

Veja se a solução contida no arquivo anexado atende.

Os comentários coloquei na própria planilha.

[Augusto2018]

Oi tudo bem, fiz um curso muito bom de excel, porque utilizo muito no meu dia-a-dia, e vem com certificado da uma olhada neste link, espero que ajude !!!!
http://bit.ly/Curso-Excel-2018

[osvaldomp]

Oi tudo bem, fiz um curso muito bom de excel, porque utilizo muito no meu dia-a-dia, e vem com certificado da uma olhada neste link, espero que ajude !!!!
http://bit.ly/Curso-Excel-2018

Mais um a utilizar o fórum para propaganda gratuita

Gostaria de acrescentar mais 4 colunas, porém quando faço isso o script da erro ao rodar, vc poderia me ajudar?
Outra coisa, gostaria de duplicar o código da coluna A tbm, é possível?

Sugestão: disponibilize uma amostra do seu arquivo Excel, com estrutura exatamente igual ao arquivo original, com 4 a 5 linhas com dados de exemplo, e com o resultado desejado.

Lembra disso ? Continua valendo

[dashe3d]

Coloquei a aba de antes e depois

Obrigado novamente

[osvaldomp]

Testaí

Resultado na planilha Depois.

[dashe3d]

Oi osvaldomp, tudo bem?

Quando tem um registro diferente daqueles que a macro duplica, ocorre um erro. Segue o arquivo em anexo.
Tem como a macro ignorar ou apenas copiar os registros diferente daqueles que devem ser duplicado e quebrado?

Agradeço desde já novamente, prometo ser a última vez que te atrapalho rsrs

Abs.

Testaí

Resultado na planilha Depois.

[osvaldomp]

Tem como a macro ignorar ... os registros diferente daqueles que devem ser duplicado e quebrado?

Testaí

Código: Selecionar todos

Sub OrganizaDadosV4()
 Dim x As Long, c As Range, k As Long
   With Sheets("Depois")
    If .[A2] <> "" Then .Range("A2:I" & .Cells(Rows.Count, 1).End(3).Row) = ""
     For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
      x = Application.Max(InStr(c.Offset(, 7).Value, " + "), InStr(c.Offset(, 7).Value, " e "))
      If x > 0 Then
       .Cells(k + 2, 1).Resize(2, 9).Value = c.Resize(, 9).Value
       .Cells(k + 2, 8) = Left(c.Offset(, 7).Value, x - 1)
       .Cells(k + 3, 8) = Right(c.Offset(, 7).Value, Len(c.Offset(, 7).Value) - x)
       k = k + 2
     End If
     Next c
  End With
End Sub