Loncat ke daftar isi utama

Bagaimana cara menggabungkan teks dalam kolom tanpa duplikat di Excel?

Tahukah Anda cara menggabungkan teks dari kolom ke dalam sel tanpa duplikat di Excel? Dan bagaimana jika menggabungkan teks dalam kolom tanpa duplikat berdasarkan nilai sel tertentu? Artikel ini memberikan metode untuk menyelesaikan masalah.

Gabungkan teks dalam kolom tanpa duplikat dengan rumus
Gabungkan teks dalam kolom tanpa duplikat berdasarkan nilai sel lain dengan kode VBA
Gabungkan teks dengan mudah di kolom berdasarkan nilai sel lain dengan alat yang luar biasa

Tutorial lainnya untuk menggabungkan sel…


Gabungkan teks dalam kolom tanpa duplikat dengan rumus

Seperti gambar di bawah ini yang ditunjukkan, Anda ingin menggabungkan teks di kolom A ke dalam satu sel tanpa duplikat. Silakan lakukan sebagai berikut.

1. Pilih sel kosong, salin rumus di bawah ini ke dalamnya dan tekan lain + perubahan + Enter kunci pada saat bersamaan.

=TEXTJOIN(", ", TRUE, IF(MATCH(A2:A12, A2:A12, 0)=MATCH(ROW(A2:A12), ROW(A2:A12)), A2:A12, ""))

Catatan: Dalam rumusnya, ", "Adalah pemisah dari teks gabungan; A2: A12 adalah sel kolom yang akan Anda gabungkan. Harap ubah sesuai kebutuhan Anda.

Sekarang teks di kolom tertentu digabungkan tanpa duplikat.


Gabungkan teks dalam kolom tanpa duplikat berdasarkan nilai sel lain dengan kode VBA

Terkadang, Anda mungkin perlu menggabungkan teks dalam kolom tanpa duplikat berdasarkan nilai di sel lain, seperti gambar di bawah ini, Anda bisa menurunkannya sebagai berikut.

1. Di lembar kerja yang berisi teks-teks yang akan Anda ikuti, tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul, lalu salin kode VBA di bawah ini ke jendela kode Modul.

Kode VBA: Gabungkan teks dalam kolom tanpa duplikat berdasarkan nilai sel lain

Sub JoinTextsWithoutDuplicates()
'Updated by Extendoffice 20190924
    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 xValue
    Dim xStr, xStrValue As String
    Dim xB As Boolean
    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
    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
            xStrValue = xArr(I, 2)
           xB = True
            For Each xStr In Split(xArr(xDic.Item(xArr(I, 1)), 2), ",")
                If xStr = xStrValue Then
                    xB = False
                    Exit For
                End If
            Next
            If xB Then
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
            End If
        End If
    Next
    Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub

3. tekan F5 kunci untuk menjalankan kode. Dalam bermunculan Kutools untuk Excel dialog, pilih rentang termasuk nilai yang akan Anda gunakan untuk menggabungkan teks dan teks yang akan Anda gabungkan, lalu klik OK .

Kemudian nilai-nilai unik diekstraksi dan teks unik yang sesuai di kolom lain digabungkan dan ditempatkan di lembar kerja baru.


Gabungkan teks dengan mudah di kolom berdasarkan nilai sel lain dengan alat yang luar biasa

Mungkin Anda tidak pandai rumus atau kode VBA. Di sini merekomendasikan Lanjutan Gabungkan Baris kegunaan Kutools untuk Excel untukmu. Dengan utilitas ini, Anda dapat dengan mudah menggabungkan teks dalam kolom berdasarkan nilai di sel lain hanya dengan beberapa klik.

Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.

Catatan: Karena utilitas akan langsung diterapkan dalam kisaran aslinya, harap buat salinan data asli sebelum menerapkan operasi di bawah ini.

1. Pilih rentang (termasuk teks yang akan Anda gabungkan dan nilai yang akan Anda ikuti berdasarkan teks), klik Kutools > Konten > Lanjutan Gabungkan Baris. Lihat tangkapan layar:

2. Dalam Lanjutan Gabungkan Baris dialog, lakukan hal berikut:

  • Pilih kolom yang berisi nilai yang akan Anda gunakan untuk menggabungkan teks, dan klik Kunci utama;
  • Pilih kolom yang berisi teks yang akan Anda gabungkan ke dalam sel, dan klik Menggabungkan > Koma;
  • Jika ada kolom tersisa, harap tentukan ketentuan untuk mereka. Dalam kasus ini, saya memilih kolom Penjualan dan pilih Dihitung > Jumlah.
  • klik OK tombol. Lihat tangkapan layar:

Kemudian Anda dapat melihat semua teks di kolom tertentu digabungkan berdasarkan kolom kunci. Lihat tangkapan layar:

  Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.


Terkait artikel

Gabungkan baris duplikat dan jumlahkan nilainya di Excel
Di Excel, Anda mungkin selalu menemui masalah ini, saat Anda memiliki rentang data yang berisi beberapa entri duplikat, dan sekarang Anda ingin menggabungkan data duplikat dan menjumlahkan nilai yang sesuai di kolom lain, bagaimana Anda bisa mengatasi masalah ini? Coba metode dalam artikel ini.

Gabungkan Beberapa Sel Menjadi Sel Dengan Spasi, Koma, atau pemisah lainnya Di Excel
Saat Anda menggabungkan sel dari beberapa kolom atau baris ke dalam satu sel, data gabungan mungkin tidak dipisahkan. Tetapi jika Anda ingin memisahkannya dengan tanda tertentu, seperti spasi, koma, titik koma, atau lainnya, bagaimana Anda bisa melakukannya? Tutorial ini akan memperkenalkan beberapa metode untuk Anda.

Sel gabungan menyimpan pemformatan nomor / tanggal di Excel
Anda mungkin telah memperhatikan bahwa ketika kami menerapkan fungsi CONCATENATE di Excel, format tanggal (2014-01-03) dan format angka seperti format mata uang ($ 734.7), format persentase (48.9%), tempat desimal (24.5000), dll. dihapus dan ditampilkan sebagai angka umum dalam hasil penggabungan. Pada artikel ini kami menemukan beberapa solusi untuk menggabungkan data dengan menyimpan tanggal atau format angka di Excel.

Balikkan fungsi penggabungan di Excel
Seperti yang kita semua ketahui, fungsi Concatenate di Excel dapat membantu kita menggabungkan banyak sel menjadi satu sel, tetapi, terkadang, Anda ingin melakukan kebalikan dari fungsi Concatenate, itu berarti tidak menggabungkan sel, tetapi membagi nilai sel menjadi beberapa sel terpisah. Metode dalam artikel ini akan membantu memecahkan masalah tersebut.

Gabungkan sel jika nilai yang sama ada di kolom lain di Excel
Artikel ini menyediakan metode untuk membantu Anda menggabungkan sel dengan mudah jika nilai yang sama sudah ada di kolom lain di Excel.

Tutorial lainnya untuk menggabungkan sel…

Alat Produktivitas Kantor Terbaik

🤖 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk


Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I like this formula, but often times i will have a blank cell in my data range and yet this formula won't work with blanks. how would i handle blank cells?
This comment was minimized by the moderator on the site
Thanks! This was helpful. I found that the formula below did the trick. I just needed to select a range to combine text, but didn't want to duplicate values.
=TEXTJOIN(", ",TRUE,UNIQUE($A2:$K2,TRUE))
This comment was minimized by the moderator on the site
This is a much easier way to join unique items based on another column:

=TEXTJOIN(", ",TRUE,UNIQUE(IF(Table1[Category]=Table2[Unique Categories],Table1[Items to Join],"")))

Works a treat, I use it a lot.
This comment was minimized by the moderator on the site
Thanks a Lot. You saved me.
This comment was minimized by the moderator on the site
Omg. You're a lifesaver, I was trying way more complex formulas and this worked like a charm! Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations