gom dữ liệu theo điều kiện không trùng lặp

[xsatteam]

Đây là một bài toán nan giải của em nhờ các bác , tất cả được ghi trong file excel dưới đây ,cảm ơn các bác đã giúp !

 

[ndu96081631]

Đây là một bài toán nan giải của em nhờ các bác , tất cả được ghi trong file excel dưới đây ,cảm ơn các bác đã giúp !

Tặng bạn code này:

Function JoinUnique(sArray, Sep As String) As String
  Dim i As Long, j As Long, tmp
  On Error Resume Next
  tmp = sArray
  With CreateObject("Scripting.Dictionary")
    For i = LBound(tmp, 1) To UBound(tmp, 1)
      For j = LBound(tmp, 2) To UBound(tmp, 2)
        If tmp(i, j) <> "" And Not .Exists(tmp(i, j)) Then .Add tmp(i, j), ""
      Next j
    Next i
    JoinUnique = Join(.Keys, Sep)
  End With
End Function

 

[xsatteam]

đúng là cái này rồi ,cảm ơn bác nhiều ,