UDF Unik Join

Berawal dari sebuah pertanyaan kasus yang bisa diselsaikan dengan rumus UNIQUE dan TEXTJOIN Namun pengguna mengunakan Excel 2013 dimana kedua fungsi ini belum ada.

Apa Itu UDF Unik Join? UDF Unik Join adalah sebuah fungsi kustom yang digunakan dalam Excel untuk mencari data unik dari suatu rentang dan menggabungkannya menjadi satu hasil yang mudah dibaca.

Fungsi ini sangat berguna dalam berbagai skenario, seperti menyusun daftar nilai unik dari suatu kolom atau menggabungkan teks dari beberapa sel tanpa duplikasi.

Contoh Implementasi UDF Unik Join Sebagai contoh, jika kita memiliki daftar nama dalam sebuah kolom dengan banyak duplikasi, kita dapat menggunakan UDF Unik Join untuk menggabungkan hanya nama-nama unik dalam satu sel dengan pemisah tertentu.

Berikut contoh kode VBA untuk membuat UDF Unik Join:

Function UnikJoin(rng As Range, Optional delimiter As String = ", ") As String
' Author : vba.co.id
Dim dict As Object
Dim cell As Range
Dim result As String

Set dict = CreateObject("Scripting.Dictionary")

For Each cell In rng
    If Not dict.exists(cell.Value) And cell.Value <> "" Then
        dict.Add cell.Value, Nothing
        result = result & delimiter & cell.Value
    End If
Next cell
    
If result <> "" Then UnikJoin = MID(result,Len(delimiter), Len(result))
End Function

Dengan menggunakan kode di atas, kita dapat dengan mudah menemukan dan menggabungkan data unik dalam Excel.

Sintak rumus dari UDF diatas adalah

=UNIKJOIN(Range,[separator])

Berikut Contoh hasil penggunaan UDF