Hàm tự tạo để tạo danh sách duy nhất không có lỗi và những số 0

Chào các bạn. Mình có một code hàm lọc ra danh sách duy nhất Unique như ở trong file đính kèm. Hàm này có thể lọc ra danh sách duy nhất trong trường hợp có nhiều điều kiện, tuy nhiên kết quả trả về của hàm bị thừa số 0 và xuất hiện nhiều ô lỗi, vậy mình muốn nhờ các bạn sửa lại code hàm này giúp mình để tạo ra danh sách duy nhất không có lỗi và loại bỏ những số 0 không cần thiết (nếu danh sách ban đầu có số 0 mà dòng đó thỏa mãn thì tất nhiên nó sẽ nằm trong kết quả, chỉ loại bỏ nếu thực sự không có số 0 nào trong danh sách ban đầu). Mình cảm ơn 😀 😀 😀

Trước tôi có viết hàm Unique thế này:

Function UniqueList(ParamArray Arrays())
  Dim key, aTmp, aSub
  'On Error Resume Next
  With CreateObject("Scripting.Dictionary")
    For Each aSub In Arrays
      aTmp = aSub
      If Not IsArray(aTmp) Then aTmp = Array(aTmp)
      For Each key In aTmp
        If TypeName(key) <> "Error" Then
          If Len(key) Then
            If Not .Exists(key) Then .Add key, ""
          End If
        End If
      Next
    Next
    If .Count Then UniqueList = .Keys
  End With
End

Áp dụng vào sheet

=TRANSPOSE(UniqueList(IF(F4:F14="x",E4:E14,1/0)))

và:

=COUNTA(UniqueList(IF(F4:F14="x",E4:E14,1/0)))

www.giaiphapexcel.com/diendan/threads/h%C3%A0m-t%E1%BB%B1-t%E1%BA%A1o-%C4%91%E1%BB%83-t%E1%BA%A1o-danh-s%C3%A1ch-duy-nh%E1%BA%A5t-kh%C3%B4ng-c%C3%B3-l%E1%BB%97i-v%C3%A0-nh%E1%BB%AFng-s%E1%BB%91-0.148368/

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

Xây dựng Lương 3P, KPI cho Doanh nghiệp

Làm thế nào để trả lương cho nhân viên chính xác nhất? Đây là một trong những câu hỏi khó trong quản trị nhân...

Xem khóa học