Giúp công thức hoặc hàm VBA nối tên từng nhân viên (1 người xem)

[hondacrv2019]

Chào cả nhà GPE.
Em cần dùng 1 hàm nối tên từng nhân viên, nếu dòng nào trống thì bỏ qua. Em xin chân thành cảm ơn

 

[PacificPR]

Chào cả nhà GPE.
Em cần dùng 1 hàm nối tên từng nhân viên, nếu dòng nào trống thì bỏ qua. Em xin chân thành cảm ơn


View attachment 229986

Hàm TEXTJOIN có Office 2019

 

[hondacrv2019]

Hàm TEXTJOIN có Office 2019 View attachment 229987

mình dùng Office 2010 không có hàm đó vậy làm sao bạn ơi

 

[PacificPR]

mình dùng Office 2010 bạn ơi

Có nhưng phải Copy vào

Function JOINTEXT(Delimiter As String, Ignore_Empty As Boolean, ParamArray Text1() As Variant) As String
    Dim Cell As Variant, RangeArea As Variant
    Dim x As Long
For Each RangeArea In Text1
    If TypeName(RangeArea) = "Range" Then
        For Each Cell In RangeArea
            If Len(Cell.Value) <> 0 Or Ignore_Empty = False Then
                JOINTEXT = JOINTEXT & Delimiter & Cell.Value
            End If
        Next Cell
    ElseIf TypeName(RangeArea) = "Variant()" Then
        For Each Cell In RangeArea
            If Len(Cell) <> 0 Or Ignore_Empty = False Then
                JOINTEXT = JOINTEXT & Delimiter & Cell
            End If
        Next
    Else
        If Len(RangeArea) <> 0 Or Ignore_Empty = False Then
            JOINTEXT = JOINTEXT & Delimiter & RangeArea
        End If
    End If
Next RangeArea
JOINTEXT = Mid(JOINTEXT, Len(Delimiter) + 1)
End Function

 

[be_09]

Chào cả nhà GPE.
Em cần dùng 1 hàm nối tên từng nhân viên, nếu dòng nào trống thì bỏ qua. Em xin chân thành cảm ơn


View attachment 229986

Tham khảo File trong bài viết ở Link này Trích tên từ các hàng trong sheet 1 sang sheet 2 với cùng số phòng thì thể hiện chung 1 hàng

 

[hondacrv2019]

Có nhưng phải Copy vào

Function JOINTEXT(Delimiter As String, Ignore_Empty As Boolean, ParamArray Text1() As Variant) As String
    Dim Cell As Variant, RangeArea As Variant
    Dim x As Long
For Each RangeArea In Text1
    If TypeName(RangeArea) = "Range" Then
        For Each Cell In RangeArea
            If Len(Cell.Value) <> 0 Or Ignore_Empty = False Then
                JOINTEXT = JOINTEXT & Delimiter & Cell.Value
            End If
        Next Cell
    ElseIf TypeName(RangeArea) = "Variant()" Then
        For Each Cell In RangeArea
            If Len(Cell) <> 0 Or Ignore_Empty = False Then
                JOINTEXT = JOINTEXT & Delimiter & Cell
            End If
        Next
    Else
        If Len(RangeArea) <> 0 Or Ignore_Empty = False Then
            JOINTEXT = JOINTEXT & Delimiter & RangeArea
        End If
    End If
Next RangeArea
JOINTEXT = Mid(JOINTEXT, Len(Delimiter) + 1)
End Function

Tuyệt vời cảm ơn bạn