Vba: cara mendapatkan nilai unik dari sebuah kolom

Anda dapat menggunakan fungsi AdvancedFilter di VBA untuk dengan cepat mendapatkan daftar nilai unik dari kolom di Excel.

Berikut cara umum untuk melakukannya:

 Sub GetUniqueValues()

Range(" A1:A11 ").AdvancedFilter_
                Action:=xlFilterCopy, CopyToRange:=Range(" E1 "), Unique:= True

End Sub

Contoh khusus ini mengekstrak daftar nilai unik dari rentang A1:A11 dan menampilkannya dari sel E1 .

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Dapatkan nilai unik dari kolom menggunakan VBA

Katakanlah kita memiliki kumpulan data berikut di Excel yang berisi informasi tentang berbagai pemain bola basket:

Katakanlah kita ingin mengekstrak daftar nilai unik dari kolom Tim .

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub GetUniqueValues()

Range(" A1:A11 ").AdvancedFilter_
                Action:=xlFilterCopy, CopyToRange:=Range(" E1 "), Unique:= True

End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kolom E sekarang menampilkan daftar nilai unik dari kolom Tim di kumpulan data asli.

Perhatikan bahwa metode AdvancedFilter tidak peka huruf besar-kecil.

Misalnya, jika kita memiliki nama tim “MAVS” dan “Mavs” di kolom yang sama, makro khusus ini hanya akan mengembalikan nilai pertama dari dua nilai yang muncul di kolom Tim karena keduanya memiliki karakter yang sama persis.

Catatan : Anda dapat menemukan dokumentasi lengkap metode AdvancedFilter di VBA di sini .

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 menghitung nilai unik dalam rentang