Extract các chuỗi con trong chuỗi lớn

[hadoan-pap]

Em chào mọi người ạ!

Chúc mọi người 1 năm mới bình an và gặp nhiều may mắn.

Dạ, em muốn lọc để lấy được toàn bộ các chuỗi con mà bắt đầu bằng "GU" và đằng sau có 2-4 số từ chuỗi lớn. Sau đó them lần lượt từng chuỗi con vào mảng để loop lần lượt và gán các ô đó bằng 1 giá trị bất kỳ ạ.

Ví dụ chuỗi lớn của em : "GU5077*$T5077+$T5069*GU5069"

Em muốn lọc để lấy ra các chuỗi con là : GU5077 , GU5069... sau đó gán giá trị "0" lần lượt vào các ô này ạ.

Rất mong mọi người hỗ trợ ạ!

Em Xin cảm ơn!

 

[hadoan-pap]

Dạ em đã làm được rồi ạ.

Dim MyArray() As String, MyString As String, I As Variant
MyString = "GU5077*$T5077+$T5069*GU5069"
MyString = Replace(MyString, "*", " ")
MyString = Replace(MyString, "+", " ")
MyString = Replace(MyString, "-", " ")
MyString = Replace(MyString, ":", " ")
MyArray = Split(MyString)

For Each I In MyArray
If InStr(I, "GU") > 0 Then
MsgBox I
End If
Next I

Em Xin cảm ơn!