RamosMolina

Boa noite! Recebo questionário xls com perguntas e suas alternativas na coluna A, e tentei criar uma macro no VBA para quebrar o texto em colunas. Segue exemplo: Coluna A P1) Cidade [a ] Rio de Janeiro [b ] Salvador [c ] São Paulo [d ] Outras P2) Sexo [a ] Masculino [b ] Feminino P3) Ja tinha feito outro curso? [a ] Sim (Quais) [b ] Não [c ] Não Opinou Eu preciso que toda vez que localizar o texto "P", o texto seja separado por coluna: Coluna A Coluna B Coluna C P1) Cidade P2) Sexo P3) Ja tinha feito outro curso? [a ] Rio de Janeiro [a ] Masculino [a ] Sim (Quais) [b ] Salvador [b ] Feminino [b ] Não [c ] São Paulo [c ] Não opinou [d ] Outras Tentei através do "IF" do Vba, mas não consegui. Alguém pode ajudar? Sub SepararTextoColunas() Dim rng As Range Dim i As Integer, counter As Integer Set rng = Range("A1:A3000") i = 1 For counter = 1 To rng.Rows.Count If rng.Cells(i) = "P" Then rng.Cells(i).EntireColumn.Split Else i = i + 1 End If Next End Sub Obrigado