File excel không đánh hàm Jointext được

Bạn cho mình hỏi file excel không đánh được hàm jointext được chỉ mình với ,
Cám ơn các bạn

Hàm jointext là hàm tự tạo chứ không phải là hàm sẵn có bạn ạ
Hàm này là của thầy ndu96081631 viết ra

Function JoinText(ByVal Delimiter As String, ByVal IgnoreBlanks As Boolean, ParamArray Arrays()) As String
  Dim aTmp, arr(), Item, tmp As String
  Dim i As Long, n As Long
  On Error Resume Next
  For i = LBound(Arrays) To UBound(Arrays)
    aTmp = Arrays(i)
    If Not IsArray(aTmp) Then aTmp = Array(aTmp)
    For Each Item In aTmp
      tmp = IIf(TypeName(Item) = "Error", "", Trim(CStr(Item)))
      If IgnoreBlanks = False Or Len(tmp) Then
        n = n + 1
        ReDim Preserve arr(1 To n)
        arr(n) = tmp
      End If
    Next
  Next
  If n Then JoinText = Join(arr, Delimiter)
End Function

Bạn tham khảo bộ 3 hàm nối chuỗi của thầy ndu96081631 tại bài 5 của Topic: www.giaiphapexcel.com/diendan/threads/n%E1%BB%91i-chu%E1%BB%97i-theo-%C4%91i%E1%BB%81u-ki%E1%BB%87n.97760/

www.giaiphapexcel.com/diendan/threads/file-excel-kh%C3%B4ng-%C4%91%C3%A1nh-h%C3%A0m-jointext-%C4%91%C6%B0%E1%BB%A3c.135168/

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

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học