Olá Celri_33

Se existir um padrão lógico neste texto que você deseja extrair é possível desenvolver uma fórmula para extrair sim. Por exemplo, nestes dois exemplos que você mandou, a lógica a ser desenvolvida seria: "Extraia o texto que existe entre dois números." Neste exemplo, uma fórmula matricial que pode ser aplicada sendo inserida com CRTL+SHIFT+ENTER e supondo que o texto está em A1 é:

=EXT.TEXTO(A1;MÍNIMO(SE(ÉERROS(VALOR(EXT.TEXTO(A1;LIN(INDIRETO("1:"&NÚM.CARACT(A1)));1)));LIN(INDIRETO("1:"&NÚM.CARACT(A1)));""));SOMA(SE(ÉERROS(VALOR(EXT.TEXTO(A1;LIN(INDIRETO("1:"&NÚM.CARACT(A1)));1)));1;"")))

Precisaria entender qual a sua necessidade total para ver a fórmula adequada.

Abs!

Então amigo, o pior é que não tem padrão, a unica coisa que preciso é extrair o texto "x", mas ele pode estar depois de qualquer sequencia de numero, pode ser o segundo, terceiro, quarto e assim por diante, não tem uma ordem certa que o "x" vai estar.

Se entendi bem, se você só quer extrair o "x", então pela lógica você só quer checar se existe "X' no texto, certo?

Positivo, se existir ele me traz.

Se é isso, é bastante simples. Aplique a fórmula:

=SE(ÉERROS(LOCALIZAR("x";A1));"";"x")

Ola Rafael,

Não funcionou mas inverti um pouco a fórmula e deu certo, ao invés de "localizar", que não aparece a função no meu PC usei "procurar" ai funcionou, obrigado!!!

=SE(ÉERROS(PROCURAR("x";A1));"";"X")

Só para complementar.

Eu uso este código que achei na internet a algum tempo

Formula:
=lfExtrairCaracteres()

Módulo:

'Função que retira somente o texto da célula
Public Function lfExtrairCaracteres(vPesquisa As Range) As String
    Dim lQtde As Long
 
    Application.Volatile
 
    'Recebe o valor da célula
    lfExtrairCaracteres = vPesquisa.Text
 
    'Retira os caracteres de 0 a 9, trocando-os por ""
    For lQtde = 0 To 9
        lfExtrairCaracteres = Replace(lfExtrairCaracteres, lQtde, "", 1)
    Next lQtde
 
End Function