Note: The other languages of the website are Google-translated. Back to English
Masuk  \/ 
x
or
x
Daftar  \/ 
x

or

Bagaimana cara menggabungkan baris menjadi satu sel berdasarkan grup di Excel?

Berikut adalah rentang dua kolom, satu daftar kelas, dan yang lainnya adalah daftar nama siswa. Seperti yang Anda lihat, beberapa siswa berada di kelas yang sama, beberapa tidak. Sekarang saya ingin menggabungkan siswa di kelas yang sama ke dalam satu sel seperti gambar di bawah ini, bagaimana saya bisa cepat menanganinya di Excel?
doc digabung dengan grup 1

Kelompokkan dan gabungkan dengan rumus dan fungsi Filter

Kelompokkan dan gabungkan dengan kode VBA

Kelompokkan dan gabungkan dengan Advanced Combine Rowside bagus3


Kelompokkan dan gabungkan dengan rumus dan fungsi Filter

Di Excel, Anda bisa menerapkan rumus ke baris gabungan berdasarkan satu kolom, lalu gunakan fungsi Filter untuk menampilkan hasilnya saja.

Catatan: Anda perlu menyortir data Anda berdasarkan kelas sebelum mengikuti langkah-langkah.

1. Dalam sel kosong di sebelah rentang data, misalnya, C13, ketikkan rumus ini =IF(A13=A12,C12&", "&B13,B13), tekan Enter kunci dan isi rumus ke sel dengan menyeret gagang isian.
doc digabung dengan grup 2

Dalam rumusnya, A13 adalah data pertama di kolom "Kelas", B13 adalah data pertama di kolom "Nama", "," adalah pemisah untuk membatasi konten gabungan.

2. Kemudian di kolom berikutnya, D13, ketikkan rumus ini =IF(A13<>A14,"Last","") , dan seret gagang isian ke bawah untuk menerapkan rumus ke sel yang Anda butuhkan.
doc digabung dengan grup 3

3. Sekarang pilih semua rentang data termasuk rumus dan klik Data > Filter untuk menambahkan Filter icons ke data.
doc digabung dengan grup 4

4. Klik Filter icon di header rumus terakhir, centang Last checkbox hanya dari daftar drop-down, dan klik OK.
doc digabung dengan grup 5

Sekarang hasilnya seperti di bawah ini, Anda dapat menghapus kolom helper terakhir jika Anda tidak membutuhkannya.
doc digabung dengan grup 6


Kelompokkan dan gabungkan dengan kode VBA

Berikut adalah kode VBA yang juga bisa menangani pekerjaan ini.

1. tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic for Applications jendela.

2. Kemudian di jendela, klik Tools > References untuk mengaktifkan References dialog, dan periksa Microsoft Scripting Runtime. Lihat tangkapan layar:
doc digabung dengan grup 7
doc digabung dengan grup 8

3. klik OK, Dan klik Insert > Module di jendela VBA, dan salin dan tempel kode VBA di bawah ini ke file Module naskah. Lihat tangkapan layar:

VBA: Menggabungkan baris menjadi satu sel berdasarkan grup

  Sub ConcatenateCellsIfSameValues()
'UpdatebyExtendoffice20180201
    Dim I As Long
    Dim J As Long
    Dim xRg As Range
    Dim xRgKey As Range
    Dim xRgVal As Range
    Dim xStr As String
    Dim xDic As New Dictionary
    On Error Resume Next
    Set xRg = Application.InputBox("Select data range", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xRgKey = Application.InputBox("Select key column", "KuTools for Excel", xRg.Columns(1).Address, , , , , 8)
    If xRgKey Is Nothing Then
        MsgBox "Key column cannot be empty", vbInformation, "KuTools for Excel"
    End If
    Set xRgVal = xRg(1).Offset(, 1).Resize(xRg.Rows.Count, xRg.Columns.Count - 1)
    For I = 1 To xRgKey.Count
        If I > xRgKey.Count Then Exit For
        xStr = ""
        For J = 1 To xRgVal.Columns.Count
            xStr = xStr & " " & xRgVal(I, J)
        Next
        If xDic.Exists(xRgKey(I).Text) Then
            xDic(xRgKey(I).Text) = xDic(xRgKey(I).Text) & xStr
            xRgKey(I).EntireRow.Delete
            I = I - 1
       Else
            xDic.Add xRgKey(I).Text, xStr
        End If
    Next
    For I = 1 To xRgVal.Count
        xRgVal(I).Value = xDic(xRgKey(I).Text)
    Next
End Sub

doc digabung dengan grup 9

4. tekan F5 kunci, dan pilih rentang data yang Anda gunakan dalam dialog popping.
doc digabung dengan grup 10

5. klik OK untuk memilih kolom kunci yang ingin Anda kelompokkan berdasarkan.
doc digabung dengan grup 11

6. klik OK, sekarang hasilnya seperti dibawah ini:
doc digabung dengan grup 12


Kelompokkan dan gabungkan dengan Advanced Combine Rows

Berikut adalah utilitas di Kutools untuk Excel, Advanced Combine Baris, yang dapat menggabungkan baris atau melakukan penghitungan berdasarkan kolom kunci di Excel.

Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. 

Setelah menginstal Kutools for Excel, lakukan seperti di bawah ini:(Unduh Gratis Kutools untuk Excel Sekarang!)

1. Pilih rentang data yang Anda gunakan dan klik Kutools > Gabungkan & Pisahkan > Lanjutan Gabungkan Baris.
doc digabung dengan grup 13

2. Dalam Advanced Combine Rows jendela, pilih kolom yang ingin Anda gabungkan berdasarkan baris, dan klik Primary Key untuk mengaturnya sebagai kolom kunci.
doc digabung dengan grup 14

3. Pilih kolom yang ingin Anda gabungkan, klik Combine, dan pilih satu pembatas yang Anda gunakan untuk memisahkan konten gabungan.

doc digabung dengan grup 15 doc panah kanan doc digabung dengan grup 16

4. klik Ok. Hasilnya ditunjukkan seperti ini:
doc digabung dengan grup 17

Catatan: Sebelum menerapkan utilitas, sebaiknya Anda memiliki salinan data asli.


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 ...
  • Super Formula Bar (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-2019 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.
kte tab 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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.