2 formas sencillas de consolidar filas en Excel

Al analizar los datos en Excel, puede encontrar que contiene varias filas duplicadas. En este caso, quizás desee consolidar rápidamente las filas. Esta post ofrecerá 2 medios rápidos para conseguirlo.

Muchos usuarios con frecuencia necesitan fusionar las filas duplicadas y sumar los valores correspondientes en Excel. Por ejemplo, tengo un rango de datos en una hoja de cálculo de Excel que contiene muchas entradas duplicadas, como la siguiente captura de pantalla. Por lo tanto, deseo consolidar las filas duplicadas y sumar los valores correspondientes en otra columna. Definitivamente será problemático si hago esto manualmente. Por lo tanto, utilizo las siguientes 2 formas de realizarlo.

Método 1: utilizar la función "Consolidar"

1. En primer lugar, haga clic en una celda en blanco donde desea colocar los datos combinados y sumados.
2. Luego, vaya a la pestaña "Datos" y haga clic en el botón "Consolidar".
3. En el cuadro de diálogo emergente, asegúrese de que "Suma" esté seleccionado en el cuadro "Función".
4. A continuación, haga clic en el  .
5. Posteriormente, seleccione el rango que desea consolidar y haga clic en  .
6. Después de eso, haga clic en el botón "Agregar" en el cuadro de diálogo "Consolidar".
7. Posteriormente, marque la opción “Fila superior” y “Columna izquierda”.
8. Finalmente, haga clic en el botón "Aceptar".
9. De una vez, las filas se consolidan, como se muestra en la siguiente captura de pantalla.

Método 2: use el código Excel VBA

1. Al principio, seleccione el rango que desee.
2. Luego, active el editor de VBA de acuerdo con "Cómo ejecutar código VBA en su Excel".
3. A continuación, copie el siguiente código VBA en un módulo.

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. Después de eso, presione "F5" para ejecutar esta macro ahora.
5. Cuando finalice la macro, aparecerá un nuevo libro de trabajo de Excel, en el que puede ver las filas combinadas y los datos sumados, como la imagen a continuación.

Comparación

Cuando se encuentra con Excel Crash

Como todos sabemos, Excel puede fallar de vez en cuando. En esta circunstancia, en el peor de los casos, el archivo actual de Excel puede estar dañado directamente. En ese momento, no tiene más remedio que intentar Recuperación de Excel. Le exige pedir ayuda a profesionales o hacer uso de una herramienta de reparación de Excel especializada, como DataNumen Excel Repair.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo corrupto SQL Server y productos de software de reparación de Outlook. Para más información visite www.datanumen.com