Câu hỏi: Cách gộp tên ở nhiều hàng vào 1 hàng.

[nhunguyet0103]

Các Anh, Chị chỉ giúp em với!
VD: Em muốn gộp Tên GV nghỉ ở nhiều hàng thành 1 hàng (với yêu cầu tên của các GV được cách nhau bởi dấu phẩy (,) và sau tên giáo viên cuối cùng sẽ là dấu chấm (.) như hình dưới (gộp các tên ở cột E thành 1 hàng như cột c) thì dùng hàm hoặc code như thế nào ạ! Thanks!

 

[nhunguyet0103]

Các anh, chị chỉ giúp em với! Thanks!

 

[be_09]

Các anh, chị chỉ giúp em với! Thanks!

Ai giúp bạn khi không có File thực tế (chứa khoảng 10 dòng dữ liệu), khi giúp xong áp dụng vào File thực tế không được lại phải sửa và tải File khác à (như vậy sẽ tốn Quota của người giúp).

Vì vậy mà chẳng ai giúp đối với dạng bài này.

 

[nhunguyet0103]

Cảm ơn anh đã nhắc nhở ạ!

 

[mhung12005]

Các Anh, Chị chỉ giúp em với!
VD: Em muốn gộp Tên GV nghỉ ở nhiều hàng thành 1 hàng (với yêu cầu tên của các GV được cách nhau bởi dấu phẩy (,) và sau tên giáo viên cuối cùng sẽ là dấu chấm (.) như hình dưới (gộp các tên ở cột E thành 1 hàng như cột c) thì dùng hàm hoặc code như thế nào ạ! Thanks!
View attachment 134427

Bạn dùng UDF này nhé.

Public Function Noichuoi(ByVal rRng As Range) As String    
    Dim SrcArr
    Dim lR As Long, lItemNo As Long
    Dim Ressult As String
    
    lItemNo = Application.CountA(rRng)
    SrcArr = rRng.Value2
    For lR = 1 To UBound(SrcArr, 1)
        If Len(SrcArr(lR, 1)) Then
            If lR < lItemNo Then
                Ressult = Ressult & CStr(SrcArr(lR, 1)) & ", "
            Else
                Ressult = Ressult & CStr(SrcArr(lR, 1)) & "."
            End If
        End If
    Next
    Noichuoi = Ressult
    
End Function