LợiSeven

Giao lưu - học hỏi

Responsive Ads Here

Thứ Bảy, 8 tháng 1, 2022

Sử dụng Hàm Unique Cho Các Phiên Bản trước Office 2016

Sử dụng Hàm Unique Cho Các Phiên Bản trước Office 2016

Hàm Unique dành cho những phiên bản office thấp như là office 2007, 2010, 2013, 2016

nhấn phím tắt Alt + F11 để gọi chương trình Micosoft Visual Basic Applications.

Vào Insert - Module


Dán code bên dưới vào khung soạn thảo

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

Quay lại file excel lúc nãy, các bạn gõ vào ô C2  là =UNIQUES
=UNIQUE(array, by_col, occurs_once)
array: Là một vùng, cột hoặc hàng mà bạn cần lọc ra những giá trị duy nhất.

Chú Ý
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 từ ô C2 đến ô C7 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.