Cái này dùng hàm không được đâu bạn à! Phải lập trình VBA thôi ---> Nối chuổi có điều kiện, dạng bài này đã đăng nhiều lần rồi (sao không chịu tìm trước?)Câu hỏi em có đính kèm trong files.
Cám ơn mọi người nhiều.
Function JoinIf(CritArr, Criteria, ResArr, Sep As String) As String
Dim CritTmp, ResTmp, i As Long, j As Long, k As Long, Arr()
CritTmp = CritArr: ResTmp = ResArr
On Error Resume Next
For i = LBound(CritTmp, 1) To UBound(CritTmp, 1)
For j = LBound(CritTmp, 2) To UBound(CritTmp, 2)
If CritTmp(i, j) = Criteria Then
k = k + 1
ReDim Preserve Arr(1 To k)
Arr(k) = ResTmp(i, j)
End If
Next
Next
JoinIf = Join(Arr, Sep)
End Function