Hỏi về hàm distinct tự tạo trong Excel

[Tonchan]

Hỏi về hàm distinct tự tạo trong Excel
Em đang cần tạo hàm distinct để đếm không lặp.
Thực ra có thể dùng SUMPRODUCT nhưng em muốn tạo hàm riêng.
Có bác nào có hàm distinct tự tạo cho excel không thì chỉ em với ạ.
Em Gúc trên mạng có hàm repeat nhưng chỉ đếm không lặp giá trị tiếp theo và đếm cả ô trống nữa.

Function repeat(vung As Range) As Integer
Dim a As Integer, i As Integer, dem As Integer
a = vung.Rows.Count
dem = 0
For i = 1 To a - 1
If vung.Cells(i + 1) <> vung.Cells(i) Then
dem = dem + 1
End If
Next i
repeat = dem
End Function

 

[haonlh]

Câu lệnh If vung.Cells(i + 1) <> vung.Cells(i)
chỉ kiểm tra 2 ô liền nhau có khác nhau không. Như vậy có thể cho KQ nhiều hơn thực tế, vì các giá trị bằng nhau có thể ở xa nhau.

Bạn dùng hàm đó cũng được, nhưng phải Sort vùng cần đếm

 

[HọcVấn]

Hàm mình viết nè,bạn dùng thử xem

Function RP(vung As Range) As Integer
Dim cll As Range
For Each cll In vung
If WorksheetFunction.CountIf(Range(vung(1), cll), cll) = 1 Then
i = i + 1
End If
Next
RP = i
End Function

file giả lập như link bên dưới:
http://www.mediafire.com/?mnbceeezqtg