Cara menghitung nilai unik dalam rentang menggunakan vba

Anda dapat menggunakan sintaks dasar berikut untuk menghitung jumlah nilai unik dalam suatu rentang menggunakan VBA:

 SubCountUnique ()
    Dim Rng As Range, List As Object, UniqueCount As Long
    Set List = CreateObject(" Scripting.Dictionary ")
    
    'count unique values in range A2:A11
    For Each Rng In Range(" A2:A11 ")
      If Not List.Exists(Rng.Value) Then List.Add Rng.Value, Nothing
    Next
    
'store unique count
UniqueCount = List.Count
    
    ' display unique count
    MsgBox " Count of Unique Values: " & UniqueCount

End Sub

Contoh khusus ini menghitung jumlah nilai unik dalam rentang A2:A11 dan kemudian menampilkan hitungannya di kotak pesan.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Menghitung Nilai Unik dalam Range Menggunakan VBA

Misalkan kita memiliki daftar nama tim bola basket berikut di Excel:

Misalkan kita ingin menghitung jumlah nama tim unik dalam rentang A2:A11 .

Kita dapat membuat makro berikut untuk melakukan ini:

 SubCountUnique()
Dim Rng As Range, List As Object, UniqueCount As Long
    Set List = CreateObject(" Scripting.Dictionary ")
    
    'count unique values in range A2:A11
For Each Rng In Range(" A2:A11 ")
      If Not List.Exists(Rng.Value) Then List.Add Rng.Value, Nothing
    Next
    
    'store unique count
    UniqueCount = List.Count
    
    'display unique count
    MsgBox " Count of Unique Values: " & UniqueCount

End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kotak pesan memberitahu kita bahwa ada 5 nama tim yang unik.

Kami dapat memverifikasi kebenarannya dengan mengidentifikasi setiap nama tim unik secara manual:

• Mav
• Panas
• Jaring
• Prajurit
• raja

Sebenarnya ada 5 nama tim yang unik.

Catatan : Untuk menghitung jumlah nilai unik dalam rentang yang berbeda, cukup ganti A2:A11 di loop For Each dengan rentang yang berbeda.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menghitung sel dengan teks tertentu
VBA: Cara menghitung jumlah baris dalam jangkauan
VBA: Cara menulis fungsi COUNTIF dan COUNTIFS