Gộp các dữ liệu Text cùng chung 1 Key (1 người xem)

[ndc_thailand]

em có vấn đề sau nhờ các các cao thủ giúp

có 2 cột dữ Liệu

Khóa 1: A
Khóa 2: B
Khóa 3: C

Khóa 1: DE
Khóa 1: E
Khoá 2: XY
Khóa 3: GB

Gộp tất cả như sau
Khóa 1: A,DE,E
Khóa 2: B,XY
Khóa 3: C,GB

em xin hỏi làm cách nào để được như vậy? Thanks

 

[ndu96081631]

em có vấn đề sau nhờ các các cao thủ giúp

có 2 cột dữ Liệu

Khóa 1: A
Khóa 2: B
Khóa 3: C

Khóa 1: DE
Khóa 1: E
Khoá 2: XY
Khóa 3: GB

Gộp tất cả như sau
Khóa 1: A,DE,E
Khóa 2: B,XY
Khóa 3: C,GB

em xin hỏi làm cách nào để được như vậy? Thanks

Yêu cầu này gọi là: NỐI CHUỖI CÓ ĐIỀU KIỆN, chỉ có thể dùng VBA để giải quyết
Code sau:

Function JoinText(ByVal Delimiter As String, ParamArray Arrays()) As String
  Dim aTmp, Arr(), Item, tmp As String
  Dim i As Long, n As Long
  'On Error Resume Next
  For i = LBound(Arrays) To UBound(Arrays)
    aTmp = Arrays(i)
    If Not IsArray(aTmp) Then aTmp = Array(aTmp)
    For Each Item In aTmp
      If TypeName(Item) <> "Error" Then
        tmp = CStr(Item)
        n = n + 1
        ReDim Preserve Arr(1 To n)
        Arr(n) = tmp
      End If
    Next
  Next
  If n Then JoinText = Join(Arr, Delimiter)
End Function

Áp dụng trên bảng tính:

=JoinText(",", IF($A$1:$A$100=G1,$B$1:$B$100,NA()))

Vói A1:B100 là vùng dữ liệu của bạn và G1 là tham chiếu để so sánh
Lưu ý: Công thức này là công thức mảng, gõ xong phải bấm tổ hợp phím Ctrl + Shift + Enter để kết thúc nhé
Xem file minh họa