Ao analizar os datos en Excel, pode descubrir que contén varias filas duplicadas. Neste caso, quizais queiras consolidar rapidamente as filas. Esta post ofrecerá 2 medios rápidos para conseguilo.
Moitos usuarios adoitan combinar as filas duplicadas e sumar os valores correspondentes en Excel. Por exemplo, teño unha serie de datos nunha folla de cálculo de Excel que contén moitas entradas duplicadas, como a seguinte captura de pantalla. Polo tanto, quero consolidar as filas duplicadas e sumar os valores correspondentes noutra columna. Definitivamente será problemático se o fago manualmente. Polo tanto, utilizo as seguintes 2 formas de realizalo.
Método 1: use a función "Consolidar".
- En primeiro lugar, fai clic nunha cela en branco onde queres colocar os datos combinados e sumados.
- A continuación, vai á pestana "Datos" e fai clic no botón "Consolidar".
- Na caixa de diálogo emerxente, asegúrese de seleccionar "Suma" na caixa "Función".
- A continuación, faga clic no botón
botón.
- Máis tarde, seleccione o intervalo que quere consolidar e prema botón.
- Despois diso, faga clic no botón "Engadir" no diálogo "Consolidar".
- Posteriormente, marque a opción "Fila superior" e "Columna esquerda".
- Finalmente, fai clic no botón "Aceptar".
- Ao mesmo tempo, as filas consolídanse, como se mostra na seguinte captura de pantalla.
botón.
botón.
Método 2: use o código VBA de Excel
- Ao principio, seleccione o intervalo que quere.
- A continuación, active o editor VBA segundo "Como executar o código VBA no teu Excel".
- A continuación, copie o seguinte código VBA nun 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, varItems, Variant Variant On Error Definido de Excel. Selección varAddressArray = Split(objSelectedRange.Address(, False), ":") nStartRow = Dividir(varAddressArray(0), "$")(1) strFirstColumn = Split(varAddressArray(0), "$")(0) nEndRow = Split(varAddressArray(1), "$")(1) strSecondColumn = Split(varAddressArray(1), "$")(0) Establecer 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 Entón objDictionary.Add strDictionary ElstrItem.Item) = objDictionary.Item (strItem) + strValue End If Next Establecer objNewWorkbook = Excel.Application.Workbooks.Add Set objNewWorksheet = objNewWorkbook.Sheets (1) varItems = objDictionary.keys varValues = objDictionary =Litem0 For = iRow. ) Para UBound(varItems) nRow = nRow + 1 Con objNewWorksheet .Cells(nRow, 1) = varItems(i) .Cells(nRow, 2) = varValues(i) Finalizar coa seguinte objNewWorksheet.Columns("A:B") .AutoFit ErrorHandler: Saír sub End Sub
- Despois diso, prema "F5" para executar esta macro agora.
- Cando remate a macro, aparecerá un novo libro de Excel, no que podes ver as filas combinadas e os datos sumados, como na imaxe de abaixo.
comparación
| vantaxes | Desvantaxes | |
| Método 1 | Doado de operar | Non se poden procesar as dúas columnas que non están a carón da outra |
| Método 2 | 1. Conveniente para a súa reutilización | 1. Un pouco difícil de entender para os novatos de VBA |
| 2. Non estropeará a folla de Excel orixinal xa que puxo os datos combinados no novo ficheiro | 2. Non se poden procesar as dúas columnas que non están unha ao lado da outra |
Ao atoparse con Excel
Como todos sabemos, Excel pode fallar de cando en vez. Nesta circunstancia, no peor dos casos, o ficheiro de Excel actual pode estar corrompido directamente. Nese momento, non tes máis remedio que tentar Recuperación de Excel. Esixe que solicite axuda a profesionais ou faga uso dunha ferramenta de reparación especializada de Excel, como DataNumen Excel Repair.
Introdución do autor:
Shirley Zhang é unha experta en recuperación de datos DataNumen, Inc., que é o líder mundial en tecnoloxías de recuperación de datos, incluíndo corrupto SQL Server e produtos de software de reparación de Outlook. Para máis información visite www.datanumen.com
Gústame a información valiosa que proporcionas nos teus artigos. Marcarei o teu blog e comprobarei aquí con frecuencia. Estou seguro de que aprenderei moitas cousas novas aquí mesmo! Moita sorte para o próximo!