Xin giải pháp tách mã phiếu từ nội dung tổng hợp có nhiều thông tin (1 người xem)

LanAnh139 · 5/3/24

XIn chào các bác, em hơi kém môn excel nên muốn nhờ các cao nhân chỉ giáo giúp em để có thể giải được bài toán này ạ.
Em có các thông tin chuỗi như sau ạ. Mong nhờ các bác giúp em lọc được ra thông tin ở cột thứ 2 với ạ, em xin cảm ơn.

Nội dung giả định

Nội dung mong muốn

ghi chú

33B1 49B1 GD 985340-021824 09:35:13

33B1 và 49B1

NGUYEN VAN A CHUYEN TIEN 607MN4 FT14561235468796 GD 520920-021824 09:33:15

607MN4

MBVCB.1235415464.031619.30604MN2.CT TU 078451265 NGUYEN VAN A TOI 57145621 TRAN VAN B TAI BANK GD 123456-654321 09:30:21

30604MN2

THANH TOAN QR 22B8 GD 673230-234578 09:56:24

22B8

HieuCD · 5/3/24

LanAnh139 đã viết:
XIn chào các bác, em hơi kém môn excel nên muốn nhờ các cao nhân chỉ giáo giúp em để có thể giải được bài toán này ạ.
Em có các thông tin chuỗi như sau ạ. Mong nhờ các bác giúp em lọc được ra thông tin ở cột thứ 2 với ạ, em xin cảm ơn.

Nội dung giả định Nội dung mong muốn ghi chú

33B1 49B1 GD 985340-021824 09:35:13

33B1 và 49B1

NGUYEN VAN A CHUYEN TIEN 607MN4 FT14561235468796 GD 520920-021824 09:33:15

607MN4

MBVCB.1235415464.031619.30604MN2.CT TU 078451265 NGUYEN VAN A TOI 57145621 TRAN VAN B TAI BANK GD 123456-654321 09:30:21

30604MN2

THANH TOAN QR 22B8 GD 673230-234578 09:56:24

22B8

Vấn đề khá rối, gởi file với nhiều dạng ví dụ minh họa hơn, hy vọng VBA xử lý được

HUONGHCKT · 5/3/24

LanAnh139 đã viết:
XIn chào các bác, em hơi kém môn excel nên muốn nhờ các cao nhân chỉ giáo giúp em để có thể giải được bài toán này ạ.
Em có các thông tin chuỗi như sau ạ. Mong nhờ các bác giúp em lọc được ra thông tin ở cột thứ 2 với ạ, em xin cảm ơn.

Nội dung giả định Nội dung mong muốn ghi chú

33B1 49B1 GD 985340-021824 09:35:13

33B1 và 49B1

NGUYEN VAN A CHUYEN TIEN 607MN4 FT14561235468796 GD 520920-021824 09:33:15

607MN4

MBVCB.1235415464.031619.30604MN2.CT TU 078451265 NGUYEN VAN A TOI 57145621 TRAN VAN B TAI BANK GD 123456-654321 09:30:21

30604MN2

THANH TOAN QR 22B8 GD 673230-234578 09:56:24

22B8

@LanAnh139
Không dám nhận là "cao nhân, thấp nhân,..." gì, nhưng mạo muội với bạn chủ thớt Tham khảo code cùi bắp sau:

Mã:

Option Explicit

Sub Tach()
Dim i&, j&, Lr&
Dim Arr(), KQ(), S, Temp As String
With Sheet1
Lr = .Cells(1000, 1).End(xlUp).Row
Arr = .Range("A4:A" & Lr).Value
ReDim KQ(1 To UBound(Arr), 1 To 1)
For i = 1 To UBound(Arr)
    Temp = Application.Substitute(Arr(i, 1), "-", " ")
    Temp = Application.Substitute(Temp, ":", " ")
    Temp = Application.Substitute(Temp, ".", " ")
    S = Split(Temp, " ")
        For j = LBound(S) To UBound(S)
            If IsNumeric(S(j)) = False And IsNumeric(Left(S(j), 1)) And IsNumeric(Right(S(j), 1)) Then
                If KQ(i, 1) = Empty Then KQ(i, 1) = S(j) Else KQ(i, 1) = KQ(i, 1) & " và " & S(j)
            End If
        Next j
Next i
.Range("C4").Resize(i - 1, 1) = KQ
End With
End Sub

Code này có thể chỉ đúng với dữ liệu đã cho.

CHAOQUAY · 6/3/24

LanAnh139 đã viết:
XIn chào các bác, em hơi kém môn excel nên muốn nhờ các cao nhân chỉ giáo giúp em để có thể giải được bài toán này ạ.
Em có các thông tin chuỗi như sau ạ. Mong nhờ các bác giúp em lọc được ra thông tin ở cột thứ 2 với ạ, em xin cảm ơn.

Nội dung giả định Nội dung mong muốn ghi chú

33B1 49B1 GD 985340-021824 09:35:13

33B1 và 49B1

NGUYEN VAN A CHUYEN TIEN 607MN4 FT14561235468796 GD 520920-021824 09:33:15

607MN4

MBVCB.1235415464.031619.30604MN2.CT TU 078451265 NGUYEN VAN A TOI 57145621 TRAN VAN B TAI BANK GD 123456-654321 09:30:21

30604MN2

THANH TOAN QR 22B8 GD 673230-234578 09:56:24

22B8

Mã:

Sub abc()
Dim Nguon
Dim Kq
Dim rws
Dim i, j, k

Nguon = Sheet1.Range("A2:A5")
rws = UBound(Nguon)
ReDim Kq(1 To rws, 1 To 1)

For i = 1 To rws
    k = IIf(InStr(Nguon(i, 1), "."), ".", " ")
    For Each j In Split(Nguon(i, 1), k)
        If IsNumeric(Left(j, 1)) Then
            If IsNumeric(Right(j, 1)) Then
                If IsNumeric(Mid(j, Len(j) - 1, 1)) = False Then
                    Kq(i, 1) = Kq(i, 1) & " " & j
                End If
            End If
        End If
    Next j
    Kq(i, 1) = Trim(Kq(i, 1))
Next i
Sheet1.Range("B2").Resize(rws, 1) = Kq
End Sub

SA_DQ · 6/3/24

LanAnh139 đã viết:
. . . . Em có các thông tin chuỗi như sau ạ. Mong nhờ các bác giúp em lọc được ra thông tin như ở cột . . . .

Nội dung giả định Nội dung mong muốn ghi chú

33B1 49B1 GD 985340-021824 09:35:13

33B1 và 49B1

NGUYEN VAN A CHUYEN TIEN 607MN4 FT14561235468796 GD 520920-021824 09:33:15

607MN4

MBVCB.1235415464.031619.30604MN2.CT TU 078451265 NGUYEN VAN A TOI 57145621 TRAN VAN B TAI BANK GD 123456-654321 09:30:21

30604MN2

THANH TOAN QR 22B8 GD 673230-234578 09:56:24

22B8

(/ấn đề chắc đang là nhờ cộng đồng này dọn rác dùm từ phần mềm tạo rác nào đó?
$$$$@

LanAnh139 · 6/3/24

Em không biết coi là rác không, nhưng nội dung diễn giải trong sao kê ngân hàng nó tả phí lù như vậy đấy bác ạ

(

HieuCD đã viết:
Vấn đề khá rối, gởi file với nhiều dạng ví dụ minh họa hơn, hy vọng VBA xử lý

HieuCD đã viết:

Vấn đề khá rối, gởi file với nhiều dạng ví dụ minh họa hơn, hy vọng VBA xử lý được

Nhấp chuột vào đây để mở rộng...

đấy là ví dụ về nội dung sao kê ngân hàng bác ạ, nó khá là hỗn loạn, mỗi đầu ngân hàng chuyển nó sẽ có những hiển thị thay đổi 1 chút. Em mong muốn là tìm ra cách để lọc được nội dung mã hàng hóa, mã phiếu mà khách hàng nhập trong nội dung thanh toán kia ạ, làm được 80% thôi là em cũng đã mừng lắm chứ cũng không kỳ vọng có thể ra được 100%.

SA_DQ đã viết:
(/ấn đề chắc đang là nhờ cộng đồng này dọn rác dùm từ phần mềm tạo rác nào đó?

LanAnh139 · 6/3/24

Bác cho em hỏi, với code này, thì lúc nhập vào excel em nhập câu lệnh là gì ạ, bác thông cảm em kém món này quá nên hỏi có phần ngu ngơ

HUONGHCKT đã viết:

@LanAnh139
Không dám nhận là "cao nhân, thấp nhân,..." gì, nhưng mạo muội với bạn chủ thớt Tham khảo code cùi bắp sau:

Mã:

Option Explicit

Sub Tach()
Dim i&, j&, Lr&
Dim Arr(), KQ(), S, Temp As String
With Sheet1
Lr = .Cells(1000, 1).End(xlUp).Row
Arr = .Range("A4:A" & Lr).Value
ReDim KQ(1 To UBound(Arr), 1 To 1)
For i = 1 To UBound(Arr)
    Temp = Application.Substitute(Arr(i, 1), "-", " ")
    Temp = Application.Substitute(Temp, ":", " ")
    Temp = Application.Substitute(Temp, ".", " ")
    S = Split(Temp, " ")
        For j = LBound(S) To UBound(S)
            If IsNumeric(S(j)) = False And IsNumeric(Left(S(j), 1)) And IsNumeric(Right(S(j), 1)) Then
                If KQ(i, 1) = Empty Then KQ(i, 1) = S(j) Else KQ(i, 1) = KQ(i, 1) & " và " & S(j)
            End If
        Next j
Next i
.Range("C4").Resize(i - 1, 1) = KQ
End With
End Sub

Code này có thể chỉ đúng với dữ liệu đã cho.

HUONGHCKT · 6/3/24

LanAnh139 đã viết:
Bác cho em hỏi, với code này, thì lúc nhập vào excel em nhập câu lệnh là gì ạ, bác thông cảm em kém món này quá nên hỏi có phần ngu ngơ

Bạn có biết tại sao ít người hỗ trợ bạn không? Bởi vì bạn không đăng cái file giả định của bạn lên. Họ code cho bạn họ phải giả định dữ liệu. sau khi chạy thử xong thì họ xóa bỏ file luôn.

Còn muốn thì : Mở file có dữ liệu lên.=>nhấn Alt+F11 => hiện của sổ VBE ra => vào insert/chon module/ Paste code vào .
Ra ngoài màn hình (đang hiện thị bảng tính): Chon Insert / chọn IIIlustrations/Chọn Shapes/Vẽ 1 shape/Phải chuột vào Shapes vừa vẽ /chọn Assigns Macro/Chọn Vào Tên module vừa Paste/Chọn OK
Từ bây giờ click chuột vào Shapes là code chạy.

Chúc thành công.

LanAnh139 · 6/3/24

CHAOQUAY đã viết:

Mã:

Sub abc()
Dim Nguon
Dim Kq
Dim rws
Dim i, j, k

Nguon = Sheet1.Range("A2:A5")
rws = UBound(Nguon)
ReDim Kq(1 To rws, 1 To 1)

For i = 1 To rws
    k = IIf(InStr(Nguon(i, 1), "."), ".", " ")
    For Each j In Split(Nguon(i, 1), k)
        If IsNumeric(Left(j, 1)) Then
            If IsNumeric(Right(j, 1)) Then
                If IsNumeric(Mid(j, Len(j) - 1, 1)) = False Then
                    Kq(i, 1) = Kq(i, 1) & " " & j
                End If
            End If
        End If
    Next j
    Kq(i, 1) = Trim(Kq(i, 1))
Next i
Sheet1.Range("B2").Resize(rws, 1) = Kq
End Sub

Em cảm ơn bác, em sẽ làm thử ạ.

Bài đã được tự động gộp: 6/3/24

HUONGHCKT đã viết:
Bạn có biết tại sao ít người hỗ trợ bạn không? Bởi vì bạn không đăng cái file giả định của bạn lên. Họ code cho bạn họ phải giả định dữ liệu. sau khi chạy thử xong thì họ xóa bỏ file luôn.

Còn muốn thì : Mở file có dữ liệu lên.=>nhấn Alt+F11 => hiện của sổ VBE ra => vào insert/chon module/ Paste code vào .
Ra ngoài màn hình (đang hiện thị bảng tính): Chon Insert / chọn IIIlustrations/Chọn Shapes/Vẽ 1 shape/Phải chuột vào Shapes vừa vẽ /chọn Assigns Macro/Chọn Vào Tên module vừa Paste/Chọn OK
Từ bây giờ click chuột vào Shapes là code chạy.

Chúc thành công.

mình cảm ơn bạn đã đóng góp ý kiến, mình sẽ lưu ý, mong được mọi người chỉ giáo nhiều nhiều

VetMini · 6/3/24

SA_DQ đã viết:
(/ấn đề chắc đang là nhờ cộng đồng này dọn rác dùm từ phần mềm tạo rác nào đó?

Bình thường chứ gì. Có được bao nhiêu phần trăm chuyện trích chuỗi đưa lên đây mà chẳng phải từ chuỗi rác?
Có lúc vừa đưa rác vừa chưởi mà cũng đâm đầu vào.
(nhớ cách đây mấy năm có kẻ thẳng thừng nói "diễn đàn cũng như công viên, chỉ ghé vào khi cần giải quyết...")

Mã:

Function TachMa(s As String)
' hàm đọc chuỗi s, lọc lấy ra những chuỗi con ở dạng 9999MN9, hoặc 999B9
' trả về mảng chuỗi đã lọc được.
With CreateObject("vbscript.regexp")
  .Global = True
  .MultiLine = MultiLine
  .IgnoreCase = IgnoreCase
  .Pattern = "\d+(B|MN)\d"
  Set matches = .Execute(s)
End With
If matches.Count > 0 Then
  ReDim a(1 To matches.Count)
  For Each mtch In matches
    i = i + 1
    a(i) = mtch
  Next mtch
  TachMa = a
End If
End Function

LanAnh139 · 7/3/24

VetMini đã viết:
Bình thường chứ gì. Có được bao nhiêu phần trăm chuyện trích chuỗi đưa lên đây mà chẳng phải từ chuỗi rác?
Có lúc vừa đưa rác vừa chưởi mà cũng đâm đầu vào.
(nhớ cách đây mấy năm có kẻ thẳng thừng nói "diễn đàn cũng như công viên, chỉ ghé vào khi cần giải quyết...")

Mã:

Function TachMa(s As String) ' hàm đọc chuỗi s, lọc lấy ra những chuỗi con ở dạng 9999MN9, hoặc 999B9 ' trả về mảng chuỗi đã lọc được. With CreateObject("vbscript.regexp") .Global = True .MultiLine = MultiLine .IgnoreCase = IgnoreCase .Pattern = "\d+(B|MN)\d" Set matches = .Execute(s) End With If matches.Count > 0 Then ReDim a(1 To matches.Count) For Each mtch In matches i = i + 1 a(i) = mtch Next mtch TachMa = a End If End Function

cảm ơn bác rất nhiều ạ, với function này em làm ra kết quả được 80% rồi bác ạ, nếu em thêm dạng mẫu chuỗi con vào thì kết quả sẽ mở rộng hơn phải không bác?

hocexcel_1991 · 7/3/24

Xem thử hàm này lấy được bao nhiêu %, sử dụng excel365
1/Tách chuỗi theo các ký tự {"."," ","-"}
2/Trong chuỗi gồm có số (đầu và cuối) và các chữ cái (A,B,C...) có trong chuỗi

Mã:

=MAP(B4:B7,LAMBDA(m,LET(t,TEXTSPLIT(m,,{"."," ","-"}),ARRAYTOTEXT(FILTER(t,MAP(t,LAMBDA(x,LET(md,MID(x,SEQUENCE(LEN(x)),1),AND(ISNUMBER(--LEFT(x,1)),ISNUMBER(--RIGHT(x,1)),AND(IFERROR(BYROW(N(FILTER(md,ISERR(--md))=CHAR(SEQUENCE(,26,65))),SUM),)))))))))))

cantl · 7/3/24

LanAnh139 đã viết:
80%

Vậy mấy code ở trển thì bao nhiêu % nhẩy?
Và 20% còn lại thế nào?
Bạn hãy đưa thêm dạng để trăm phần trăm. --=0

LanAnh139 · 7/3/24

cantl đã viết:
Vậy mấy code ở trển thì bao nhiêu % nhẩy?
Và 20% còn lại thế nào?
Bạn hãy đưa thêm dạng để trăm phần trăm.

mấy code trên em test đang bị lỗi với file gốc của em bác ạ, có thể là do em làm chưa đúng cách

.
Function trên em lọc được các mã có dạng 12345MN1, 123B1 rồi, em còn mã phiếu em dạng 12345PT12, 12345CC12, 123C12, 12345BAC nữa bác ạ. Trước mắt như thế này em thấy mừng rơi nước mắt rồi ạ, em làm bằng hàm mid thì ra được 60%, mà vẫn phải thủ công một vài chỗ, cảm ơn các bác nhiều lắm ạ.

cantl · 7/3/24

LanAnh139 đã viết:
12345PT12, 12345CC12, 123C12, 12345BAC

Nếu thế này thì tớ đề nghị thế này, hy vọng tự sửa được:

Mã:

Function TachMa(s As String, pat$)

...

  .Pattern = pat '"\d+(B|MN)\d"
 
...

Hàm: =TachMa(ô chứa;"\b\d{1,5}[A-Z]{1,3}(\d+|\b)")

Nếu chưa đạt trăm / trăm thì nông dân tay làm hàm nhai là thượng sách, dữ liệu quá đa năng, làm ăn quá rộng, chuyển khoản đủ kiểu.

VetMini · 7/3/24

Có thể cần một function en-Regex Pattern.
Bạn đưa TẤT CẢ các mẫu lên (nằm trong một WorkSheet nào đó). Nếu rảnh tôi sẽ viết cài hàm encode này.

HUONGHCKT · 7/3/24

LanAnh139 đã viết:
mấy code trên em test đang bị lỗi với file gốc của em bác ạ, có thể là do em làm chưa đúng cách .
Function trên em lọc được các mã có dạng 12345MN1, 123B1 rồi, em còn mã phiếu em dạng 12345PT12, 12345CC12, 123C12, 12345BAC nữa bác ạ. Trước mắt như thế này em thấy mừng rơi nước mắt rồi ạ, em làm bằng hàm mid thì ra được 60%, mà vẫn phải thủ công một vài chỗ, cảm ơn các bác nhiều lắm ạ.

Kể ra dữ liệu mà nhiều(100000 data) với lại nhiều kiểu ấy và không có quy luật thì cũng mệt.
Góp vui bằng 1 hàm UDF:

Mã:

Function Tach(ByVal Arr As Range) As String
Dim i&, j&, Lr&
Dim KQ(), S, Temp As String
With Sheet1
    Temp = Replace(Replace(Replace(Arr, "-", " "), ":", " "), ".", " ")
    S = Split(Temp, " ")
        For j = LBound(S) To UBound(S)
            If IsNumeric(S(j)) = False And IsNumeric(Left(S(j), 1)) And IsNumeric(Right(S(j), 1)) Then
                If Tach = Empty Then Tach = S(j) Else Tach = Tach & " và " & S(j)
            End If
        Next j

End With
End Function

LanAnh139 · 7/3/24

HUONGHCKT đã viết:
Kể ra dữ liệu mà nhiều(100000 data) với lại nhiều kiểu ấy và không có quy luật thì cũng mệt.
Góp vui bằng 1 hàm UDF:

Mã:

Function Tach(ByVal Arr As Range) As String Dim i&, j&, Lr& Dim KQ(), S, Temp As String With Sheet1 Temp = Replace(Replace(Replace(Arr, "-", " "), ":", " "), ".", " ") S = Split(Temp, " ") For j = LBound(S) To UBound(S) If IsNumeric(S(j)) = False And IsNumeric(Left(S(j), 1)) And IsNumeric(Right(S(j), 1)) Then If Tach = Empty Then Tach = S(j) Else Tach = Tach & " và " & S(j) End If Next j End With End Function

cảm ơn bác, em đã test thử kết quả ra tương đối bác ạ, nó vẫn bị lỗi ở một số dòng nó lọc cả thông tin mà không phải mã cần lọc nữa bác ạ.

Bài đã được tự động gộp: 7/3/24

cantl đã viết:
Nếu thế này thì tớ đề nghị thế này, hy vọng tự sửa được:

Mã:

Function TachMa(s As String, pat$) ... .Pattern = pat '"\d+(B|MN)\d" ...

Hàm: =TachMa(ô chứa;"\b\d{1,5}[A-Z]{1,3}(\d+|\b)")

Nếu chưa đạt trăm / trăm thì nông dân tay làm hàm nhai là thượng sách, dữ liệu quá đa năng, làm ăn quá rộng, chuyển khoản đủ kiểu.

sửa ntn nó lại ra ít kết quả hơn hàm cũ bác ạ.

Quang_Hải · 7/3/24

LanAnh139 đã viết:
cảm ơn bác, em đã test thử kết quả ra tương đối bác ạ, nó vẫn bị lỗi ở một số dòng nó lọc cả thông tin mà không phải mã cần lọc nữa bác ạ.

Bài đã được tự động gộp: 7/3/24

sửa ntn nó lại ra ít kết quả hơn hàm cũ bác ạ.

Chỉ có việc copy cái cột chứa dữ liệu vào 1 sheet rồi gởi lên mà không làm được thì còn làm được gì tốt hơn? Nhìn lướt qua thì cũng không đến nổi quá khó. Tuy nhiên không biết ông bà nào đã tạo ra 1 loại dữ liệu nguồn đáng kính nể. Bái phục thiệt đó.

cantl · 7/3/24

LanAnh139 đã viết:
ít kết quả hơn

hehe, dữ liệu giới hạn nên nó chỉ hên xui phần nào thôi. Điển hình là 5.

LanAnh139 · 7/3/24

Quang_Hải đã viết:
Chỉ có việc copy cái cột chứa dữ liệu vào 1 sheet rồi gởi lên mà không làm được thì còn làm được gì tốt hơn? Nhìn lướt qua thì cũng không đến nổi quá khó. Tuy nhiên không biết ông bà nào đã tạo ra 1 loại dữ liệu nguồn đáng kính nể. Bái phục thiệt đó.

dạ cảm ơn bác đóng góp ý kiến ạ, việc cop dữ liệu thì nó không khó, mà vì công ty em có quy định nên em cũng phải cân nhắc, do vậy em mới phải làm giả định ạ.

Bài đã được tự động gộp: 7/3/24

VetMini đã viết:
Có thể cần một function en-Regex Pattern.
Bạn đưa TẤT CẢ các mẫu lên (nằm trong một WorkSheet nào đó). Nếu rảnh tôi sẽ viết cài hàm encode này.

em hiểu ý của bác rồi, em cũng nghĩ về giải pháp như vậy mà em không biết code như thế nào cho chuẩn

cảm ơn bác nhiều

ongke0711 · 7/3/24

Quang_Hải đã viết:
Tuy nhiên không biết ông bà nào đã tạo ra 1 loại dữ liệu nguồn đáng kính nể. Bái phục thiệt đó.

Ông Vietcombank đó bác. Bác mở cái tài khoản, nhận tiền hơn 100 giao dịch một ngày sẽ thấy thôi.

VetMini · 7/3/24

ongke0711 đã viết:
Ông Vietcombank đó bác. Bác mở cái tài khoản, nhận tiền hơn 100 giao dịch một ngày sẽ thấy thôi.

Cái Reference chỉ dùng để nhắc nhở. Dùng để tìm cái phát sinh có chứa chuỗi X.
Nhà băng, nếu không có cách khác để sort thì họ dùng dạng cube để lọc tìm. Ngoài khả năng của hầu hết người trên đây.

@thớt: Regex chỉ có hiệu quả nếu số biểu mẫu không lớn lắm.

LanAnh139 · 11/3/24

VetMini đã viết:
Có thể cần một function en-Regex Pattern.
Bạn đưa TẤT CẢ các mẫu lên (nằm trong một WorkSheet nào đó). Nếu rảnh tôi sẽ viết cài hàm encode này.

bác ơi với mẫu các mã cần tách ntn thì function này sửa ntn được vậy bác? nhờ bác giúp đỡ

TongDe · 11/3/24

Tách thử bằng M code cho những tín đồ power query ngâm cứu ...

VetMini · 12/3/24

Tôi chỉ làm đến đây thôi. Sau này còn dùng từ "ntn" nữa thì tôi miễn trả lời và không cần nêu lý do.

Mã:

Function LayMa(ByVal s As String, Optional ByRef patTxt As String = "") As String
' Converts certain coded texts from a CSV string to regex code

    If patTxt = "" Then _
    patTxt = "xxxxxPTxx,xxxxxCCxx,xxxxxBAC,xxxBxx,xxxxMNx"
    
CREATE_REGEX_ENGINE:

    Dim RE As Object
    Set RE = CreateObject("vbscript.regexp")
    RE.IgnoreCase = ignore_case
    RE.Global = True
    
BUILD_PATTERN_FOR_CODETEXTS:
    
    patTxt = Replace(patTxt, ",", "#")
    For Each e In Array("xxxxx", "xxxx", "xxx", "xx", "x")
        RE.Pattern = e & "([A-Z])"
        patTxt = RE.Replace(patTxt, "\d{1," & Len(e) & "}$1")
    Next e
    For Each e In Array("xxx", "xx", "x")
        RE.Pattern = "(\\d\{1,\d\}[A-Z]+)" & e
        patTxt = RE.Replace(patTxt, "$1" & "\d{1," & Len(e) & "}")
    Next e
    RE.Pattern = Replace(patTxt, "#", "|")
    
TEST_AND_GET_VALUES:

    Set Matches = RE.Execute(s)
    If Matches.Count > 0 Then
        For Each e In Matches
            LayMa = LayMa & "," & e
        Next e
        LayMa = Mid(LayMa, 2)
    End If

THATS_ALL:
End Function

Cách dùng:
=LayMa(ô chứa dữ liệu)

HieuCD · 12/3/24

LanAnh139 đã viết:
bác ơi với mẫu các mã cần tách ntn thì function này sửa ntn được vậy bác? nhờ bác giúp đỡ

Dùng hàm tự tao

Mã:

Function TachMa(ByVal str$) As String
  Dim a, b, c, S, P, i, j
 
  a = Array("PT", "CC", "B", "MN", "BAC")
  b = Array(5, 5, 3, 5, 5)
  c = Array(2, 2, 2, 1, 0)
 
  S = Split(Trim(Replace(str, ".", " ")), " ")
  For i = 0 To UBound(S)
    For j = 0 To UBound(a)
      If InStr(1, S(i), a(j), 0) Then
        P = Split(S(i), a(j))
        If UBound(P) = 1 Then
          If IsNumeric(P(0)) And Len(P(0)) <= b(j) And Len(P(1)) <= c(j) Then
            If j = 4 Then P(1) = "0"
            If IsNumeric(P(1)) Then TachMa = TachMa & ", " & S(i)
          End If
        End If
      End If
    Next j
  Next i
  If TachMa <> Empty Then TachMa = Mid(TachMa, 3)
End Function

Lưu ý, không nên dùng từ viết tắt nhằm thể hiện lịch sự và tôn trọng người khác.

Xin giải pháp tách mã phiếu từ nội dung tổng hợp có nhiều thông tin (1 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

Chuyên gia GPE

Zalo 0986997214

Thành viên gắn bó

/(hông là gì!

Thành viên mới

Thành viên mới

Zalo 0986997214

Thành viên mới

Đang đi tìm hòn đá

Thành viên mới

Bắt đầu học Excel

!!! Giải thoát !!!

Thành viên mới

!!! Giải thoát !!!

Đang đi tìm hòn đá

Zalo 0986997214

Thành viên mới

Thành viên gạo cội

!!! Giải thoát !!!

Thành viên mới

Thành viên gắn bó

Đang đi tìm hòn đá

Thành viên mới

File đính kèm

Thành viên tiêu biểu

File đính kèm

Đang đi tìm hòn đá

Chuyên gia GPE

Thời gian đếm ngược.