Giúp công thức hoặc hàm VBA nối tên từng nhân viên

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

5956

Hàm TEXTJOIN có Office 20195957

mình dùng Office 2010 không có hàm đó vậy làm sao 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

www.giaiphapexcel.com/diendan/threads/gi%C3%BAp-c%C3%B4ng-th%E1%BB%A9c-ho%E1%BA%B7c-h%C3%A0m-vba-n%E1%BB%91i-t%C3%AAn-t%E1%BB%ABng-nh%C3%A2n-vi%C3%AAn.146854/

Khóa học SprinGO phù hợp

Ứng dụng AI và Chat GPT trong Quản trị nhân sự

Học xong khóa này, học viên có thể: Hiểu đúng bản chất AI, các nhóm AI phổ biến và cách AI “hoạt động” ở...

Xem khóa học