Gộp chuỗi ký tự trả về kết quả logic hơn (1 người xem)

[ThaiDieuAnh]

Em có chuỗi ký tự mặc dù logic nhưng người khác nhìn vào tương đối rườm rà nếu chuỗi ký tự đó dài. Em muốn nhờ các anh chị giúp em làm lại gọn, dễ hiểu hơn. Em xin cảm ơn!

 

[huuthang_bd]

Em có chuỗi ký tự mặc dù logic nhưng người khác nhìn vào tương đối rườm rà nếu chuỗi ký tự đó dài. Em muốn nhờ các anh chị giúp em làm lại gọn, dễ hiểu hơn. Em xin cảm ơn!

Bạn thử UDF này xem

Function MergerText(Text As String) As String
Dim Arr As Variant, Tmp As Variant, i As Long
Arr = Split(Text, ";")
With CreateObject("Scripting.Dictionary")
    For i = 0 To UBound(Arr, 1)
        Tmp = Split(Arr(i), "-")
        If Not .Exists(Tmp(0)) Then
            .Add Tmp(0), Tmp(0) & ":(" & Tmp(1)
        Else
            .Item(Tmp(0)) = .Item(Tmp(0)) & ";" & Tmp(1)
        End If
    Next
    MergerText = Join(.Items, ");") & ")"
End With
End Function

 

[PacificPR]

Em góp vui thêm 1 hàm nữa

 

[ThaiDieuAnh]

Em góp vui thêm 1 hàm nữa

Cảm ơn bác huuthang_bd và PacificPR. Bác PacificPR còn giúp cho chuỗi được đẹp hơn cả yêu cầu

 

[ThaiDieuAnh]

Em góp vui thêm 1 hàm nữa

Em sửa được rồi, không hiểu sao có 1 số hàm khi cho vào module này không được nhưng khi coppy sang module khác lại được. Trước em có đọc trên GPE rồi mà giờ tìm không thấy

 

[HieuCD]

Em góp vui thêm 1 hàm nữa

HM01-01;HM01-03;HM02-01;HM02-02;HM02-05;HM02-06;HM02-07;HM03-01;HM03-02;HM03-03
Bị lổi

 

[VetMini]

Cảm ơn bác huuthang_bd và PacificPR. Bác PacificPR còn giúp cho chuỗi được đẹp hơn cả yêu cầu

"đẹp" hay không còn tuỳ theo dữ liệu thật.
Cái công việc này theo đúng tiếng trong nghề gọi nó là nghịch chuẩn (denormalise). Một hình thức của denormalise là pivot.

Thường thường thì pivot phải có sắp xếp.
Dùng hàm trên tách vài dòng dữ liệu loại bất định (chưa sắp xếp) thì sẽ hiểu tôi nói gì.