Uniquie List

              Unique List

Materi kali ini adalah bagaimana membuat list unik dengan menampilkan satu data dari  daftar data yang sama atau ganda
Caranya buatlah table seperti gambar diatas
Kemudian kita biasa menggunakan beberapa cara pertama dengan fasilitas vba, seperti biasa kita akan menempatkan kode dibawah ini pada sebuah modul yang akan kita panggil dengan sebuah tombol

Option Explicit
Sub buatList()
Dim lastrow As Long
lastrow = Cells(Rows.Count, "B").End(xlUp).Row
      ActiveSheet.Range("B2:B" & lastrow).AdvancedFilter _
    Action:=xlFilterCopy, _
    CopyToRange:=ActiveSheet.Range("D2"), _
    UNIQUE:=True
     End Sub

Cara lain yakni menempatkan rumus atau formula berikut :
Formula1 :

'=IFERROR(INDEX($B$3:$B$15, MATCH(0,COUNTIF($D$2:D2, $B$3:$B$15), 0)),"")

Formula2 :


'=IFERROR(INDEX($B$3:$B$15, MATCH(0,IF(ISBLANK($B$3:$B$15),1,COUNTIF($D$2:D2, $B$3:$B$15)), 0)),"")

Cara alternative yakni dengan fasiltas VBA dengan menempatkan kode remote Duplicate Atau hapus data ganda

Kode lengkapnya

Sub RemoveDuplicates ()
Set Rng = ThisWorkbook.Sheets(“Sheet1”).Range("B6:B300")
Rng.RemoveDuplicates Columns:=Array(1), Header:=xlYes
End Sub

Selesai
Semoga bermanfaat
Dapatkan Tutorial dan Paket Belajar full VBA melalui kontak langsung WA 082 396 256 577

Berikut sampelnya dapat diunduh dilink berikut