2 Cara Mudah Menggabungkan Baris dalam Excel Anda

Apabila menganalisis data dalam Excel, anda mungkin mendapati ia mengandungi berbilang baris pendua. Dalam kes ini, mungkin anda ingin menyatukan baris dengan cepat. Catatan ini akan menawarkan 2 cara cepat untuk mendapatkannya.

Ramai pengguna sering perlu menggabungkan baris pendua dan menjumlahkan nilai yang sesuai di Excel. Sebagai contoh, saya mempunyai pelbagai data dalam lembaran kerja Excel yang mengandungi banyak entri pendua, seperti tangkapan skrin berikut. Oleh itu, saya ingin menggabungkan baris pendua dan menjumlahkan nilai yang sesuai di lajur lain. Pasti akan menyusahkan jika saya melakukan ini secara manual. Oleh itu, saya menggunakan 2 cara berikut untuk merealisasikannya.

Kaedah 1: Gunakan Fungsi "Gabungkan"

1. Mula-mula, klik sel kosong di mana anda mahu meletakkan data gabungan dan penjumlahan.
2. Kemudian, beralih ke tab "Data" dan klik pada butang "Gabungkan".
3. Di kotak dialog pop timbul, pastikan "Jumlah" dipilih dalam kotak "Fungsi".
4. Seterusnya, klik  .
5. Kemudian, pilih julat yang ingin anda gabungkan dan klik  .
6. Selepas itu, klik butang "Tambah" dalam dialog "Gabungkan".
7. Selepas itu, periksa pilihan "Baris atas" dan "Lajur kiri".
8. Akhirnya, klik butang "OK".
9. Sekali gus, baris digabungkan, seperti yang ditunjukkan dalam tangkapan skrin berikut.

Kaedah 2: Gunakan Kod VBA Excel

1. Pada awalnya, pilih julat yang anda mahukan.
2. Kemudian, cetuskan editor VBA mengikut “Cara Menjalankan Kod VBA di Excel Anda".
3. Seterusnya, salin kod 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. Selepas itu, tekan "F5" untuk menjalankan makro ini sekarang.
5. Apabila makro selesai, buku kerja Excel baru akan muncul, di mana anda dapat melihat baris gabungan dan data penjumlahan, seperti gambar di bawah.

perbandingan

Semasa Menghadapi Kerosakan Excel

Seperti yang kita semua ketahui, Excel boleh crash dari semasa ke semasa. Dalam keadaan ini, paling teruk, fail Excel semasa mungkin rosak secara langsung. Pada masa itu, anda tidak mempunyai pilihan selain mencuba Pemulihan Excel. Ia menuntut anda sama ada meminta bantuan profesional atau menggunakan alat pembaikan Excel khusus, seperti DataNumen Excel Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk rasuah SQL Server dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com