O uso do VBA é uma estratégia legítima! Esconde esses detalhes e o ônus de evocá-los. Também permite usar funções de string mais fáceis (por exemplo, a versão do Mid () do VBA não precisa de uma contagem de substring - ela fornecerá por padrão o final da string.) [Nota 1]
A função que você escreve fica disponível para fácil aplicação no menu suspenso do Excel de funções do Excel.
Alt-F11 para entrar no VBA (Alt-F11 para voltar).
A partir do VBAProject para a pasta de trabalho atual, insira > Módulo (operação de menu à direita). Isso terá a função facilmente acessível em toda a pasta de trabalho.
Cole isto:
Function RightOfToken(sSource As String, sToken As String) As String Dim sTarget As String Dim iPos As Integer ' Return the characters after the first occurence of sToken in sSource iPos = InStr(sSource, sToken) If iPos > 0 Then sTarget = Mid(sSource, Len(sToken) + iPos) Else sTarget = "" End If RightOfToken = sTarget End Function
Alt-F11 de volta. Em qualquer célula, = RightofToken ("ABC v. DEF", "v.") Produzirá "DEF". (Você pode usar LTrim () no VBA para remover espaços à esquerda ou se for adequado para TRIM no Excel)
[Nota 1] Se dentro do VBA você quiser a versão do Excel de uma função, ou uma função de planilha específica para o Excel, você pode prefixar com Application.WorksheetFunction. .