Xin hỏi về việc nối chuỗi có điều kiện (1 người xem)

[hungndcbq]

Em xin hỏi về việc liên kết dữ liệu. Em nhờ các anh chị giúp ạ!

 

[Nhattanktnn]

Em xin hỏi về việc liên kết dữ liệu. Em nhờ các anh chị giúp ạ!

Nếu office 2019 thì có hàm textjoin có thể xử lý được việc này.
Bạn sửa tiêu đề bài viết thành "Nối chuỗi có điều kiện" mình sẽ giúp bạn vấn đề này
Viết code thôi chứ công thức mình chịu!

 

[hungndcbq]

Nếu office 2019 thì có hàm textjoin có thể xử lý được việc này.
Bạn sửa tiêu đề bài viết thành "Nối chuỗi có điều kiện" mình sẽ giúp bạn vấn đề này
Viết code thôi chứ công thức mình chịu!

Em dùng office 2010 thôi ạ. Em cảm ơn ạ!

 

[HUONGHCKT]

Em xin hỏi về việc liên kết dữ liệu. Em nhờ các anh chị giúp ạ!

Trong khi chờ các giải pháp tối ưu hơn, bạn dùng thử file này xem sao.

 

[hungndcbq]

Trong khi chờ các giải pháp tối ưu hơn, bạn dùng thử file này xem sao.

Chưa có hàm trong file nên e chưa dùng được ạ. Em cảm ơn ạ!

 

[giaiphap]

Em xin hỏi về việc liên kết dữ liệu. Em nhờ các anh chị giúp ạ!

Thử hàm tự tạo xem sao.

Public Function GPE_textjoin(Rng As Range, CRI As Range) As String
'Rng là vùng lớp học
'CRI là vùng điều kiện
    Dim s As String, i As Integer, Min As Integer
    s = ""
    Min = IIf(Rng.Columns.Count > CRI.Columns.Count, CRI.Columns.Count, Rng.Columns.Count)
    For i = 1 To Min
        If CRI.Cells(1, i) <> "" Then
            If s = "" Then
                s = Rng.Cells(1, i) & "(" & CRI.Cells(1, i) & ")"
            Else
                s = s & "," & Rng.Cells(1, i) & "(" & CRI.Cells(1, i) & ")"
            End If
        End If
    Next i
    GPE_textjoin = s
End Function

Tại ô BI6 gõ công thức như sau:

=GPE_textjoin($X$4:$AO$4,X6:AO6)

Fill công thức cho các ô phía dưới.

 

[hungndcbq]

Thử hàm tự tạo xem sao.

Public Function GPE_textjoin(Rng As Range, CRI As Range) As String
'Rng là vùng lớp học
'CRI là vùng điều kiện
    Dim s As String, i As Integer, Min As Integer
    s = ""
    Min = IIf(Rng.Columns.Count > CRI.Columns.Count, CRI.Columns.Count, Rng.Columns.Count)
    For i = 1 To Min
        If CRI.Cells(1, i) <> "" Then
            If s = "" Then
                s = Rng.Cells(1, i) & "(" & CRI.Cells(1, i) & ")"
            Else
                s = s & "," & Rng.Cells(1, i) & "(" & CRI.Cells(1, i) & ")"
            End If
        End If
    Next i
    GPE_textjoin = s
End Function

Tại ô BI6 gõ công thức như sau:

=GPE_textjoin($X$4:$AO$4,X6:AO6)

Fill công thức cho các ô phía dưới.

EM CẢM ƠN NHIỀU Ạ!

 

[HUONGHCKT]

Chưa có hàm trong file nên e chưa dùng được ạ. Em cảm ơn ạ!

Thay vì việc mỗi ô lại phải viết công thức vào (hoặc fill) bạn tạo 1 nút bấm và Assign macro vào. chỉ việc nhấn nút là có kết quả (sẽ hiệu quả hơn nếu dữ liệu có nhiều dòng). Dùng cách nào cũng là tùy người sử dụng.
Bạn không dùng nhưng tôi vẫn cứ đăng lên, để có bạn nào thấy phù hợp thì sử dụng