2 Cara Mudah Mengkonsolidasikan Baris di Excel Anda

Saat menganalisis data di Excel, Anda mungkin menemukannya berisi beberapa baris duplikat. Dalam kasus ini, mungkin Anda ingin mengonsolidasi baris dengan cepat. Ini post akan menawarkan 2 cara cepat untuk mendapatkannya.

Banyak pengguna sering kali perlu menggabungkan baris duplikat dan menjumlahkan nilai yang sesuai di Excel. Misalnya, saya memiliki berbagai data di lembar kerja Excel yang berisi banyak entri duplikat, seperti tangkapan layar berikut. Oleh karena itu, saya ingin mengkonsolidasikan baris duplikat dan menjumlahkan nilai yang sesuai di kolom lain. Ini pasti akan merepotkan jika saya melakukan ini secara manual. Oleh karena itu, saya memanfaatkan 2 cara berikut ini untuk mewujudkannya.

Metode 1: Gunakan Fungsi "Konsolidasi"

1. Pertama, klik sel kosong tempat Anda ingin meletakkan data yang digabungkan dan dijumlahkan.
2. Kemudian, buka tab "Data" dan klik tombol "Konsolidasi".
3. Di kotak dialog popup, pastikan "Sum" dipilih di kotak "Function".
4. Selanjutnya, klik  .
5. Kemudian, pilih kisaran yang ingin Anda gabungkan dan klik  .
6. Setelah itu, klik tombol “Add” pada dialog “Consolidate”.
7. Selanjutnya, centang opsi "Baris atas" dan "Kolom kiri".
8. Terakhir, klik tombol "OK".
9. Sekaligus, baris dikonsolidasikan, seperti yang ditunjukkan pada tangkapan layar berikut.

Metode 2: Gunakan Kode VBA Excel

1. Pada awalnya, pilih rentang yang Anda inginkan.
2. Kemudian, picu editor VBA menurut "Cara Menjalankan Kode VBA di Excel Anda".
3. Selanjutnya, salin kode VBA berikut ke dalam modul.

Sub MergeRowsSumValues()
    Dim objSelectedRange As Excel.Range
    Dim varAddressArray As Variant
    Dim nStartRow, nEndRow As Integer
    Dim strFirstColumn, strSecondColumn As String
    Dim objDictionary As Object
    Dim nRow As Integer
    Dim objNewWorkbook As Excel.Workbook
    Dim objNewWorksheet As Excel.Worksheet
    Dim varItems, varValues As Variant
 
    On Error GoTo ErrorHandler
    Set objSelectedRange = 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)
 
    Set objDictionary = CreateObject("Scripting.Dictionary")
 
    For nRow = nStartRow To nEndRow
        strItem = ActiveSheet.Range(strFirstColumn & nRow).Value
        strValue = ActiveSheet.Range(strSecondColumn & nRow).Value
  
        If objDictionary.Exists(strItem) = False Then
           objDictionary.Add strItem, strValue
        Else
           objDictionary.Item(strItem) = objDictionary.Item(strItem) + strValue
        End If
    Next
 
    Set objNewWorkbook = Excel.Application.Workbooks.Add
    Set objNewWorksheet = objNewWorkbook.Sheets(1)
 
    varItems = objDictionary.keys
    varValues = objDictionary.items
 
    nRow = 0
    For i = LBound(varItems) To UBound(varItems)
        nRow = nRow + 1
        With objNewWorksheet
             .Cells(nRow, 1) = varItems(i)
             .Cells(nRow, 2) = varValues(i)
        End With
    Next
    objNewWorksheet.Columns("A:B").AutoFit
 
ErrorHandler:
    Exit sub
End Sub

4. Setelah itu, tekan "F5" untuk menjalankan makro ini sekarang.
5. Saat makro selesai, buku kerja Excel baru akan muncul, di mana Anda bisa melihat baris yang digabungkan dan data yang dijumlahkan, seperti gambar di bawah ini.

Perbandingan

Saat Menghadapi Kerusakan Excel

Seperti yang kita semua tahu, Excel bisa macet dari waktu ke waktu. Dalam keadaan ini, yang paling buruk, file Excel saat ini mungkin langsung rusak. Pada saat itu, Anda tidak punya pilihan selain mencoba Pemulihan Excel. Ini menuntut Anda untuk meminta bantuan profesional atau menggunakan alat perbaikan khusus Excel, seperti DataNumen Excel Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk korup SQL Server dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com