我想我明白你的意思了。假设你想要下面字符串中最右边的\(存储在A1单元格中):

驱动器:\ \子文件夹Filename文件夹。请拨分机

为了得到最后一个\的位置，你可以使用这个公式:

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

这告诉我们最右边的\在第24个字符。它通过查找“@”并将最后一个“\”替换为“@”来实现这一点。它通过使用来确定最后一个

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

在这种情况下，子字符串就是长度为1的“\”，所以你可以在结尾省去除法，只使用:

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

现在我们可以使用它来获取文件夹路径:

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

下面是没有结尾\的文件夹路径

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

要获得文件名:

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

但是，这里有一个替代版本，可以使所有内容都位于特定字符的最后一个实例的右侧。所以使用我们同样的例子，这也会返回文件名:

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

您可以使用我创建的这个函数来查找字符串中的字符串的最后一个实例。

当然，公认的Excel公式是可行的，但它太难以阅读和使用。在某种程度上，你必须把它分解成更小的块，这样它才可维护。下面的函数是可读的，但这无关紧要，因为您在使用命名参数的公式中调用它。这使得使用它很简单。

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

我是这样使用的:

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

如何创建一个自定义函数并在您的公式中使用它?VBA有一个内置的函数，InStrRev，它所做的正是您正在寻找的。

把这个放到一个新模块中:

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

你的函数看起来像这样(假设原始字符串在B1中):

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

在VBA中一个简单的方法是:

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

tigeravatar和Jean-François Corbett建议使用这个公式来生成“\”字符最后一次出现的右侧的字符串

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

如果用作分隔符的字符是空格，" "，则公式必须更改为:

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

不用说，“{”字符可以替换为任何“通常”不会出现在要处理的文本中的字符。

我来晚了一点，但也许这个能帮上忙。问题中的链接使用了类似的公式，但我的链接使用IF()语句来消除错误。

如果你不怕Ctrl+Shift+Enter，你可以很好地使用数组公式。

字符串(在单元格A1中): “one.two.three.four”

公式:

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

结果:14

首先,

ROW($1:$99)

返回1到99的整数数组:{1,2,3,4，…，98,99}。

接下来,

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

返回一个在目标字符串中找到的长度为1的字符串数组，然后在达到目标字符串的长度后返回空白字符串:{"o"，"n"，"e"，"."，…"u"，"r"，""，""，""…}

接下来,

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

将数组中的每个项与字符串"."进行比较，并返回字符串中字符的索引或FALSE: {FALSE,FALSE,FALSE,4,FALSE,FALSE,FALSE,8,FALSE,FALSE,FALSE,FALSE,FALSE, FALSE,14,FALSE,FALSE.....}

最后的

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

返回数组的最大值:14

这个公式的优点是简短，相对容易理解，并且不需要任何唯一的字符。

缺点是需要使用Ctrl+Shift+Enter和字符串长度的限制。这可以通过如下所示的变化来解决，但该变化使用OFFSET()函数，这是一个volatile(读取:slow)函数。

不知道这个公式的速度是多少。

变化:

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

刚想出这个解决方案，不需要VBA;

找到我的例子中最后出现的“_”;

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

由内而外解释;

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"

希望这对你有帮助。

考虑到@SSilk所做的评论的一部分，我的最终目标真的是让一切都正确的最后一次出现，一个非常简单的公式的替代方法是复制字符串的列(说a)，并在副本(说ColumnB)应用查找和替换。以驱动器:\文件夹\子文件夹\文件名.ext为例

这将返回所选择字符(这里\)的最后一个实例(这里是\)之后的剩余内容(这里是Filename.ext)，这有时是目标，并且有助于用一个简短的公式找到最后一个这样的字符的位置，例如:

=FIND(B1,A1)-1

很晚了，但是一个简单的解决方案是使用VBA创建一个自定义函数。

将功能添加到工作簿、工作表或VBA模块中的VBA

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

然后是单元格公式

=lastsegment(B1,"/")

在单元格中，在单元格B1中要搜索的字符串将用单元格B1中以最后一个“/”结尾的文本填充该单元格。 没有长度限制，没有晦涩的公式。 我认为唯一的缺点是需要启用宏的工作簿。

任何用户VBA函数都可以以这种方式调用，以向单元格公式返回值，包括作为内置Excel函数的参数。

如果你打算大量使用这个函数，你会想要检查字符不在字符串中，字符串为空等情况。

在新版本的Excel(2013年及以上)中，闪光填充可能是一个简单而快速的解决方案:在Excel中使用闪光填充 ．

单元格A1 =查找/the/position/的/最后一个斜杠

简单的方法是反转文本，然后找到第一个斜杠。现在你可以得到全文的长度减去这个数字。

像这样:

=LEN（A1）-FIND（“/”，REVERSETEXT（A1），1）+1

返回最后一个/的位置21

新答案| 31-3-2022:

更新的功能会带来更短的答案。在编写测试版时，我们可以使用TEXTBEFORE()，但在不久的将来可能会广泛使用:

=LEN(TEXTBEFORE(A2,B2,-1))+1

这里的技巧是，第3个形参告诉函数检索我们在第二个形参中给出的子字符串的最后一次出现。在编写此函数时，默认情况下该函数仍然是区分大小写的，可以由可选的第4个参数处理。

原答案| 17-6-2020:

新版本的excel有了新的函数，也就有了新的方法。虽然它可以在旧版本中复制(但我以前没有见过)，当你有Excel O365时，你可以使用:

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

这也可以用来检索(重叠)子字符串的最后位置:

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

虽然这既允许我们不再使用任意替换字符，也允许重叠模式，但“缺点”是使用数组。

注意:你可以在旧的Excel版本中强制相同的行为

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

通过CtrlShiftEnter输入，或者使用内联INDEX来消除隐式交集:

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

如果您只查找字符“~”的最后一个实例的位置，那么 = len(替代(字符串 ,"~",""))+ 1

我确信有一个版本将与字符串的最后一个实例一起工作，但我必须回去工作。

对于A1中的字符串和B1中的子字符串，使用:

= XMATCH (B1,中期(A1,序列(LEN (A1)), LEN (B1)),, 1)

从内到外，MID(A1,SEQUENCE(LEN(A1))，LEN(B1))将字符串A1拆分为一个动态的子字符串数组，每个子字符串的长度为B1。为了找到子字符串B1最后出现的位置，我们使用XMATCH并将其Search_mode参数设置为-1。