Excel: khớp ký tự / chuỗi cuối cùng trong chuỗi

Có cách nào hiệu quả để xác định khớp / ký tự cuối cùng trong chuỗi bằng các hàm cơ sở không? Tức là không phải là ký tự / chuỗi cuối cùng của chuỗi, mà là vị trí xuất hiện cuối cùng của một ký tự / chuỗi trong chuỗi. Searchvà findcả hai hoạt động từ trái sang phải để tôi không thể nghĩ cách áp dụng mà không cần thuật toán đệ quy dài. Và giải pháp này bây giờ có vẻ lỗi thời.

Với các phiên bản mới hơn của excel có các chức năng mới và do đó các phương thức mới. Mặc dù nó có thể nhân rộng trong các phiên bản cũ hơn (nhưng tôi chưa thấy nó trước đây), nhưng khi có Excel O365, người ta có thể sử dụng:

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

Điều này cũng có thể được sử dụng để lấy vị trí cuối cùng của các lớp nền (chồng chéo):

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

Trong khi cả hai điều này cho phép chúng ta không còn sử dụng một ký tự thay thế tùy ý và nó cho phép các mẫu chồng chéo, "nhược điểm" là việc sử dụng một mảng.

Lưu ý: Bạn có thể buộc hành vi tương tự trong các phiên bản Excel cũ hơn thông qua một trong hai

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

Đã nhập CtrlShiftEnterhoặc sử dụng nội tuyến INDEXđể thoát khỏi giao lộ ngầm:

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

Tôi nghĩ rằng tôi hiểu ý bạn. Ví dụ, giả sử bạn muốn có hầu hết \ trong chuỗi sau (được lưu trữ trong ô A1):

Ổ đĩa: \ Thư mục \ SubFolder \ Filename.ext

Để có được vị trí cuối cùng \, bạn sẽ sử dụng công thức này:

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

Điều đó cho chúng ta biết phần lớn quyền \ nằm ở ký tự 24. Nó thực hiện điều này bằng cách tìm kiếm "@" và thay thế "\" cuối cùng bằng "@". Nó xác định cái cuối cùng bằng cách sử dụng

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

Trong trường hợp này, chuỗi con chỉ đơn giản là "\" có độ dài bằng 1, do đó bạn có thể rời khỏi phân chia ở cuối và chỉ cần sử dụng:

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

Bây giờ chúng ta có thể sử dụng nó để có được đường dẫn thư mục:

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

Đây là đường dẫn thư mục không có dấu \

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

Và để có được tên tệp:

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

Tuy nhiên, đây là một phiên bản thay thế của việc đưa mọi thứ về bên phải của phiên bản cuối cùng của một nhân vật cụ thể. Vì vậy, sử dụng ví dụ tương tự của chúng tôi, điều này cũng sẽ trả về tên tệp:

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

Làm thế nào về việc tạo một chức năng tùy chỉnh và sử dụng chức năng đó trong công thức của bạn? VBA có chức năng tích hợp sẵn, InStrRevchính xác là những gì bạn đang tìm kiếm.

Đặt cái này trong một mô-đun mới:

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

Và hàm của bạn sẽ trông như thế này (giả sử chuỗi gốc nằm trong B1):

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

tigeravatar và Jean-François Corbett đề nghị sử dụng công thức này để tạo ra chuỗi bên phải của lần xuất hiện cuối cùng của ký tự "\"

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

Nếu ký tự được sử dụng làm dấu phân cách là dấu cách, "", thì công thức phải được thay đổi thành:

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

Không cần đề cập, ký tự "{" có thể được thay thế bằng bất kỳ ký tự nào không "bình thường" xảy ra trong văn bản để xử lý.

Chỉ cần đưa ra giải pháp này, không cần VBA;

Tìm sự xuất hiện cuối cùng của "_" trong ví dụ của tôi;

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

Giải thích từ trong ra ngoài;

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"

Hy vọng điều này là hữu ích.

Bạn có thể sử dụng hàm này do tôi tạo để tìm phiên bản cuối cùng của chuỗi trong chuỗi.

Chắc chắn công thức Excel được chấp nhận hoạt động, nhưng quá khó để đọc và sử dụng. Tại một số điểm, bạn phải chia thành các phần nhỏ hơn để có thể duy trì. Hàm của tôi dưới đây có thể đọc được, nhưng điều đó không liên quan vì bạn gọi nó trong một công thức sử dụng các tham số được đặt tên. Điều này làm cho việc sử dụng nó đơn giản.

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

Tôi sử dụng nó như thế này:

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

Xem xét một phần của Nhận xét do @SSilk đưa ra, mục tiêu cuối cùng của tôi thực sự là đưa mọi thứ về đúng với sự xuất hiện cuối cùng đó bằng một cách tiếp cận khác với một công thức rất đơn giản là sao chép một cột (nói A) chuỗi và trên bản sao (nói CộtB) áp dụng Tìm và Thay thế. Ví dụ lấy ví dụ:Drive:\Folder\SubFolder\Filename.ext

Điều này trả về những gì còn lại (ở đây Filename.ext) sau trường hợp cuối cùng của bất kỳ ký tự nào được chọn (ở đây \) đôi khi là mục tiêu và tạo điều kiện tìm vị trí của ký tự cuối cùng với một công thức ngắn như:

=FIND(B1,A1)-1

Tôi đến bữa tiệc muộn một chút, nhưng có lẽ điều này có thể giúp ích. Liên kết trong câu hỏi có công thức tương tự, nhưng tôi sử dụng câu lệnh IF () để loại bỏ lỗi.

Nếu bạn không sợ Ctrl + Shift + Enter, bạn có thể làm khá tốt với công thức mảng.

Chuỗi (trong ô A1): "one.two.three.four"

Công thức:

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

Kết quả: 14

Đầu tiên,

ROW($1:$99)

trả về một mảng các số nguyên từ 1 đến 99 : {1,2,3,4,...,98,99}.

Kế tiếp,

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

trả về một chuỗi các chuỗi có độ dài 1 được tìm thấy trong chuỗi đích, sau đó trả về các chuỗi trống sau khi đạt được độ dài của chuỗi mục tiêu: {"o","n","e",".",..."u","r","","",""...}

Kế tiếp,

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

so sánh từng mục trong mảng với chuỗi "." và trả về chỉ mục của ký tự trong chuỗi hoặc FALSE:{FALSE,FALSE,FALSE,4,FALSE,FALSE,FALSE,8,FALSE,FALSE,FALSE,FALSE,FALSE,14,FALSE,FALSE.....}

Cuối cùng,

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

trả về giá trị tối đa của mảng: 14

Ưu điểm của công thức này là nó ngắn, tương đối dễ hiểu và không yêu cầu bất kỳ ký tự duy nhất.

Nhược điểm là yêu cầu sử dụng Ctrl + Shift + Enter và giới hạn về độ dài chuỗi. Điều này có thể được xử lý xung quanh với một biến thể được hiển thị bên dưới, nhưng biến thể đó sử dụng hàm OFFSET () là hàm biến động (đọc: chậm).

Không chắc chắn tốc độ của công thức này là gì so với những người khác.

Biến thể:

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

Trong các phiên bản mới hơn của flash fill (2013 trở lên) có thể là một giải pháp đơn giản và nhanh chóng, hãy xem: Sử dụng Flash Fill trong Excel .

Một cách đơn giản để làm điều đó trong VBA là:

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

Rất muộn cho bữa tiệc, nhưng Một giải pháp đơn giản là sử dụng VBA để tạo chức năng tùy chỉnh.

Thêm chức năng vào VBA trong WorkBook, Worksheet hoặc VBA Module

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

Sau đó, công thức tế bào

=lastsegment(B1,"/")

trong một ô và chuỗi được tìm kiếm trong ô B1 sẽ điền vào ô có văn bản theo dấu "/" cuối cùng từ ô B1. Không giới hạn chiều dài, không có công thức tối nghĩa. Nhược điểm duy nhất tôi có thể nghĩ là cần một bảng tính kích hoạt macro.

Bất kỳ Hàm VBA người dùng nào cũng có thể được gọi theo cách này để trả về giá trị cho công thức ô, bao gồm làm tham số cho hàm Excel dựng sẵn.

Nếu bạn định sử dụng chức năng nhiều, bạn sẽ muốn kiểm tra trường hợp khi ký tự không có trong chuỗi, thì chuỗi trống, v.v.

Tế bào A1 = find/the/position/of/the last slash

Cách đơn giản để làm điều đó là đảo ngược văn bản và sau đó tìm dấu gạch chéo đầu tiên như bình thường. Bây giờ bạn có thể nhận được độ dài của toàn văn trừ số này.

Thích như vậy:

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

Điều này trả về 21, vị trí cuối cùng /