Note: The other languages of the website are Google-translated. Back to English

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 > Content > 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
-day) 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 for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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!
officetab bawah
Urutkan komentar berdasarkan
komentar (5)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Ini adalah cara yang lebih mudah untuk menggabungkan item unik berdasarkan kolom lain:

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

Bekerja dengan baik, saya sering menggunakannya.
Komentar ini diminimalkan oleh moderator di situs
Oh Tuhan. Anda adalah penyelamat, saya mencoba formula yang jauh lebih kompleks dan ini bekerja seperti pesona! Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak. Kamu menyelamatkanku.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih! Ini sangat membantu. Saya menemukan bahwa rumus di bawah ini berhasil. Saya hanya perlu memilih rentang untuk menggabungkan teks, tetapi tidak ingin menduplikasi nilai.
=TEXTJOIN(", ",TRUE,UNIQUE($A2:$K2,TRUE))
Komentar ini diminimalkan oleh moderator di situs
Saya suka rumus ini, tetapi sering kali saya akan memiliki sel kosong dalam rentang data saya, namun rumus ini tidak akan berfungsi dengan yang kosong. bagaimana saya menangani sel kosong?
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL