none
No Excel, como separar partes de uma string em colunas? RRS feed

  • Pergunta

  • Tenho a seguinte string:

    A LAGOA AZUL-DRAMA-1980-DUBLADO

    Gostaria que ficasse na coluna A:

    A LAGOA AZUL

    Na coluna B:

    DRAMA

    Na coluna C: 

    1980

    Na coluna D:

    DUBLADO

    sexta-feira, 4 de julho de 2014 16:08

Respostas

  • Sub preencher()
    
    Dim texto, a() As String
    
    texto = "A LAGOA AZUL-DRAMA-1980-DUBLADO"
    
     a() = Split(texto, "-")
    
    For i = 0 To 3
    
    Sheets(1).Cells(1, i + 1) = a(i)
    
    
    Next i
    
    
    End Sub



    sexta-feira, 4 de julho de 2014 17:07