Bagaimana cara menggabungkan nilai unik di Excel?

Menggabungkan nilai-nilai unik di Excel merupakan tugas umum yang dapat dicapai melalui berbagai metode. Artikel ini akan membahas berbagai teknik untuk menggabungkan nilai-nilai unik dalam kolom dan mencantumkan nilai-nilai unik sambil menggabungkan nilai-nilai terkaitnya.

Gabungkan hanya nilai unik dari kolom

• Dengan menggunakan fungsi TEXTJOIN dan UNIQUE
• Dengan menggunakan Kutools AI Aide
• Dengan menggunakan Fungsi Buatan Pengguna

Mencantumkan nilai unik dan menggabungkan nilai yang sesuai

• Dengan menggunakan fungsi TEXTJOIN dan UNIQUE
• Dengan menggunakan Kutoolsfor Excel
• Dengan menggunakan kode VBA

Gabungkan hanya nilai unik dari kolom

Dalam analisis data, ada kalanya Anda perlu menggabungkan nilai-nilai unik dari kolom di Excel ke dalam satu sel. Tugas ini dapat dicapai dengan menggunakan rumus, VBA atau Kutools, tergantung pada preferensi Anda dan kompleksitas kumpulan data. Di bawah ini, kami akan mengeksplorasi metode yang dioptimalkan untuk menangani hal ini secara efisien.

Metode 1: Menggunakan fungsi TEXTJOIN dan UNIQUE

Jika Anda memiliki Excel 365 atau Excel 2021, fungsi TEXTJOIN dan UNIQUE yang baru menyediakan cara yang sederhana dan efisien untuk menggabungkan nilai unik dari sebuah kolom.

Gunakan rumus berikut di sel tempat Anda ingin menggabungkan hasil:

=TEXTJOIN(", ", TRUE, UNIQUE(A2:A18))

Metode 2: Menggunakan Kutools AI Aide

Untuk solusi yang lebih cepat dan sepenuhnya otomatis, Kutools untuk Excel menyediakan alat yang inovatif—Kutools AI Ajudan. Cukup jelaskan tugas Anda, dan AI akan langsung menghasilkan hasil yang diinginkan tanpa pengaturan manual. Ini menghilangkan kebutuhan akan rumus yang rumit atau konfigurasi yang memakan waktu, memberikan hasil yang akurat dalam hitungan detik.

Setelah menginstal Kutools Untuk Excel, Silakan klik Kutools > Ajudan AI untuk membuka Kutools AI Ajudan pane

1. Pilih sel yang ingin Anda gabungkan hanya nilai uniknya;
2. Ketik persyaratan di kotak obrolan: seperti:
   Gabungkan nilai unik dengan koma dari rentang yang dipilih dan letakkan hasil gabungan ke dalam sel C2
3. Lalu, tekan Enter atau klik Kirim tombol. Kutools AI akan menganalisis pertanyaan, setelah selesai, silakan klik Eksekusi tombol untuk mendapatkan hasilnya.
   

Metode 3: Menggunakan Fungsi yang Ditentukan Pengguna

Bagi pengguna tingkat lanjut yang membutuhkan fleksibilitas lebih atau ingin mengotomatiskan proses, fungsi VBA kustom (UDF) dapat dibuat untuk menggabungkan nilai-nilai unik. Metode ini ideal bagi pengguna yang terbiasa dengan pengodean atau mereka yang membutuhkan solusi yang dapat digunakan kembali.

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

Kode VBA: Gabungkan nilai unik menjadi satu sel:

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice
    Dim xCell As Range
    Dim xDic As Object
    Set xDic = CreateObject("Scripting.Dictionary")
    For Each xCell In xRg
        xDic(xCell.Value) = Empty
    Next
    ConcatUniq = Join$(xDic.Keys, xChar)
    Set xDic = Nothing
End Function

3. Lalu kembali ke lembar kerja Anda, dan masukkan rumus ini: = ConcatUniq (A2: A18, ",") ke dalam sel kosong tempat Anda ingin mengeluarkan hasil gabungan, dan tekan Enter kunci untuk mendapatkan hasil gabungan yang unik, lihat tangkapan layar:

Mencantumkan nilai unik dan menggabungkan nilai yang sesuai

Di Excel, membuat daftar nilai unik dan menggabungkan nilai terkait merupakan tugas umum, terutama saat menangani kumpulan data yang memerlukan ringkasan atau konsolidasi. Bagian ini menyediakan panduan lengkap untuk mencapainya secara efisien.

Metode 1: Menggunakan fungsi TEXTJOIN dan UNIQUE

Fungsi Excel modern seperti UNIQUE, FILTER, dan TEXTJOIN memudahkan untuk membuat daftar nilai unik dan menggabungkan nilai terkait tanpa memerlukan rumus yang rumit.

1. Gunakan fungsi UNIQUE untuk mencantumkan semua nilai unik dari kolom A:

=UNIQUE(A2:A17)

2. Terapkan fungsi TEXTJOIN dan FILTER untuk menggabungkan nilai yang sesuai untuk nilai unik, seret rumus ke bawah untuk mengisi sel lainnya, lihat tangkapan layar:

=TEXTJOIN(", ", TRUE, FILTER($B$2:$B$17, $A$2:$A$17 =D2))

Metode 2: Menggunakan Kutools untuk Excel

Jika Anda memiliki Kutools untuk Excel, itu kuat Lanjutan Gabungkan Baris Fitur ini memungkinkan Anda untuk membuat daftar nilai unik dan menggabungkan nilai terkait dengan mudah—dengan cepat dan mudah, tanpa perlu pengkodean atau rumus yang rumit. Cukup pilih data Anda, konfigurasikan pengaturan, dan biarkan Kutools menangani sisanya, memberikan hasil profesional dalam hitungan detik.

1. Salin dan tempel data asli ke sel lain untuk mencadangkan data. Pilih rentang data, lalu klik Kutools > Gabungkan & Pisahkan > Lanjutan Gabungkan Baris, lihat tangkapan layar:

2. Dalam Lanjutan Gabungkan Baris kotak dialog, konfigurasikan pengaturan:

• Klik nama kolom yang ingin Anda gabungkan duplikatnya, lalu pilih Kunci utama dari daftar tarik-turun di Operasi kolom;
• Kemudian, pilih nama kolom yang ingin Anda gabungkan nilainya, lalu pilih satu pemisah untuk memisahkan nilai dari daftar drop-down di Operasi kolom;
• Akhirnya, klik OK Tombol.
  

Hasil:

Kutools mengotomatiskan proses pengambilan nilai unik dan menggabungkan nilai terkait dengan pembatas yang ditentukan.

Metode 3: Menggunakan kode VBA

Meskipun fungsi bawaan Excel seperti UNIQUE dan TEXTJOIN dapat menangani hal ini sampai batas tertentu, fungsi tersebut mungkin tidak berfungsi dengan baik saat menangani skenario yang rumit atau versi Excel yang lebih lama. Baik Anda pengguna pemula atau pengguna tingkat lanjut, panduan ini akan memandu Anda melalui langkah-langkah untuk mencantumkan nilai unik dan menggabungkan nilai terkait menggunakan kode VBA.

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

Kode VBA: Cantumkan nilai unik dan gabungkan data yang sesuai

Sub test()
    'updateby Extendoffice
    Dim xRg As Range
    Dim xArr As Variant
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    Dim xDic As Object
    Dim xOutputRg As Range
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "Does not support multiple selections", , "Kutools for Excel"
        Exit Sub
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
        Exit Sub
    End If
    Set xOutputRg = Application.InputBox("Please select the output cell", "Kutools for Excel", Type:=8)
    If xOutputRg Is Nothing Then Exit Sub
    xArr = xRg
    Set xDic = CreateObject("Scripting.Dictionary")
    xDic.CompareMode = 1
    For I = 1 To UBound(xArr)
        If Not xDic.Exists(xArr(I, 1)) Then
            xDic.Item(xArr(I, 1)) = xDic.Count + 1
            xArr(xDic.Count, 1) = xArr(I, 1)
            xArr(xDic.Count, 2) = xArr(I, 2)
        Else
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
        End If
    Next
    xOutputRg.Resize(xDic.Count, 2).Value = xArr
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul untuk mengingatkan Anda memilih rentang data yang ingin Anda gabungkan berdasarkan nilai unik, lihat tangkapan layar:

4. Klik OK, kotak perintah lain akan muncul untuk mengingatkan Anda memilih sel untuk meletakkan hasilnya:

5. Klik OK, nilai-nilai unik telah diekstrak dan nilai-nilai terkait di kolom lain telah digabungkan bersama. Lihat tangkapan layar:

Kesimpulannya, menggabungkan nilai-nilai unik di Excel dapat dicapai secara efisien melalui beberapa metode yang disesuaikan dengan berbagai tingkat keahlian dan kebutuhan. Dengan memilih metode yang paling sesuai dengan kebutuhan Anda, Anda dapat menyederhanakan pemrosesan data dan meningkatkan efisiensi pengelolaan nilai-nilai unik di Excel. Jika Anda tertarik untuk mempelajari lebih banyak kiat dan trik Excel, situs web kami menawarkan ribuan tutorial.