Tách chuỗi ký tự (số thư) và tiêu đề thư

[KhoiSMC]

Xin chào các bạn,

Một mong muốn xin hỏi ý kiến các bạn, như sau:

Xin các bạn giúp đỡ.

Khoi

 

[hungpecc1]

Xin chào các bạn,

Một mong muốn xin hỏi ý kiến các bạn, như sau:
View attachment 115128
Xin các bạn giúp đỡ.

Khoi

Nếu là mình,mình sẽ xử lý bài này theo hàm tự tạo ( bạn có thể tham khảo hàm tự tạo sau

Public Function GPE(source) As String
    Dim str$
        str = CStr(source)
        With CreateObject("vbscript.regexp")
             .IgnoreCase = True
            .Pattern = "\w+\s*(?:-\s*\w+)+"
            If .test(str) then  GPE = .Execute(str)(0)
        End With
End Function

==> Công thức cho ô B2:

=GPE(A2)

 

[Hai Lúa Miền Tây]

Xin chào các bạn,

Một mong muốn xin hỏi ý kiến các bạn, như sau:
View attachment 115128
Xin các bạn giúp đỡ.

Khoi

B2=LEFT(A2,SEARCH(" ",A2)) --> Kéo xuống.

 

[KhoiSMC]

B2=LEFT(A2,SEARCH(" ",A2)) --> Kéo xuống.

uh nhỉ, sao đơn giản thế mà lại đúng phóc ý mình.
Trời đúng là phải hiểu rõ cơ sở dữ liệu thì bài toán giải quyết rất đơn giản.

Cám ơn bạn nhiều,
Khoi

 

[KhoiSMC]

Nếu là mình,mình sẽ xử lý bài này theo hàm tự tạo ( bạn có thể tham khảo hàm tự tạo sau

Public Function GPE(source) As String
    Dim str$
        str = CStr(source)
        With CreateObject("vbscript.regexp")
            .Global = True: .IgnoreCase = True
            .Pattern = "\w+\s*(?:-\s*\w+)+"
            If .test(str) then  GPE = .Execute(str)(0)
        End With
End Function

==> Công thức cho ô B2:

=GPE(A2)

Cám ơn bạn nhiều nhé,
Mình sẽ áp dụng vào file đang làm việc hiện nay, VBA sử lý được hầu hết các yêu cầu công viêc,
Cần phải học VBA nhiều nữa.

Cám ơn bạn,
Khoi

 

[dhn46]

Nếu là mình,mình sẽ xử lý bài này theo hàm tự tạo ( bạn có thể tham khảo hàm tự tạo sau

Public Function GPE(source) As String
    Dim str$
        str = CStr(source)
        With CreateObject("vbscript.regexp")
[COLOR=#008000][B]             .IgnoreCase = True
            .Pattern = "\w+\s*(?:-\s*\w+)+"[/B][/COLOR]
            If .test(str) then  GPE = .Execute(str)(0)
        End With
End Function

==> Công thức cho ô B2:

=GPE(A2)

Đoạn màu xanh chỉ cần vầy là đù

.Pattern = "\S+"

 

[hungpecc1]

Đoạn màu xanh chỉ cần vầy là đù

.Pattern = "\S+"

"\S+" chỉ đúng với dữ liệu "chuẩn" như file của chủ topic, trong quá trình nhập cơ sở dữ liệu có thể vô tình phát sinh những khoảng trắng, dấu cách --> mình nghĩ nên xét cả trường hợp như vậy !
còn nếu dữ liệu luôn luôn "đẹp" như file đính kèm, thì công thức của a Hai Lúa Miền Tây là đơn giản và hiêu quả nhất rồi!

 

[dhn46]

"\S+" chỉ đúng với dữ liệu "chuẩn" như file của chủ topic, trong quá trình nhập cơ sở dữ liệu có thể vô tình phát sinh những khoảng trắng, dấu cách --> mình nghĩ nên xét cả trường hợp như vậy !
còn nếu dữ liệu luôn luôn "đẹp" như file đính kèm, thì công thức của a Hai Lúa Miền Tây là đơn giản và hiêu quả nhất rồi!

Nếu khả năng thì cũng còn nhiều bạn ah. Bạn thử thêm 2 dấu cách vào 2 khoảng ký tự chứa dấu - xem kết quả ví dụ như

CS2-RPMU-C P2-C P3-0583 Safety of construction work on site at CP2, CP3, Yen Vien -Lao Cai Railway upgrading project.pdf

Nhưng cách của bạn cũng là một giải pháp hay!

 

[KhoiSMC]

ui sao các bạn giỏi thật đấy,
để mình lưu hết đoạn code này để xử lý vấn đề,

Thanks các bạn nhiều.
Khoi