Hàm thay thế UNIQUE cho phiên bản Excel cũ

Hàm thay thế UNIQUE cho phiên bản Excel cũ (như Office 2007, 2010, 2013, 2016)

Nhấn phím tắt Alt + F11 để mở Microsoft Visual Basic for Applications (VBA).

Chọn Insert > Module để tạo một module mới.

Dán mã sau vào khung soạn thảo VBA:

Function UNIQUES(rng As Range) As Variant()
    Dim list As New Collection
    Dim Ulist() As Variant
    On Error Resume Next
    For Each Value In rng
        list.Add CStr(Value), CStr(Value)
    Next
    On Error GoTo 0
    ReDim Ulist(list.Count - 1, 0)
    For i = 0 To list.Count - 1
        Ulist(i, 0) = list(i + 1)
    Next
    UNIQUES = Ulist
End Function

Lúc này bạn có thể dùng hàm UNIQUES tương tự như hàm UNIQUE!

 

 
Lưu ý: Nếu các bạn sử dụng phiên bản office từ 2016 trở về trước thì bạn phải bôi chọn các ô mà bạn muốn kết quả hiển thị lên đó trước sau đó mới nhập công thức và kết thúc bằng phím CTRL+SHIFT+ENTER thì công thức mới hoạt động, cụ thể ở ví dụ trên các bạn bôi chọn các ô trong cột C (C9:C15) sau đó nhấn F2 và gõ công thức sau đó nhấn CTRL+SHIFT+ENTER để kết thúc, bạn cũng có thể chọn nhiều ô hơn và nếu kết quả trả về là #N/A nghĩa là giá trị duy nhất là những kết quả có ở phía trên, nếu không hiển thị #N/A thì các bạn có thể chọn nhiều ô hơn để khỏi bị sót.