2 Cara Gampang Nggabungake Baris ing Excel

Nalika nganalisa data ing Excel, sampeyan bisa nemokake manawa ana pirang-pirang baris duplikat. Ing kasus iki, mbok menawa sampeyan pengin nggabungake baris kanthi cepet. Iki post bakal kurban 2 liya cepet kanggo njaluk iku.

Akeh pangguna kerep kudu nggabungake baris duplikat lan jumlah nilai sing cocog ing Excel. Contone, aku duwe sawetara data ing lembar kerja Excel sing ngemot akeh entri duplikat, kaya gambar ing ngisor iki. Mula, aku pengin nggabungake baris duplikat lan jumlah nilai sing cocog ing kolom liyane. Mesthi bakal repot yen aku nindakake iki kanthi manual. Mulane, aku nggunakake 2 cara ing ngisor iki kanggo nyadari.

Cara 1: Gunakake Fungsi "Konsolidasi".

1. Pisanan, klik sel kosong ing ngendi sampeyan pengin nyelehake data sing digabung lan dijumlah.
2. Banjur, pindhah menyang tab "Data" lan klik tombol "Consolidate".
3. Ing kothak dialog popup, priksa manawa "Sum" dipilih ing kothak "Fungsi".
4. Sabanjure, klik tombol  tombol.
5. Mengko, pilih kisaran sing pengin digabung lan klik  tombol.
6. Sawisé iku, klik tombol "Tambah" ing dialog "Consolidate".
7. Sabanjure, priksa pilihan "Baris ndhuwur" lan "Kolom kiwa".
8. Pungkasan, klik tombol "OK".
9. Sanalika, baris digabungake, kaya sing ditampilake ing gambar ing ngisor iki.

Cara 2: Gunakake Kode VBA Excel

1. Ing wiwitan, pilih kisaran sing dikarepake.
2. Banjur, pemicu editor VBA miturut "Carane Mbukak Kode VBA ing Excel Panjenengan".
3. Sabanjure, nyalin kode VBA ing ngisor iki menyang modul.

Sub MergeRowsSumValues() Dim objSelectedRange As Excel.Range Dim varAddressArray Minangka Varian Dim nStartRow, nEndRow Minangka Integer Dim strFirstColumn, strSecondColumn Minangka String Dim objKamus Minangka Obyek Dim nRow Minangka Integer Dim objNewWorkbook Minangka Excel.Workbook Dim objNewWorksheet Minangka Excel.Worktemes Dim VariantV bjSelectedRange = Excel.Application.Selection varAddressArray = Split(objSelectedRange.Address(, False), ":") nStartRow = Split(varAddressArray(0), "$")(1) strFirstColumn = Split(varAddressArray(0), "$")(0) nEndRow = Split(varAddressArray(1), "$")(1) strSecondColumn = Split(varAddressArray(1), "$")(0) Setel objDictionary = CreateObject("Scripting.Dictionary") Kanggo nRow = nStartRow Kanggo nEndRow strItem = ActiveSheet.Range(strFirstColumn & nRow).Value strValue = ActiveSheet.Range(strSecondColumn & nRow).Value Yen objDictionary.Exists(strItem) = Palsu Banjur objDictionary.DistrItem. tem (strItem) = objDictionary.Item(strItem) + strValue End Yen Sabanjure Set objNewWorkbook = Excel.Application.Workbooks.Add Set objNewWorksheet = objNewWorkbook.Sheets(1) varItems = objDictionary.keys = ovaritemsjDictionaryIw tems ) Kanggo UBound(varItems) nRow = nRow + 0 Kanthi objNewWorksheet .Cells(nRow, 1) = varItems(i) .Cells(nRow, 1) = varValues(i) End With Next objNewWorksheet.Columns("A:B") .AutoFit ErrorHandler: Metu sub End Sub

4. Sawisé iku, pencet "F5" kanggo mbukak makro iki saiki.
5. Nalika makro rampung, buku kerja Excel anyar bakal katon, ing ngendi sampeyan bisa ndeleng baris gabungan lan data sing dijumlah, kaya gambar ing ngisor iki.

comparison

	Kaluwihan	cacat
Cara 1	Gampang operate	Ora bisa ngolah rong kolom sing ora ana ing jejere
Cara 2	1. Trep kanggo nggunakake maneh	1. A dicokot angel mangertos kanggo VBA newbies
	2. Ora bakal kekacoan munggah sheet Excel asli sing sijine data gabungan ing file anyar	2. Ora bisa proses loro kolom ora jejere saben liyane

Nalika Nemokake Kacilakan Excel

Kaya sing wis dingerteni, Excel bisa nabrak saka wektu kanggo wektu. Ing kahanan iki, ing paling awon, file Excel saiki bisa rusak langsung. Ing wektu iku, sampeyan ora duwe pilihan nanging nyoba Recovery Excel. Sampeyan njaluk sampeyan njaluk bantuan profesional utawa nggunakake alat repair Excel khusus, kayata DataNumen Excel Repair.

Pambuka Pengarang:

Shirley Zhang punika pakar Recovery data ing DataNumen, Inc., sing dadi pimpinan donya ing teknologi pemulihan data, kalebu ngrusak SQL Server lan produk software repair Outlook. Kanggo informasi luwih lengkap riko www.datanumensitus