2 façons simples de consolider les lignes dans votre Excel

Solutions Excel 3 octobre 2025

Lors de l'analyse de données dans Excel, il est possible que vous constatiez la présence de plusieurs lignes en double. Dans ce cas, vous souhaiterez peut-être les fusionner rapidement. Cet article vous propose deux méthodes rapides pour y parvenir.

De nombreux utilisateurs doivent fréquemment fusionner les lignes en double et additionner les valeurs correspondantes dans Excel. Par exemple, j'ai une plage de données dans une feuille de calcul Excel qui contient de nombreuses entrées en double, comme la capture d'écran suivante. Par conséquent, je souhaite consolider les lignes en double et additionner les valeurs correspondantes dans une autre colonne. Ce sera certainement gênant si je le fais manuellement. Par conséquent, j'utilise les 2 façons suivantes pour le réaliser.

Méthode 1 : Utiliser la fonction « Consolider »

Tout d'abord, cliquez sur une cellule vide où vous souhaitez placer les données fusionnées et additionnées.
Ensuite, allez dans l'onglet "Données" et cliquez sur le bouton "Consolider".
Dans la boîte de dialogue contextuelle, assurez-vous que "Somme" est sélectionné dans la case "Fonction".
Ensuite, cliquez sur le .
Plus tard, sélectionnez la plage que vous souhaitez consolider et cliquez sur .
Après cela, cliquez sur le bouton "Ajouter" dans la boîte de dialogue "Consolider".
Ensuite, cochez l'option "Ligne du haut" et "Colonne de gauche".
Enfin, cliquez sur le bouton "OK".
Immédiatement, les lignes sont consolidées, comme illustré dans la capture d'écran suivante.

Méthode 2 : Utiliser le code Excel VBA

Au tout début, sélectionnez la plage souhaitée.
Ensuite, déclenchez l'éditeur VBA selon "Comment exécuter le code VBA dans votre Excel" .
Ensuite, copiez le code VBA suivant dans un module.

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

Après cela, appuyez sur "F5" pour exécuter cette macro maintenant.
Lorsque la macro se termine, un nouveau classeur Excel apparaît, dans lequel vous pouvez voir les lignes fusionnées et les données additionnées, comme l'image ci-dessous.

Comparaison

	Avantages	Désavantages
Méthode 1	Facile à utiliser	Impossible de traiter les deux colonnes qui ne sont pas côte à côte
Méthode 2	1. Pratique pour la réutilisation	1. Un peu difficile à comprendre pour les débutants en VBA
Méthode 2	2. Ne gâchera pas la feuille Excel d'origine en ce sens qu'elle placera les données fusionnées dans le nouveau fichier	2. Impossible de traiter les deux colonnes non côte à côte

Lorsque vous rencontrez un crash Excel

Comme nous le savons tous, Excel peut planter de temps en temps. Dans ce cas, au pire, le fichier Excel actuel peut être directement corrompu. À ce moment-là, vous n'avez pas d'autre choix que d'essayer Récupération Excel. Il vous demande soit de demander de l'aide à des professionnels, soit d'utiliser un outil de réparation Excel spécialisé, tel que DataNumen Excel Repair.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris corrompu SQL Server et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com