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
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