Excel: último caractere / sequência de caracteres em uma sequência

Existe uma maneira eficiente de identificar a última correspondência de caracteres / string em uma string usando as funções base? Ou seja, não o último caractere / sequência da sequência, mas a posição da última ocorrência de um caractere / sequência em uma sequência. Searche findambos funcionam da esquerda para a direita, então não consigo pensar em como aplicar sem um algoritmo recursivo longo. E essa solução agora parece obsoleta.

Com as versões mais recentes do Excel, surgem novas funções e, portanto, novos métodos. Embora seja replicável em versões mais antigas (ainda não a vi antes), quando se tem o Excel O365, pode-se usar:

=MATCH(2,1/(MID(A1,SEQUENCE(LEN(A1)),1)="Y"))

Isso também pode ser usado para recuperar a última posição de substrings (sobrepostos):

=MATCH(2,1/(MID(A1,SEQUENCE(LEN(A1)),2)="YY"))

| Value  | Pattern | Formula                                        | Position |
|--------|---------|------------------------------------------------|----------|
| XYYZ   | Y       | =MATCH(2,1/(MID(A2,SEQUENCE(LEN(A2)),1)="Y"))  | 3        |
| XYYYZ  | YY      | =MATCH(2,1/(MID(A3,SEQUENCE(LEN(A3)),2)="YY")) | 3        |
| XYYYYZ | YY      | =MATCH(2,1/(MID(A4,SEQUENCE(LEN(A4)),2)="YY")) | 4        |

Embora isso nos permita não usar mais um caractere de substituição arbitrário e permita padrões sobrepostos, a "desvantagem" é o uso de uma matriz.

Nota: Você pode forçar o mesmo comportamento nas versões mais antigas do Excel, usando

=MATCH(2,1/(MID(A2,ROW(A1:INDEX(A:A,LEN(A2))),1)="Y"))

Introduzido CtrlShiftEnterou usando um inline INDEXpara se livrar da interseção implícita:

=MATCH(2,INDEX(1/(MID(A2,ROW(A1:INDEX(A:A,LEN(A2))),1)="Y"),))

Eu acho que entendi o que você quer dizer. Digamos, por exemplo, que você queira o \ mais à direita na seguinte sequência (que é armazenada na célula A1):

Unidade: \ Folder \ SubFolder \ Filename.ext

Para obter a posição do último \, você usaria esta fórmula:

=FIND("@",SUBSTITUTE(A1,"\","@",(LEN(A1)-LEN(SUBSTITUTE(A1,"\","")))/LEN("\")))

Isso nos diz que o \ mais à direita está no caractere 24. Ele faz isso procurando "@" e substituindo o último "\" por um "@". Determina o último usando

(len(string)-len(substitute(string, substring, "")))\len(substring)

Nesse cenário, a substring é simplesmente "\", com um comprimento de 1, para que você possa deixar a divisão no final e apenas usar:

=FIND("@",SUBSTITUTE(A1,"\","@",LEN(A1)-LEN(SUBSTITUTE(A1,"\",""))))

Agora podemos usar isso para obter o caminho da pasta:

=LEFT(A1,FIND("@",SUBSTITUTE(A1,"\","@",LEN(A1)-LEN(SUBSTITUTE(A1,"\","")))))

Aqui está o caminho da pasta sem o final \

=LEFT(A1,FIND("@",SUBSTITUTE(A1,"\","@",LEN(A1)-LEN(SUBSTITUTE(A1,"\",""))))-1)

E para obter apenas o nome do arquivo:

=MID(A1,FIND("@",SUBSTITUTE(A1,"\","@",LEN(A1)-LEN(SUBSTITUTE(A1,"\",""))))+1,LEN(A1))

No entanto, aqui está uma versão alternativa de colocar tudo à direita da última instância de um caractere específico. Portanto, usando o mesmo exemplo, isso também retornaria o nome do arquivo:

=TRIM(RIGHT(SUBSTITUTE(A1,"\",REPT(" ",LEN(A1))),LEN(A1)))

Que tal criar uma função personalizada e usá-la em sua fórmula? O VBA possui uma função interna InStrRev, que faz exatamente o que você está procurando.

Coloque isso em um novo módulo:

Function RSearch(str As String, find As String)
    RSearch = InStrRev(str, find)
End Function

E sua função terá esta aparência (assumindo que a string original esteja em B1):

=LEFT(B1,RSearch(B1,"\"))

tigeravatar e Jean-François Corbett sugeriram usar essa fórmula para gerar a string à direita da última ocorrência do caractere "\"

=TRIM(RIGHT(SUBSTITUTE(A1,"\",REPT(" ",LEN(A1))),LEN(A1)))

Se o caractere usado como separador for espaço "", a fórmula deverá ser alterada para:

=SUBSTITUTE(RIGHT(SUBSTITUTE(A1," ",REPT("{",LEN(A1))),LEN(A1)),"{","")

Não é necessário mencionar, o caractere "{" pode ser substituído por qualquer caractere que não "normalmente" ocorreria no texto a ser processado.

Acabei de criar esta solução, sem necessidade de VBA;

Encontre a última ocorrência de "_" no meu exemplo;

=IFERROR(FIND(CHAR(1);SUBSTITUTE(A1;"_";CHAR(1);LEN(A1)-LEN(SUBSTITUTE(A1;"_";"")));0)

Explicado de dentro para fora;

SUBSTITUTE(A1;"_";"") => replace "_" by spaces
LEN( *above* ) => count the chars
LEN(A1)- *above*  => indicates amount of chars replaced (= occurrences of "_")
SUBSTITUTE(A1;"_";CHAR(1); *above* ) => replace the Nth occurence of "_" by CHAR(1) (Nth = amount of chars replaced = the last one)
FIND(CHAR(1); *above* ) => Find the CHAR(1), being the last (replaced) occurance of "_" in our case
IFERROR( *above* ;"0") => in case no chars were found, return "0"

Espero que isso tenha sido útil.

Você poderia usar esta função que eu criei para encontrar a última instância de uma string dentro de uma string.

Certifique-se de que a fórmula aceita do Excel funcione, mas é muito difícil de ler e usar. Em algum momento, você precisa dividir-se em pedaços menores para que seja sustentável. Minha função abaixo é legível, mas isso é irrelevante porque você a chama em uma fórmula usando parâmetros nomeados. Isso simplifica o uso.

Public Function FindLastCharOccurence(fromText As String, searchChar As String) As Integer
Dim lastOccur As Integer
lastOccur = -1
Dim i As Integer
i = 0
For i = Len(fromText) To 1 Step -1
    If Mid(fromText, i, 1) = searchChar Then
        lastOccur = i
        Exit For
    End If
Next i

FindLastCharOccurence = lastOccur
End Function

Eu uso assim:

=RIGHT(A2, LEN(A2) - FindLastCharOccurence(A2, "\"))

Considerando parte de um comentário feito por @SSilk, meu objetivo final foi realmente obter tudo à direita dessa última ocorrência. Uma abordagem alternativa com uma fórmula muito simples é copiar uma coluna (digamos A) de strings e a cópia (digamos) Coluna B) aplique Localizar e Substituir. Por exemplo, tomando o exemplo:Drive:\Folder\SubFolder\Filename.ext

Isso retorna o que resta (aqui Filename.ext) após a última instância de qualquer caractere escolhido (aqui \), que às vezes é o objetivo de qualquer maneira e facilita encontrar a posição do último caractere com uma fórmula curta, como:

=FIND(B1,A1)-1

Estou um pouco atrasado para a festa, mas talvez isso possa ajudar. O link na pergunta tinha uma fórmula semelhante, mas o meu usa a instrução IF () para se livrar dos erros.

Se você não tem medo de Ctrl + Shift + Enter, pode se sair muito bem com uma fórmula de matriz.

String (na célula A1): "one.two.three.four"

Fórmula:

{=MAX(IF(MID(A1,ROW($1:$99),1)=".",ROW($1:$99)))}  use Ctrl+Shift+Enter

Resultado: 14

Primeiro,

ROW($1:$99)

retorna uma matriz de números inteiros de 1 a 99: {1,2,3,4,...,98,99} .

Próximo,

MID(A1,ROW($1:$99),1)

retorna uma matriz de cadeias de comprimento 1 encontrada na cadeia de destino e retorna cadeias em branco depois que o comprimento da cadeia de destino é atingido: {"o","n","e",".",..."u","r","","",""...}

Próximo,

IF(MID(I16,ROW($1:$99),1)=".",ROW($1:$99))

compara cada item na matriz com a sequência "." e retorna o índice do caractere na string ou FALSE:{FALSE,FALSE,FALSE,4,FALSE,FALSE,FALSE,8,FALSE,FALSE,FALSE,FALSE,FALSE,14,FALSE,FALSE.....}

Último,

=MAX(IF(MID(I16,ROW($1:$99),1)=".",ROW($1:$99)))

retorna o valor máximo da matriz: 14

As vantagens dessa fórmula são curtas, relativamente fáceis de entender e não requerem caracteres únicos.

As desvantagens são o uso obrigatório de Ctrl + Shift + Enter e a limitação no comprimento da string. Isso pode ser contornado com uma variação mostrada abaixo, mas essa variação usa a função OFFSET (), que é uma função volátil (leia-se: lenta).

Não tenho certeza de qual é a velocidade dessa fórmula em relação a outras.

Variações:

=MAX((MID(A1,ROW(OFFSET($A$1,,,LEN(A1))),1)=".")*ROW(OFFSET($A$1,,,LEN(A1)))) works the same way, but you don't have to worry about the length of the string

=SMALL(IF(MID(A1,ROW($1:$99),1)=".",ROW($1:$99)),2) determines the 2nd occurrence of the match

=LARGE(IF(MID(A1,ROW($1:$99),1)=".",ROW($1:$99)),2) determines the 2nd-to-last occurrence of the match

=MAX(IF(MID(I16,ROW($1:$99),2)=".t",ROW($1:$99))) matches a 2-character string **Make sure you change the last argument of the MID() function to the number of characters in the string you wish to match!

Nas versões mais recentes do Excel (2013 e posteriores), o preenchimento com flash pode ser uma solução simples e rápida, consulte: Usando o Flash Fill in Excel .

Uma maneira simples de fazer isso no VBA é:

YourText = "c:\excel\text.txt"
xString = Mid(YourText, 2 + Len(YourText) - InStr(StrReverse(YourText), "\" ))

Muito tarde para a festa, mas Uma solução simples está usando o VBA para criar uma função personalizada.

Adicione a função ao VBA na pasta de trabalho, planilha ou módulo VBA

Function LastSegment(S, C)
    LastSegment = Right(S, Len(S) - InStrRev(S, C))
End Function

Então a fórmula da célula

=lastsegment(B1,"/")

em uma célula e a sequência a ser pesquisada na célula B1 preencherá a célula com o texto após o último "/" da célula B1. Sem limite de comprimento, sem fórmulas obscuras. A única desvantagem que posso pensar é a necessidade de uma pasta de trabalho habilitada para macro.

Qualquer função VBA do usuário pode ser chamada dessa maneira para retornar um valor a uma fórmula de célula, inclusive como parâmetro para uma função interna do Excel.

Se você for usar muito a função, verifique se o caractere não está na string, então a string está em branco etc.

Célula A1 = find/the/position/of/the last slash

Uma maneira simples de fazer isso é inverter o texto e, em seguida, encontrar a primeira barra normalmente. Agora você pode obter o comprimento do texto completo menos esse número.

Igual a:

=LEN(A1)-FIND("/",REVERSETEXT(A1),1)+1

Isso retorna 21, a posição do último /