Comment combiner des lignes avec le même ID / nom dans Excel?
Par exemple, vous avez un tableau comme illustré ci-dessous, et vous devez combiner des lignes avec les ID de commande, des idées? Ici, cet article présente deux solutions pour vous.
- Combiner des lignes avec le même ID / nom par VBA
- Combinez les lignes avec le même ID/nom par Kutools for Excel
Combiner des lignes avec le même ID / nom par VBA
Cette méthode introduira un VBA pour combiner rapidement toutes les lignes avec le même ID ou nom dans la sélection spécifiée. Veuillez procéder comme suit:
1. presse autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2Cliquez sur insérer > Module, puis collez le code VBA dans la fenêtre Module.
VBA: combiner des lignes avec le même ID / nom dans Excel
Sub Consolidate_Rows()
Dim xRg As Range
Dim xRows As Long
Dim I As Long, J As Long, K As Long
On Error Resume Next
Set xRg = Application.InputBox("Select Range:", "Kutools For Excel", Selection.Address, , , , , 8)
Set xRg = Range(Intersect(xRg, ActiveSheet.UsedRange).Address)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
For I = xRows To 2 Step -1
For J = 1 To I - 1
If xRg(I, 1).Value = xRg(J, 1).Value And J <> I Then
For K = 2 To xRg.Columns.Count
If xRg(J, K).Value <> "" Then
If xRg(I, K).Value = "" Then
xRg(I, K) = xRg(J, K).Value
Else
xRg(I, K) = xRg(I, K).Value & "," & xRg(J, K).Value
End If
End If
Next
xRg(J, 1).EntireRow.Delete
I = I - 1
J = J - 1
End If
Next
Next
ActiveSheet.UsedRange.Columns.AutoFit
End Sub3. appuie sur le F5 ou cliquez sur la Courir bouton pour exécuter ce VBA.
4. Dans le popping out Kutools for Excel boîte de dialogue, veuillez sélectionner les lignes que vous combinerez, puis cliquez sur le OK bouton. Voir la capture d'écran:
Vous verrez maintenant que les lignes de la plage spécifiée sont combinées avec des virgules par le même ID. Voir la capture d'écran:
Notes: Ce VBA ne peut combiner les lignes que par les valeurs de la première colonne. Par exemple, vous souhaitez combiner des lignes portant le même nom, vous devez déplacer la colonne de nom vers la première colonne de la plage spécifiée.
Combinez facilement des lignes et calculez en fonction des valeurs d'une autre colonne dans Excel
Kutools for Excel's Lignes de combinaison avancées L'utilitaire peut vous aider à combiner des lignes en fonction des valeurs d'une autre colonne, et de la somme, du nombre, de la moyenne, etc. en même temps!
Combinez les lignes avec le même ID/nom par Kutools for Excel
Si vous avez Kutools for Excel installé, vous pouvez appliquer son Lignes de combinaison avancées fonctionnalité pour combiner rapidement des lignes avec le même ID ou les mêmes noms dans la plage spécifiée.
Kutools for Excel - Emballé avec plus de 300 outils essentiels pour Excel. Profitez d'une fonctionnalité complète 30Essai GRATUIT d'une journée sans carte de crédit requise ! Télécharger maintenant!
1. Sélectionnez les lignes que vous allez combiner et cliquez sur Kutools > Contenu > Lignes de combinaison avancées. Voir la capture d'écran:
2. Dans la boîte de dialogue Lignes de combinaison avancées, veuillez sélectionner la colonne ID ou nom que vous combinerez, cliquez sur Clé primaire, puis spécifiez les règles de combinaison pour les autres colonnes selon vos besoins.
Dans mon cas, (1) Je sélectionne le Numéro de commande colonne, et cliquez sur Clé primaire; (2) sélectionnez le Date colonne, et cliquez sur Calculer > que vous avez; (3) sélectionnez le Vendeur colonne, et cliquez sur Combiner > Virgule; (4) sélectionnez le Montant colonne, et cliquez sur Calculer > Somme. Voir la capture d'écran:
3. Clique le OK .
Vous verrez maintenant que les lignes sélectionnées sont combinées en fonction de l'ID de commande. Voir la capture d'écran:
Articles Liés:
Comment concaténer le formatage des nombres / dates dans Excel?
Comment concaténer des cellules d'une autre feuille / différentes feuilles dans Excel?
Meilleurs outils de productivité bureautique
Boostez vos compétences Excel avec Kutools for Excelet faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel Offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab Apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
