Guru do Excel e Power BI

osvaldomp escreveu: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.

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

Os comentários coloquei na própria planilha.

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

Os comentários coloquei na própria planilha.

Augusto2018 escreveu: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

dashe3d escreveu: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?

osvaldomp escreveu: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.

osvaldomp escreveu:Testaí

Resultado na planilha Depois.

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

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