Boa tarde!!

Use as formulas

B2=ESQUERDA(A2;LOCALIZAR(CARACT(53);SUBSTITUIR(A2;" ";CARACT(53);NÚM.CARACT(A2)-NÚM.CARACT(SUBSTITUIR(A2;" ";""))-0))-2)
C2=ARRUMAR(ESQUERDA(MUDAR(A2;1;NÚM.CARACT(F2);"");5))

, altere o número 5 para o número de caracteres desejado.

D2=ARRUMAR(ESQUERDA(DIREITA(SUBSTITUIR(" - "&A2;" - ";REPT(" ";999));2*999);999))
E2=ARRUMAR(DIREITA(DIREITA(SUBSTITUIR(" - "&A2;" - ";REPT(" ";99));297);99))

Att

Contribuindo, experimente

Sub Separando()
Dim Str_Texto As String, Str_Logr As String
Dim X As Integer
Dim Separa() As String, StrSep() As String

For X = 3 To 7
    Str_Texto = Sheets("Plan1").Range("A" & X).Value
    Separa = Split(Str_Texto, " - ", -1, vbTextCompare)
    StrSep = Split(Separa(0), " ", -1, vbTextCompare)
        
    For y = LBound(StrSep) To (UBound(StrSep) - 1)
        If y = LBound(StrSep) Then
            Str_Logr = StrSep(y)
        Else
            Str_Logr = Str_Logr & " " & StrSep(y)
        End If
    Next
    
    Sheets("Plan1").Range("B" & X).Value = Str_Logr
    Sheets("Plan1").Range("C" & X).Value = StrSep(UBound(StrSep))
    Sheets("Plan1").Range("D" & X).Value = Separa(1)
    Sheets("Plan1").Range("E" & X).Value = Separa(2)
Next
End Sub

Reinaldo e Alexandrevba,

Muito obrigado pela respostas.

Ambos chegram muito proximo do desejado.

Alexandre, o codigo para a coluna C2 nao retorna o valor esperado. É quase isso.

Reinaldo, acredito que estamos quase perto de atender o que preciso. Vou anexar a planilha, casos o colegas tiver um tempinho para analisar.

Novamente, meu muito obrigado.

Um otimo dia a todos.

Voçe disse que não atendeu, mas não o que está divergente, o que não está coerente, qual o criterio?

Voçe disse que não atendeu, mas não o que está divergente, o que não está coerente, qual o criterio?

Olá Reinaldo!

Obrigado pelo retorno.

Então, na planilha exemplo que disponibilizei temos 8576 linhas na coluna "A".

No codigo que voce enviou, na linha "For X = 3 To 7" alterei para "For X 2 To 8576" (me corrija se eu estiver errado). Em seguida rodei o comando, ele retorna a msgs "Erro em tempo de execução '9': Subscrito fora do intervalo". Após rodar o comando, a planilha vejo que ele retorna o resultado ate na linha (apoximado) 3389.

Os critérios são os mesmos que informei, acho que ajustando a leitura em todas as quase 9mil linhas, acredito que ja atenderá.

Bom dia!!
Para formulas tente.

' B2  =ESQUERDA(A2;MÍNIMO(PROCURAR({0;1;2;3;4;5;6;7;8;9;"-"};A2&"0123456789"))-1)
' C2  =PROC(99^99;--("0"&EXT.TEXTO(A2;MÍNIMO(LOCALIZAR({0;1;2;3;4;5;6;7;8;9};A2&"0123456789"));LIN($1:$10000))))
' D2  =ARRUMAR(ESQUERDA(DIREITA(SUBSTITUIR(" - "&A2;" - ";REPT(" ";999));2*999);999))
' E2  =ARRUMAR(DIREITA(DIREITA(SUBSTITUIR(" - "&A2;" - ";REPT(" ";99));297);99))

Att

Boa tarde!!

Segue uma forma usando VBA.

Sub AleVBA_21995()
    Dim lr As Long
    Const sFormula1 As String = "=LEFT(A2,MIN(FIND({0,1,2,3,4,5,6,7,8,9,"" - ""},A2&""0123456789""))-1)"
    Const sFormula2 As String = "=LOOKUP(99^99,--(""0""&MID(A2,MIN(SEARCH({0,1,2,3,4,5,6,7,8,9},A2&""0123456789"")),ROW($1:$10000))))"
    Const sFormula3 As String = "=TRIM(LEFT(RIGHT(SUBSTITUTE("" - ""&A2,"" - "",REPT("" "",999)),2*999),999))"
    Const sFormula4 As String = "=TRIM(RIGHT(RIGHT(SUBSTITUTE("" - ""&A2,"" - "",REPT("" "",99)),297),99))"
     
    With Sheets("Plan1")
        lr = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        .Range("B2").Resize(lr).Formula = sFormula1
        .Range("C2").Resize(lr).Formula = sFormula2
        .Range("D2").Resize(lr).Formula = sFormula3
        .Range("E2").Resize(lr).Formula = sFormula4
        .Range("B2").Resize(lr, 4).Value = .Range("B2").Resize(lr, 4).Value
    End With
End Sub

Att

Prezados AlexandreVBA e Reinaldo.

Obrigadíssimo pela disposição em ajudar.

Parabéns a vocês e tantos outros que dedicam um pouco do tempo para ajudar, compartilhando o conhecimento e experiencias!!

Obrigado!