Lấy các cụm từ trong chuỗi theo ký tự chỉ định

[hongphuong1997]

Nhờ anh chị và các Bác, thầy cô viết giúp hàm như file đính kèm ạ

 

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

Nhờ anh chị và các Bác, thầy cô viết giúp hàm như file đính kèm ạ

Chỗ "hiểm thiểm" là "hiểm, thiểm," hay là "hiểm thiểm"? Vì nếu là "hiểm thiểm" thì kết quả yêu cầu của bạn không thích hợp.

 

[hongphuong1997]

Chỗ "hiểm thiểm" là "hiểm, thiểm," hay là "hiểm thiểm"? Vì nếu là "hiểm thiểm" thì kết quả yêu cầu của bạn không thích hợp.

Bác oi, cháu bị nhầm không cho dấu "," vào
(hiểm,thiểm) Bác @Hai Lúa Miền Tây nhé.

 

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

Bác oi, cháu bị nhầm không cho dấu "," vào
(hiểm,thiểm) Bác @Hai Lúa Miền Tây nhé.

Vậy bạn dùng code củ chuối sau thử nhé:

Public Function Loc(cll As Range, DieuKien As String) As String
    Dim cCll As Range, strJoin As String, arr  As Variant
    For Each cCll In cll
       strJoin = strJoin & cCll
    Next
    For Each arr In Split(strJoin, ",")
        If UCase(Trim(arr)) Like UCase(DieuKien) & "*" Then
            If Len(strKQ) = 0 Then
                strKQ = arr
            Else
                strKQ = strKQ & "," & arr
            End If
        End If
    Next
    Loc = strKQ
End Function

D10=Loc(D4:D5,C10)
D11=Loc(D4:D5,C11)

 

[befaint]

cụm

 

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

Hình như quên bỏ code vô rồi

 

[hongphuong1997]

Vậy bạn dùng code củ chuối sau thử nhé:

Public Function Loc(cll As Range, DieuKien As String) As String
    Dim cCll As Range, strJoin As String, arr  As Variant
    For Each cCll In cll
       strJoin = strJoin & cCll
    Next
    For Each arr In Split(strJoin, ",")
        If UCase(Trim(arr)) Like UCase(DieuKien) & "*" Then
            If Len(strKQ) = 0 Then
                strKQ = arr
            Else
                strKQ = strKQ & "," & arr
            End If
        End If
    Next
    Loc = strKQ
End Function

D10=Loc(D4:D5,C10)
D11=Loc(D4:D5,C11)

Cháu cảm ơn Bác @Hai Lúa Miền Tây ạ
rất chuẩn Bác oi
Cháu chúc Bác ngày chúa nhật vui vẻ, mạnh khỏe Bác nhé