Hàm dồn dòng theo điều kiện

[nvh611]

Nhờ các bạn trợ giúp bài như file đính kèm

 

[snow25]

Nhờ các bạn trợ giúp bài như file đính kèm

Ban chay ham nay nhe.

Function laydulieu(ByVal dk As Range, ParamArray mang() As Variant)
         Dim dic As Object, T, T1, dks As String, arr(1 To 1000, 1 To 1), a As Integer
         Set dic = CreateObject("scripting.dictionary")
         For Each T In dk
            dks = T.Value
             If Not dic.exists(dks) Then
                dic.Add dks, "KK"
             End If
         Next
         For Each T In mang
             For Each T1 In T
                 dks = T1.Value
                 If Not dic.exists(dks) Then
                      a = a + 1
                      arr(a, 1) = dks
                      dic.Add dks, "KK"
                 End If
             Next
        Next
        Set dic = Nothing
        laydulieu = arr
End Function

=laydulieu(A1:A20,'2'!A1:A20,'3'!A1:A20)

 

[nvh611]

Ban chay ham nay nhe.

Function laydulieu(ByVal dk As Range, ParamArray mang() As Variant)
         Dim dic As Object, T, T1, dks As String, arr(1 To 1000, 1 To 1), a As Integer
         Set dic = CreateObject("scripting.dictionary")
         For Each T In dk
            dks = T.Value
             If Not dic.exists(dks) Then
                dic.Add dks, "KK"
             End If
         Next
         For Each T In mang
             For Each T1 In T
                 dks = T1.Value
                 If Not dic.exists(dks) Then
                      a = a + 1
                      arr(a, 1) = dks
                      dic.Add dks, "KK"
                 End If
             Next
        Next
        Set dic = Nothing
        laydulieu = arr
End Function

=laydulieu(A1:A20,'2'!A1:A20,'3'!A1:A20)

Cảm ơn bạn @snow25 công thức quá tuyệt vời
Chúc bạn ngày cuối tuần vui vẻ nhé!
Cảm ơn bạn!