Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menggabungkan baris ke satu sel berdasarkan kumpulan dalam Excel?

Berikut adalah pelbagai dua lajur, satu ialah senarai kelas, dan yang lain ialah senarai nama pelajar. Seperti yang anda lihat, sesetengah pelajar berada dalam kelas yang sama, ada yang tidak. Sekarang saya ingin menggabungkan pelajar-pelajar dalam kelas yang sama ke dalam satu sel seperti screenshot yang ditunjukkan di bawah, bagaimana saya dapat dengan mudah mengendalikannya dalam Excel?
doc concatenate oleh kumpulan 1

Kumpulan dan menggabungkan dengan formula dan fungsi Penapis

Kumpulan dan menggabungkan dengan kod VBA

Kelompok dan concatenate dengan Advanced Combine Rowsidea yang baik3

Mudah Menggabungkan lajur atau baris tanpa kehilangan data dalam Excel

Jika anda bekerja dengan lembaran kerja yang mengandungi banyak rekod pendua, dan kini anda perlu menggabungkan / menggabungkan baris berdasarkan nilai yang sama dan melakukan beberapa pengiraan, seperti jumlah, purata, kiraan baris pendua. Dengan ini Advanced Combine Rows of Kutools for Excel, anda boleh dengan cepat menggabungkan nilai sama / data yang sama atau baris pendua ke dalam sel yang sesuai. Klik untuk 60 hari percubaan percuma!
doc maju menggabungkan baris
Kutools untuk Excel: dengan lebih daripada 200 berguna Excel tambahan, bebas untuk mencuba tanpa had pada hari 60.

Kumpulan dan menggabungkan dengan formula dan fungsi Penapis

Dalam Excel, anda boleh menggunakan formula untuk baris yang disatukan berdasarkan satu lajur, kemudian gunakan fungsi Penapis untuk memaparkan hasilnya sahaja.

Nota: Anda perlu menyusun data anda mengikut kelas sebelum mengikuti langkah-langkah.

1. Dalam sel kosong di sebelah julat data, sebagai contoh, C13, taipkan formula ini =IF(A13=A12,C12&", "&B13,B13), tekan Enter kunci dan isi formula ke sel-sel dengan mengheret mengendalikan penuh.
doc concatenate oleh kumpulan 2

Dalam formula, A13 adalah data pertama dalam lajur "Kelas", B13 adalah data pertama dalam lajur "Nama", "," adalah pemisah untuk membatasi kandungan yang bersambung.

2. Kemudian dalam lajur seterusnya, D13, taipkan formula ini =IF(A13<>A14,"Last","") , dan seret kekangan pengisi ke bawah untuk memohon formula ke sel yang anda perlukan.
doc concatenate oleh kumpulan 3

3. Sekarang pilih semua julat data termasuk formula dan klik Tarikh > Filter untuk menambah Filter icons kepada data.
doc concatenate oleh kumpulan 4

4. Klik Filter icon dalam tajuk formula terakhir, periksa Last kotak semak hanya dari senarai juntai bawah, dan klik OK.
doc concatenate oleh kumpulan 5

Sekarang hasilnya ditunjukkan seperti di bawah, anda boleh mengalih keluar lajur pembantu terakhir jika anda tidak memerlukannya.
doc concatenate oleh kumpulan 6


Kumpulan dan menggabungkan dengan kod VBA

Berikut adalah kod VBA yang juga boleh mengendalikan kerja ini.

1. Akhbar Alt + F11 kunci untuk membolehkan Microsoft Visual Basic for Applications tingkap.

2. Kemudian dalam tetingkap, klik Tools > References bagi membolehkan References dialog, dan semak Microsoft Scripting Runtime. Lihat tangkapan skrin:
doc concatenate oleh kumpulan 7
doc concatenate oleh kumpulan 8

3. klik OK, dan klik Insert > Module dalam tetingkap VBA, dan salin dan tampal di bawah kod VBA kepada Module skrip. Lihat tangkapan skrin:

VBA: Baris concatenate menjadi satu sel berdasarkan kumpulan

  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 concatenate oleh kumpulan 9

4. Akhbar F5 kekunci, dan pilih julat data yang anda gunakan dalam dialog yang muncul.
doc concatenate oleh kumpulan 10

5. klik OK untuk memilih lajur utama yang anda mahu kumpulan berdasarkan.
doc concatenate oleh kumpulan 11

6. klik OK, kini hasilnya ditunjukkan seperti di bawah:
doc concatenate oleh kumpulan 12


Kelompok dan concatenate dengan Advanced Combine Rows

Berikut adalah utiliti dalam Kutools untuk Excel, Advanced Combine Baris, yang boleh menggabungkan baris atau melakukan pengiraan berdasarkan lajur utama dalam Excel.

Kutools untuk Excel, dengan lebih daripada 120 fungsi yang berguna, menjadikan pekerjaan anda lebih mudah.

Selepas memasang Kutools untuk Excel, sila lakukan seperti di bawah:(Muat turun Percuma Kutools untuk Excel Sekarang!)

1. Pilih julat data yang anda gunakan dan klik Kutools > Content > Advanced Combine Rows.
doc concatenate oleh kumpulan 13

2. Di dalam Advanced Combine Rows tetingkap, pilih lajur yang anda ingin menggabungkan baris berdasarkan, dan klik Primary Key untuk menetapkannya sebagai lajur utama.
doc concatenate oleh kumpulan 14

3. Pilih lajur yang anda perlukan untuk menggabungkan, klik Combine, dan pilih satu pembatas yang anda gunakan untuk memisahkan kandungan gabungan.

doc concatenate oleh kumpulan 15 arrow arrow kanan doc concatenate oleh kumpulan 16

4. klik Ok. Hasilnya ditunjukkan seperti ini:
doc concatenate oleh kumpulan 17

Nota: Sebelum menggunakan utiliti, anda lebih baik mempunyai salinan data asal.


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
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.