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 dengan ID / nama yang sama dalam Excel?

Contohnya, anda mempunyai jadual seperti gambar di bawah yang ditunjukkan, dan anda perlu menggabungkan baris dengan ID pesanan, sebarang idea? Di sini, artikel ini akan memperkenalkan dua penyelesaian untuk anda.

Mudah menggabungkan baris dan mengira berdasarkan nilai dalam lajur yang lain dalam Excel

Kutools untuk Excel Advanced Combine Rows utiliti boleh membantu anda menggabungkan baris berdasarkan nilai dalam lajur anohter, dan jumlah, kiraan, purata, dan sebagainya pada masa yang sama! Ciri-ciri Percubaan Percuma 60-hari!
iklan menggabungkan barisan 1



Menggabungkan baris dengan ID / nama yang sama dengan VBA

Kaedah ini akan memperkenalkan VBA untuk segera menggabungkan semua baris dengan ID atau nama yang sama dalam pilihan yang ditentukan. Sila lakukan seperti berikut:

1. Tekan Alt + F11 kunci untuk membuka tetingkap Microsoft Visual Basic for Applications.

2. Klik Memasukkan > Modul, dan kemudian masukkan kod VBA ke dalam tetingkap Modul.

VBA: Menggabungkan Baris dengan ID / nama yang sama dalam Excel

Sub Consolidate_Rows()
Dim xRg As Range
Dim xRows As Long
Dim I As Long, J As Long, K As Long
On Error Resume Next
Set xRg = Application.InputBox("Select Range:", "Kutools For Excel", Selection.Address, , , , , 8)
Set xRg = Range(Intersect(xRg, ActiveSheet.UsedRange).Address)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
For I = xRows To 2 Step -1
For J = 1 To I - 1
If xRg(I, 1).Value = xRg(J, 1).Value And J <> I Then
For K = 2 To xRg.Columns.Count
If xRg(J, K).Value <> "" Then
If xRg(I, K).Value = "" Then
xRg(I, K) = xRg(J, K).Value
Else
xRg(I, K) = xRg(I, K).Value & "," & xRg(J, K).Value
End If
End If
Next
xRg(J, 1).EntireRow.Delete
I = I - 1
J = J - 1
End If
Next
Next
ActiveSheet.UsedRange.Columns.AutoFit
End Sub

3. tekan F5 kunci atau klik Main butang untuk menjalankan VBA ini.

4. Dalam kotak dialog Kutools untuk Excel, sila pilih baris yang akan anda gabungkan, dan klik OK butang. Lihat tangkapan skrin:

Sekarang anda akan melihat baris dalam julat yang dinyatakan digabungkan dengan koma dengan ID yang sama. Lihat tangkapan skrin:

Nota: VBA ini hanya boleh menggabungkan baris dengan nilai dalam lajur pertama. Sebagai contoh, anda ingin menggabungkan baris dengan nama yang sama, anda mesti mengalihkan lajur nama ke lajur pertama julat yang ditetapkan.


Menggabungkan baris dengan ID / nama yang sama dengan Kutools untuk Excel

Jika anda mempunyai Kutools untuk Excel dipasang, anda boleh memohon Advanced Combine Rows ciri untuk dengan cepat menggabungkan baris dengan ID atau nama yang sama dalam julat yang ditentukan.

Kutools untuk Excel - Menggabungkan lebih banyak daripada Fungsi dan Alat Lanjutan 300 untuk Microsoft Excel

1. Pilih baris yang akan anda gabungkan, dan klik Kutools > Kandungan > Advanced Combine Rows. Lihat tangkapan skrin:

2. Dalam kotak dialog Lanjutan Baris Menggabungkan, sila pilih lajur ID atau nama yang akan anda gabungkan dengan, klik Kunci utama, dan kemudian tentukan peraturan gabungan untuk lajur yang lain yang anda perlukan.

Dalam kes saya, (1) Saya pilih ID Pesanan lajur, dan klik Kunci utama; (2) pilih Tarikh lajur, dan klik Mengira > Pengiraan; (3) pilih Penjual lajur, dan klik Gabungkan > Komma; (4) pilih jumlah lajur, dan klik Mengira > Sum. Lihat tangkapan skrin:

3. Klik OK butang.
Sekarang anda akan melihat baris yang dipilih digabungkan berdasarkan ID pesanan. Lihat tangkapan skrin:


Related articles:


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.