Bu yazıda, tanımlanan aralıktaki benzersiz değerleri saymak için özel bir fonksiyon oluşturacağız.
Bu örnek için ham veriler satırlardaki rastgele sayılardan oluşur. Bu örnekte, her satırdaki benzersiz sayıların sayısını saymak istiyoruz.
Satırdaki benzersiz sayıların sayısını bulmak için “CountUniqueValues” özel işlevi oluşturduk. Bu işlev, girdi olarak aralığı alır ve benzersiz sayı sayısını döndürür.
Mantıksal açıklama
Benzersiz sayıların sayısını almak için "CountUniqueValues" özel işlevini yarattık. Bu özel fonksiyonda, koleksiyon nesnesinin nesnesini oluşturduk. Bu koleksiyon nesnesi, benzersiz sayıların listesini oluşturmak için kullanılır. Benzersiz numaraların listesine sahip olduğumuzda, koleksiyondaki öğelerin sayısını alırız.
Kod açıklaması
Application.Volatile, çalışma kitabında bir hücre değeri her değiştirildiğinde yeniden hesaplanacağı için kullanılır.
Hatada Devam Et Sonraki hataları işlemek için kullanılır.
Lütfen kod için aşağıdan takip edin
Seçenek Açık İşlev CountUniqueValues(InputRange As Range) As Integer Dim CellValue As Variant, UniqueValues As New Collection Application.Volatile 'Hata İşleme On Error Resume Next' 'InputRange InputRange Unique CellValue'daki Her CellValue için tanımlanan aralıktaki tüm hücrede döngü. , CStr(CellValue) ' benzersiz öğeyi ekle Sonraki 'Benzersiz değerlerin sayısını döndürme CountUniqueValues = UniqueValues.Count End Function
Bu blogu beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl geliştirebileceğimizi ve sizin için nasıl daha iyi hale getirebileceğimizi bize bildirin. E-posta sitesinde bize yazın