Trong bài viết này, chúng tôi sẽ tạo một hàm tùy chỉnh để đếm các giá trị duy nhất trong phạm vi đã xác định.

Dữ liệu thô cho ví dụ này bao gồm các số ngẫu nhiên trong các hàng. Trong ví dụ này, chúng tôi muốn đếm số lượng các số duy nhất trong mỗi hàng.

ArrowRaw

Chúng tôi đã tạo chức năng tùy chỉnh “CountUniqueValues” để tìm số lượng các số duy nhất trong hàng. Hàm này lấy dải ô làm đầu vào và trả về số lượng số duy nhất.

ArrowOutput

Giải thích logic

Chúng tôi đã tạo hàm tùy chỉnh “CountUniqueValues” để đếm các số duy nhất. Trong chức năng tùy chỉnh này, chúng tôi đã tạo đối tượng của đối tượng bộ sưu tập. Đối tượng tập hợp này được sử dụng để tạo danh sách các số duy nhất. Khi chúng tôi có danh sách các số duy nhất, chúng tôi sẽ nhận được số lượng các mục trong bộ sưu tập.

Giải thích mã

Application.Volatile được sử dụng vì nó sẽ tính toán lại mỗi khi thay đổi giá trị ô trong sổ làm việc.

On Error Resume Tiếp theo được sử dụng để xử lý lỗi.

Vui lòng theo dõi bên dưới để biết mã

Option Explicit

Function CountUniqueValues(InputRange As Range) As Integer

Dim CellValue As Variant, UniqueValues As New Collection

Application.Volatile

'For error Handling

On Error Resume Next

'Looping through all the cell in the defined range

For Each CellValue In InputRange

UniqueValues.Add CellValue, CStr(CellValue)  ' add the unique item

Next

'Returning the count of number of unique values

CountUniqueValues = UniqueValues.Count

End Function

Nếu bạn thích blog này, hãy chia sẻ nó với bạn bè của bạn trên Facebook và Facebook.

Chúng tôi rất muốn nghe ý kiến ​​từ bạn, hãy cho chúng tôi biết cách chúng tôi có thể cải thiện công việc của mình và làm cho nó tốt hơn cho bạn. Viết thư cho chúng tôi [email protected]