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

Bagaimana cara cepat menggabungkan baris yang berdekatan dengan data yang sama di Excel?

Misalkan Anda memiliki lembar kerja dengan data yang sama pada baris yang berdekatan, dan sekarang Anda ingin menggabungkan sel yang sama menjadi satu sel, sehingga datanya terlihat rapi dan indah. Bagaimana Anda menggabungkan baris yang berdekatan dengan data yang sama dengan cepat dan nyaman? Hari ini, saya akan memperkenalkan Anda beberapa cara cepat untuk mengatasi masalah ini.


Gabungkan baris yang berdekatan dari data yang sama dengan kode VBA

Tentu saja Anda dapat menggabungkan data yang sama dengan Gabungkan & Pusatkan perintah, tetapi jika ada ratusan sel yang perlu digabungkan, metode ini akan memakan waktu. Jadi kode VBA berikut dapat membantu Anda menggabungkan data yang sama dengan mudah.

1. Tahan ALT + F11 kunci, dan itu membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Moduljendela.

Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
    For i = 1 To xRows - 1
        For j = i + 1 To xRows
            If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
                Exit For
            End If
        Next
        WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
        i = j - 1
    Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Lalu tekan F5 untuk menjalankan kode ini, dialog ditampilkan di layar untuk memilih rentang untuk dikerjakan. Lihat tangkapan layar:

doc menggabungkan sel yang sama 2

4. Kemudian klik OK, data yang sama di kolom A akan digabungkan. Lihat tangkapan layar:

doc menggabungkan sel yang sama 1


Gabungkan baris yang berdekatan dari data yang sama dengan Kutools for Excel

Dengan Gabungkan sel yang sama kegunaan Kutools untuk Excel, Anda dapat dengan cepat menggabungkan nilai yang sama di beberapa kolom dengan satu klik.

Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. 

Setelah menginstal Kutools untuk Excel, Anda dapat melakukan hal berikut:

1. Pilih kolom yang ingin Anda gabungkan baris yang berdekatan dengan data yang sama.

2. Klik Kutools > Gabungkan & Pisahkan > Gabungkan Sel yang Sama, lihat tangkapan layar:

3. Dan kemudian data yang sama di kolom yang dipilih telah digabungkan dalam satu sel. Lihat tangkapan layar:

doc menggabungkan sel yang sama 4

Klik untuk Mengunduh Kutools for Excel dan uji coba gratis Sekarang!

Untuk mengetahui lebih lanjut tentang ini, silakan kunjungi ini Gabungkan Sel yang Sama fitur.


Demo: Gabungkan sel yang sama menjadi satu sel atau pisahkan untuk mengisi nilai duplikat:

Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang!

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-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.
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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (43)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara mereplikasi makro VBA untuk menggabungkan sel yang berdekatan dalam kolom, bukan baris? terima kasih
Komentar ini diminimalkan oleh moderator di situs
Violeta, saya menduplikasi baris (bawah). misal misal coba coba misal misal coba coba Dan ubah kode menjadi ini: Next WorkRng.Parent.Range(Rng.Cells(1, i), Rng.Cells(1, j - 1)).Merge i = j - 1 It menggabungkan baris di atas menjadi "misalnya" dan "coba"
Komentar ini diminimalkan oleh moderator di situs
untuk siapa pun yang masih mencoba mencapai ini, saya pikir saya sudah mendapatkannya Mulai Kode ******************************** ***** Sub MergeSameCell() 'Updateby20131127 Dim Rng As Range, xCell As Range Dim xRows As Integer xTitleId = "MergeSimilar" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address , Ketik:=8) Application.ScreenUpdating = False Application.DisplayAlerts = False 'xRows = WorkRng.Rows.Count xCols = WorkRng.Columns.Count 'Untuk Setiap Rng Di WorkRng.Columns' For i = 1 To xRows - 1 ' For j = i + 1 Ke xRows ' If Rng.Cells(i, 1).Value Rng.Cells(j, 1).Value Then ' Exit For ' End If ' Next ' WorkRng.Parent.Range(Rng.Cells(i , 1), Rng.Cells(j - 1, 1)).Merge ' i = j - 1 ' Next 'Next Untuk Setiap Rng Dalam WorkRng.Rows For i = 1 To xCols - 1 For j = i + 1 To xCols If Rng.Cells(1, i).Value Rng.Cells(1, j).Value Kemudian Keluar Untuk End If Next WorkRng.Parent.Range(Rng.Cells(1, i), Rng.Cells(1, j - 1)).Merge i = j - 1 Next Next Next Application.DisplayAlerts = True Appl ication.ScreenUpdating = True End Sub ************************************* Akhir Kode IE Cukup modifikasi kode untuk menukar referensi baris apa pun dengan referensi kolom
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak!!! membantu saya di saat yang genting
Komentar ini diminimalkan oleh moderator di situs
Ini telah berguna bagi saya berkali-kali :) Terima kasih banyak, ini menyelamatkan saya banyak waktu kerja. Saya punya permintaan kecil. Saya mencoba mencari cara untuk melakukan penggabungan yang sama, tetapi ketika ada sel kosong di bawah setiap nilai, untuk menggabungkan setiap sel dengan semua sel kosong di bawahnya. Bagaimana saya bisa memodifikasi Makro? Terima kasih sebelumnya
Komentar ini diminimalkan oleh moderator di situs
Coba Kode ini Sub MergeSameCell() Dim Rng As Range, xCell As Range Dim xRows As Integer xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:= 8) Application.ScreenUpdating = False Application.DisplayAlerts = False xRows = WorkRng.Rows.Count Untuk Setiap Rng Dalam WorkRng.Columns For i = 1 To xRows - 1 For j = i + 1 To xRows If Rng.Cells(i, 1 ).Nilai Rng.Sel(j, 1).Nilai Kemudian Keluar Untuk Berakhir Jika Selanjutnya Jika Tidak IsEmpty(Rng.Cells(i, 1).Value) Atau Tidak IsEmpty(Rng.Cells(j - 1, 1).Value ) Kemudian WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge End If i = j - 1 Next Next Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
Komentar ini diminimalkan oleh moderator di situs
coba kode ini Sub MergeSameCell() Dim Rng As Range, xCell As Range Dim xRows As Integer xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:= 8) Application.ScreenUpdating = False Application.DisplayAlerts = False xRows = WorkRng.Rows.Count Untuk Setiap Rng Dalam WorkRng.Columns For i = 1 To xRows - 1 For j = i + 1 To xRows If Rng.Cells(i, 1 ).Nilai Rng.Sel(j, 1).Nilai Kemudian Keluar Untuk Berakhir Jika Selanjutnya Jika Tidak IsEmpty(Rng.Cells(i, 1).Value) Atau Tidak IsEmpty(Rng.Cells(j - 1, 1).Value ) Kemudian WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge End If i = j - 1 Next Next Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
Komentar ini diminimalkan oleh moderator di situs
Jika saya memiliki nama yang sama berbohong Raju 1000 Raju 2000 Monu 100 Monu 200 Lalu bagaimana saya bisa melakukan marge nama dengan jumlah
Komentar ini diminimalkan oleh moderator di situs
Hai ketika menjalankan makro ini saya mendapatkan "Application-defined or object-defined error" di baris WorkRng.Parent.Range(rng.Cells(i, 1), rng.Cells(j - 1, 1)).Merge Any ide bagaimana memperbaikinya? Hormat kami, Michal
Komentar ini diminimalkan oleh moderator di situs
Saya mendapatkan kesalahan yang sama. apakah kamu sudah mengetahuinya? jika Anda melakukannya, bagaimana Anda melakukannya? terima kasih
Komentar ini diminimalkan oleh moderator di situs
Saya mendapatkan kesalahan yang sama
Komentar ini diminimalkan oleh moderator di situs
Saya biarkan skrip ini dimodifikasi sehingga akan menggabungkan sel di bawah dengan nilai yang sama atau dengan sel kosong: Sub MergeSameCell() 'Updateby20131127 Dim Rng As Range, xCell As Range Dim xRows As Integer xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Application.ScreenUpdating = False Application.DisplayAlerts = False xRows = WorkRng.Rows.Count Untuk Setiap Rng Di WorkRng.Columns For i = 1 Ke xRows - 1 Untuk j = i + 1 Ke xRows If Rng.Cells(j, 1).Value "" Kemudian If Rng.Cells(i, 1).Value Rng.Cells(j, 1).Value Kemudian Keluar Untuk End If End If Next WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge i = j - 1 Next Next Next Application.DisplayAlerts = True Application.ScreenUpdating = True Akhir Sub
Komentar ini diminimalkan oleh moderator di situs
Hai tolong bantu. Saya punya masalah dengan kode, dengan baris ini. Ada yang salah? Jika Rng.Sel(j, 1).Nilai "" Maka
Komentar ini diminimalkan oleh moderator di situs
Hai, yang di sana. Anda harus memiliki: if Rng.Cells(j, 1).Value = "" maka...
Komentar ini diminimalkan oleh moderator di situs
Penggabungan bagus. Tetapi perlu menentukan rentang saat menjalankan kode. Saya ingin menentukan rentang yaitu B1:B50 dalam kode vba. Dan menjadikannya perataan kiri atas tapi bagaimana caranya tolong bantu.
Komentar ini diminimalkan oleh moderator di situs
Saat menjalankan kode di atas kemudian menunjukkan kesalahan kompilasi: kesalahan sintaks. Di baris di mana "" digunakan dan baris bawah ini.
Komentar ini diminimalkan oleh moderator di situs
Saya juga mengalami masalah ini dengan baris ini. Jika Rng.Cells(j, 1).Nilai "" Lalu Adakah yang bisa membantu?
Komentar ini diminimalkan oleh moderator di situs
halo, Bagaimana saya bisa menempatkan rentang secara otomatis tanpa input pengguna
Komentar ini diminimalkan oleh moderator di situs
Maaf tapi saya punya orang lain untuk melakukan scripting untuk saya, saya tidak memiliki pengetahuan untuk membantu Anda dengan modifikasi.
Komentar ini diminimalkan oleh moderator di situs
Hai pak, . Saya mencoba kode vba tetapi tidak berhasil. Pesan kesalahan untuk.408. Terutama yang komentar WorkRng.Parent. Rentang(rng.Sel (i, 1), rng.Sel(j - 1, 1)).Gabung. Mohon solusinya. Saya menghabiskan banyak waktu untuk menggabungkan dokumen. Saya kebanyakan menggabungkan format sel C20059290 ini. Terima kasih dan salam Purusothaman. C
Komentar ini diminimalkan oleh moderator di situs
Yang terhormat, . Saya menggunakan kode vba untuk lembar excel untuk menggabungkan sel. Itu tidak berfungsi karena kesalahan 408. Khususnya kode ini WorkRng.Parent. Rentang(rng.Sel (i, 1), rng.Sel(j - 1, 1)).Gabung. Berikan solusinya. Terima kasih dan salam Purusothaman
Komentar ini diminimalkan oleh moderator di situs
Hai, Dapatkah seseorang menginstruksikan dengan reverse engineering - demarging sel dengan mengisi nilai yang sama untuk semua.
Komentar ini diminimalkan oleh moderator di situs
Hai, Makro berfungsi, tetapi sekarang ketika saya ingin memfilter pada kolom A, hanya Informasi pertama dari kolom B yang berlaku untuk kolom A yang terlihat. Melihat contoh yang diberikan di makro, jika saya ingin memfilter pada hari Senin setelah penggabungan selesai, hanya Nicol yang akan Menampilkan dan tidak ada info dari Lucy dan Lily yang ditampilkan. Apakah ada garis yang bisa saya tambahkan untuk menghindari ini?
Komentar ini diminimalkan oleh moderator di situs
jika Anda benar-benar ingin memfilternya, menggabungkan sel tidak akan membantu Anda.
Komentar ini diminimalkan oleh moderator di situs
In EXCEL INPUT NAME PRO1 PRO2 PRO3 A B C output A PRO1 A PRO2 A PRO3 B PRO1 B PRO2 B PRO3 C PRO1 C PRO2 C PRO3
Komentar ini diminimalkan oleh moderator di situs
Ini sangat membantu dan telah menghemat waktu saya untuk tingkat yang lebih besar
Komentar ini diminimalkan oleh moderator di situs
Bisakah kode VBA diubah untuk mencapai hal yang sama untuk menggabungkan seluruh kolom (sebagai lawan dari baris bawah, seperti di atas) dan kemudian ulangi untuk semua baris?
Komentar ini diminimalkan oleh moderator di situs
Gunakan kode di atas dan kemudian transpos hasilnya
Komentar ini diminimalkan oleh moderator di situs
Sangat membantu !! Terima kasih banyak
Komentar ini diminimalkan oleh moderator di situs
Oh sobat, kau menghemat banyak hariku. Terima kasih!!!!
Komentar ini diminimalkan oleh moderator di situs
Pada baris kode VBA di atas nomor 19 "i=j-1"
bagaimana hal itu akan mempengaruhi logika kita sih? Saya memang menghapusnya dan masih bisa mendapatkan hasil yang sama!
Ada tujuan khusus mengapa ia hadir?
Komentar ini diminimalkan oleh moderator di situs
Ini untuk membatasi nilai i ke baris terakhir.
Tolong abaikan postingan ini!
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan