Đếm giá trị duy nhất bằng VBA trong Microsoft Excel 2010
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.
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.
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]