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

Liên hệ QC

trunglinh

Thành viên mới
Tham gia
24/8/09
Bài viết
23
Được thích
3
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
 

File đính kèm

  • Test file nối chuỗi.xlsx
    25.3 KB · Đọc: 13
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 này khác rắc rối chỉ sử dụng cho Excel 365 nhé bạn, các excel khác không hiển thị.
Thử công thức này kéo xuống xem:
Mã:
H2=E2&IFERROR(", "&LOOKUP(2,1/(C$1:C1=C2),H$1:H1),"")
 
Lần chỉnh sửa cuối:
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
Mã:
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: https://www.giaiphapexcel.com/diendan/threads/nối-chuỗi-theo-điều-kiện.97760/
 

File đính kèm

  • Test file nối chuỗi.xls
    82.5 KB · Đọc: 24
Lần chỉnh sửa cuối:
Web KT
Back
Top Bottom