Bạn ghi trong file "Em diễn giải cho mọi người dễ hiểu", nhưng thật sự đọc chả hiểu cái mong muốn là gì.
Em gửi file giải thích thêm anh nhé.
Thật ra đọc cũng hiểu có chút hiểu chứ chưa rõ. Bạn nên tìm thêm code để có thể dùng được hàm textsplit nhé, tách nó ra rồi làm (ko thì phải cột phụ mà tách ra thôi). Vì bạn còn Jointext thì chắc ko phải 365 rồi. Hoặc đưa lên GoogleSheet
Này anh này!
Chuỗi mẫu & chuỗi kết quả đều chỉ là 1 dòng à bạn?
Hihi em chào anh ạ, lâu lắm mới thấy anh xuất hiện.
Option Explicit
Function LocKQ(chuoiKq, chuoiNguon, dk)
Dim Tam
Dim Kq()
Dim i, j, k
Tam = Split(chuoiKq, ";")
ReDim Kq(UBound(Tam))
For Each k In Split(chuoiNguon, ";")
If k = dk Then
Kq(j) = Tam(i)
j = j + 1
End If
i = i + 1
Next k
LocKQ = Replace(Trim(Join(Kq)), " ", "; ")
End FunctionNhanh quá anh oi
Anh oi, công thức chỉ đúng được mỗi kết quả dòng đầu.
Mình thấy thế này có lẽ phù hợp hơn:
Nếu bạn sinh 1997 thì có thể gọi mình là anh, còn gọi bác 868 là chú hoặc bác nhé!
@hongphuong1997 test lại lần nữa xem sao
Option Explicit
Function LocKQ(chuoiKq, ParamArray dlDauvao() As Variant)
Dim mTam
Dim dk
Dim Kq()
Dim i, j, k
mTam = Split(chuoiKq, ";")
ReDim Kq(UBound(mTam))
For j = 0 To UBound(dlDauvao) Step 2
dk = dlDauvao(j + 1)
i = 0
For Each k In Split(dlDauvao(j), ";")
If k = dk Then
Kq(i) = mTam(i)
End If
i = i + 1
Next k
Next j
LocKQ = Replace(Application.Trim(Join(Kq)), " ", ", ")
End FunctionEm đang măm măm nhưng em cũng nghỉ để Test đã.
Huhu.... anh oi, vẫn chưa thành công anh oi.
Với nhiều dòng đầu vào: có dòng trả về nhiều kết quả, có dòng trả về ít kết quả. Trong đó có kết quả trùng nhau, kết quả cuối cùng là gì?
Không gộp anh oi, vẫn phải tách biệt từng chuỗi (Từng dòng kết quả)
Thử cái nữa. Thấy kết quả có vẻ khá giống
Option Explicit
Function LocKQ(chuoiKq, ParamArray dlDauvao() As Variant)
Dim mTam
Dim dk
Dim Kq()
Dim maxSL
Dim i, j, k
mTam = Split(chuoiKq, ";")
ReDim Kq(UBound(mTam))
For j = 0 To UBound(dlDauvao) Step 2
dk = dlDauvao(j + 1)
i = 0
For Each k In Split(dlDauvao(j), ";")
If k = dk Then
Kq(i) = Kq(i) + 1
End If
i = i + 1
Next k
Next j
maxSL = 0
For j = 0 To UBound(Kq)
If maxSL < Kq(j) Then maxSL = Kq(j)
Next j
For j = 0 To UBound(Kq)
If Kq(j) < maxSL Then
Kq(j) = ""
Else
Kq(j) = mTam(j)
End If
Next j
LocKQ = Replace(Application.Trim(Join(Kq)), " ", ", ")
End FunctionHihi....em cảm ơn anh rất nhiều ạ.
Chắc thế này thôi
Option Explicit
Function LocKQ(chuoiKq, ParamArray dlDauvao() As Variant)
Dim mTam
Dim dk
Dim Kq()
Dim maxSL
Dim i, j, k
mTam = Split(chuoiKq, ";")
ReDim Kq(UBound(mTam))
For j = 0 To UBound(dlDauvao) Step 2
dk = dlDauvao(j + 1)
If dk = "" Or dlDauvao(j) = "" Then
maxSL = 1
Exit For
End If
i = 0
For Each k In Split(dlDauvao(j), ";")
If k = dk Then
Kq(i) = Kq(i) + 1
End If
i = i + 1
Next k
Next j
If maxSL = 0 Then
For j = 0 To UBound(Kq)
If maxSL < Kq(j) Then maxSL = Kq(j)
Next j
For j = 0 To UBound(Kq)
If Kq(j) < maxSL Then
Kq(j) = ""
Else
Kq(j) = mTam(j)
End If
Next j
LocKQ = Replace(Application.Trim(Join(Kq)), " ", ", ")
Else
LocKQ = ""
End If
End Function
