Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
S'inscrire  \/ 
x

or

Comment fusionner plusieurs feuilles avec les mêmes en-têtes dans Excel?

Par exemple, vous avez des données avec les mêmes en-têtes dans différentes feuilles que les captures d'écran ci-dessous, et maintenant votre travail consiste à fusionner ces feuilles en une seule feuille. Au lieu de les copier et de les coller un par un, ce didacticiel présente les meilleures façons de gérer ce travail.

doc combine le même en-tête 1
doc combine le même en-tête 2
doc combine le même en-tête 3

Fusionner les feuilles avec les mêmes en-têtes par VBA

Consolider les feuilles Excel avec les mêmes en-têtes par la fonction Consolider

Fusionner ou consolider des feuilles Excel avec les mêmes en-têtes par Kutools for Excel bonne idée3


flèche bleue bulle droite Fusionner les feuilles avec les mêmes en-têtes par VBA

Si vous souhaitez simplement fusionner les feuilles avec les mêmes en-têtes sans aucun calcul, vous pouvez appliquer le code VBA pour le résoudre.

1. Activez le classeur dont vous souhaitez fusionner les feuilles, appuyez sur Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module, puis collez sous le code VBA dans le nouveau Module fenêtre.

VBA: fusionner les feuilles avec les mêmes en-têtes

Sub Combine()
'UpdateByKutools20151029
    Dim i As Integer
    Dim xTCount As Variant
    Dim xWs As Worksheet
    On Error Resume Next
LInput:
    xTCount = Application.InputBox("The number of title rows", "", "1")
    If TypeName(xTCount) = "Boolean" Then Exit Sub
    If Not IsNumeric(xTCount) Then
        MsgBox "Only can enter number", , "Kutools for Excel"
        GoTo LInput
    End If
    Set xWs = ActiveWorkbook.Worksheets.Add(Sheets(1))
    xWs.Name = "Combined"
    Worksheets(2).Range("A1").EntireRow.Copy Destination:=xWs.Range("A1")
    For i = 2 To Worksheets.Count
        Worksheets(i).Range("A1").CurrentRegion.Offset(CInt(xTCount), 0).Copy _
               Destination:=xWs.Cells(xWs.UsedRange.Cells(xWs.UsedRange.Count).Row + 1, 1)
    Next
End Sub

3. presse F5 clé pour exécuter le VBA, et une boîte de dialogue apparaît pour vous permettre d'entrer le nombre de lignes de titre. Voir la capture d'écran:

doc combine le même en-tête 4

4. Cliquez OK. Et toutes les feuilles du classeur actif sont fusionnées dans une nouvelle feuille appelée "Combiné".

doc combine le même en-tête 1
doc plus
doc combine le même en-tête 2
doc plus
doc combine le même en-tête 3
doc vertical égal
doc combine le même en-tête 3

Pointe:

(1.) Vos données doivent commencer à partir de A1, sinon, le code ne prendra pas effet.

(2.) Vos données doivent avoir la même structure.

(3.) Ce code peut uniquement combiner toutes les feuilles de calcul du classeur actif, si vous souhaitez fusionner des feuilles de calcul de plusieurs classeurs, ce code ne fonctionnera pas.


flèche bleue bulle droite Consolider les feuilles Excel avec les mêmes en-têtes par la fonction Consolider

Supposons que vous ayez des données avec les mêmes en-têtes de colonne et de ligne que la capture d'écran ci-dessous, et que vous souhaitiez fusionner des feuilles Excel avec les mêmes en-têtes, puis effectuer des calculs, vous pouvez appliquer la fonction Consolider dans Excel.

doc combine le même en-tête 6
doc combine le même en-tête 7
doc combine le même en-tête 8

1. Ouvrez tous les classeurs à partir desquels vous souhaitez fusionner les feuilles et placez le curseur sur une cellule vide dans laquelle vous souhaitez localiser les données de fusion, puis cliquez sur Données > Consolider. Voir la capture d'écran:

doc combine le même en-tête 9

2. Puis dans le Consolider fenêtre, faites comme ci-dessous l'opération:

1) Sélectionnez le formulaire de calcul souhaité Fonction liste;

2) Cliquez pour sélectionner la plage à fusionner.

3) Cliquez sur Ajouter pour ajouter la plage dans la liste Toutes les références. Répéter les étapes 2) et 3) pour ajouter toutes les plages nécessaires pour fusionner dans cette liste.

4) Vérifier Rangée supérieure et colonne de gauche sous Utiliser des étiquettes dans .

5) Si vous souhaitez lier les données fusionnées aux données source, cochez Créer des liens vers des données sources.

doc combine le même en-tête 10
doc combine le même en-tête 11
1) Sélectionnez le formulaire de calcul souhaité Fonction liste;

2) Cliquez pour sélectionner la plage à fusionner.

3) Cliquez sur Ajouter pour ajouter la plage dans la liste Toutes les références. Répéter les étapes 2) et 3) pour ajouter toutes les plages nécessaires pour fusionner dans cette liste.

4) Vérifier Rangée supérieure et colonne de gauche sous Utiliser des étiquettes dans .

5) Si vous souhaitez lier les données fusionnées aux données source, cochez Créer des liens vers des données sources.

3. Cliquez OK. Maintenant, toutes les plages de données avec les mêmes en-têtes sont fusionnées en un seul et résumées par en-têtes.

doc combine le même en-tête 6doc combine le même en-tête 7doc combine le même en-tête 8
doc vertical égal
doc combine le même en-tête 12

flèche bleue bulle droite Fusionner ou consolider des feuilles Excel avec les mêmes en-têtes par Kutools for Excel

Si dans certains cas, vous souhaitez fusionner des données avec les mêmes en-têtes uniquement, et dans d'autres cas, vous souhaitez fusionner des données et les consolider, existe-t-il des astuces pour résoudre ces deux tâches? Ici je présente Kutools pour Excelest puissant Combiner fonction pour vous.

Fusionner les feuilles Excel avec les mêmes en-têtes

Consolider plusieurs feuilles avec les mêmes en-têtes

Kutools pour Excel, avec plus de 300 fonctions pratiques, rend vos travaux plus faciles. 

Après l'installation de Kutools for Excel, procédez comme suit:(Téléchargez gratuitement Kutools pour Excel maintenant!)

Fusionner les feuilles Excel avec les mêmes en-têtes

1. Cliquez Kutools Plus > Combiner pour activer l'assistant de combinaison, puis cochez Combinez plusieurs feuilles de calcul de classeurs dans une seule feuille de calcul. Voir les captures d'écran:
doc combine le même en-tête 14
doc kutools combiner 2

2. Cliquez Suivant>> aller à Combiner des feuilles de travail - Étape 2 sur 3 assistant, et procédez comme ci-dessous:

doc kutools combiner 3
1) Cliquez sur Ajouter > Dossier de fichiers pour ajouter les classeurs à partir desquels vous pouvez fusionner des feuilles Liste des classeurs;
2) Vérifiez le nom du classeur que vous souhaitez fusionner les feuilles, vous pouvez choisir plusieurs classeurs;
3) Vérifiez les feuilles de calcul que vous souhaitez combiner;
4) Cliquez sur doc sélectionnerpour sélectionner la plage que vous souhaitez combiner, si les plages sont placées au même emplacement de chaque feuille, il suffit de sélectionner une plage dans une feuille puis cliquez sur Même gamme.

3. Cliquez Suivant >> à la Combiner la feuille de travail - Étape 3 sur 3 Assistant, et vérifiez Option Combiner par ligne et le type 1 dans la zone de texte de Numéro de ligne du titre, s'il n'y a pas de titre dans votre plage, saisissez 0.

doc kutools combiner 4

4. Cliquez Finition, et une boîte de dialogue apparaît pour vous rappeler d'enregistrer ce scénario, si vous souhaitez l'enregistrer, cliquez sur Ouiou Non.

doc combine le même en-tête 17

Maintenant, les feuilles sont fusionnées avec les mêmes en-têtes de ligne dans un nouveau classeur.

doc combine le même en-tête 18

Consolider plusieurs feuilles avec les mêmes en-têtes

Après l'installation de Kutools for Excel, procédez comme suit:(Téléchargez gratuitement Kutools pour Excel maintenant!)

1. Cliquez Entreprise > Combiner pour afficher l'assistant de combinaison et cochez Consolider et calculer les valeurs de plusieurs classeurs dans une seule feuille de calcul. Voir la capture d'écran:
doc kutools combiner 5

2. Cliquez Suivant>> pour aller à la Combiner des feuilles de travail - Étape 2 sur 3 assistant, et procédez comme ci-dessous:

doc kutools combiner 3
1) Cliquez sur Ajouter > Dossier de fichiers pour ajouter les classeurs à partir desquels vous pouvez fusionner des feuilles Liste des classeurs;
2) Vérifiez le nom du classeur que vous souhaitez fusionner les feuilles, vous pouvez choisir plusieurs classeurs;
3) Vérifiez les feuilles de calcul que vous souhaitez combiner;
4) Cliquez sur doc sélectionnerpour sélectionner la plage que vous souhaitez combiner, si les plages sont placées au même emplacement de chaque feuille, il suffit de sélectionner une plage dans une feuille puis cliquez sur Même gamme.

3. Continuez à cliquer Suivant>> et sélectionnez la fonction que vous souhaitez appliquer dans la plage fusionnée, puis vérifiez les libellés de votre plage fusionnée. Voir la capture d'écran:
doc kutools combiner 6

4. Cliquez Finition, et une boîte de dialogue apparaît pour vous demander d'enregistrer le scénario, cliquez sur Oui pour enregistrer, ou cliquez sur Non pour ne pas le sauver.

Ensuite, les plages sont consolidées dans un nouveau classeur.

doc combine le même en-tête 12

L'avantage de Kutools pour Excel's Combiner est que vous pouvez fusionner plusieurs feuilles de classeurs ouverts ou de classeurs non ouverts dans une feuille de calcul ou un classeur.

Combinez / Consolidez facilement des données basées sur la même valeur dans Excel

Supposons que vous travaillez avec une feuille de calcul qui contient plusieurs enregistrements en double et que vous devez maintenant combiner / fusionner les lignes en fonction de la même valeur et effectuer des calculs, tels que la somme, la moyenne, le nombre de lignes en double. Avec ça Lignes de combinaison avancées of Kutools pour Excel, vous pouvez rapidement combiner les mêmes valeurs / mêmes données ou dupliquer des lignes dans les cellules appropriées.  Cliquez pour un essai gratuit complet dans 30 jours!
doc avancé combiner des lignes
 
Kutools for Excel: avec plus de 300 compléments Excel pratiques, essayez gratuitement sans limitation en 30 jours.

Articles relatifs


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!
bas de cabine
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    kishan · 1 years ago
    what will be vba code for combining multiple sheets in workbook into one worksheet if row headers are the same ( not column headers)
  • To post as a guest, your comment is unpublished.
    Tina · 1 years ago
    I used VBA to copy all sheets to one, but how can I copy only select sheets instead of all of them?
  • To post as a guest, your comment is unpublished.
    daniel · 2 years ago
    Esta excelente la primera macro, pero no sabrias decirme por que solamente me combina 4 columnas?. Si mis hojas tienen un aproximado de 30 columnas.
  • To post as a guest, your comment is unpublished.
    Ezequiel ZP · 2 years ago
    Hello
    I bought Kutools for Excel 19.00, by interest in the merge function, but doesn't work with my files and sheets, all have the same name (Workbook an sheets) but in the combination of : "Combine all same name worksheets into one worksheet" dosn't work (does nothing), inclusive don't saves the new workbook in the place that I select prior to execute de Finish button.
    I followed the instructions one and another time, but the result is the same.
    Some help?
    • To post as a guest, your comment is unpublished.
      Sunny · 2 years ago
      Hi, Ezequiel Zavaleta, I am sorry for hear that. You can contact our Customer Service Manager through this: support@extendoffice.com our team will solve your problems as soon as possible.
  • To post as a guest, your comment is unpublished.
    wayne · 3 years ago
    perfect, thank you
  • To post as a guest, your comment is unpublished.
    GioF · 3 years ago
    How can I combine only sheets with same header ignoring other sheets?
  • To post as a guest, your comment is unpublished.
    Charles · 3 years ago
    How do I merge only select worksheets in that workbook?
    How can I run the Macro to refresh the data on a weekly basis without having to delete the "Combined" tab?
  • To post as a guest, your comment is unpublished.
    Sarang · 3 years ago
    I want to combine sheets... but I also want to add a column ("A") in new sheet (combined) where the name of the sheet "Sheet1", "Sheet2" will be placed on all rows copied from respected sheets.. so i will know which data has come from which sheet.
    • To post as a guest, your comment is unpublished.
      Sunny · 3 years ago
      You can try Kutools' Combine function, it can insert the data information of each sheet in the front of data in combined sheet.
  • To post as a guest, your comment is unpublished.
    Steven · 3 years ago
    I have the same problem as Saurabh. It merges the worksheets and has a blank row after each data from the worksheet is copied. However, the header is not copied to the new "Combined" worksheet either. I'm using Excel 2016. Thank you for the code, it does help minimize the time I spend. I don't think I'll be able to figure out the issue with the code and hope that you can look into it. Thanks again.
  • To post as a guest, your comment is unpublished.
    vinaynaik007@gmail.com · 3 years ago
    Hello,


    I have checked your VB formula for VBA: Merge sheets with same headers its absolutely helpful to me, but i need little support I want to create macro for this file. Like I have to to download file every time save with some unique name & run macro to combine sheet.

    Please confirm.
    • To post as a guest, your comment is unpublished.
      Sunny · 3 years ago
      Sorry I do not understand your question. If you have any problem, please go to our forum https://www.extendoffice.com/forum.html, someone may can help you.
  • To post as a guest, your comment is unpublished.
    Saurabh · 4 years ago
    I used 'VBA: Merge sheets with same headers' but it leaves a row empty after each sheet data how do I correct this. It is possible to modify the code?
    • To post as a guest, your comment is unpublished.
      Sunny · 4 years ago
      I do not know why a empty row leave while you merging the data by using the VBA, that do not happen to me. If there are some blank rows needed to be remove, you can press F5 to open Go To dialog, and click Special > Blanks to select all blank cells, the right click to remove the blank rows.

      But with the Go To Special function, it will select blank cells not the blank rows which not work well while a row has data missing. In this case, you can apply Kutools for Excel's Delete Blank Rows, which can remove empty rows in selection, active worksheet, selected sheets or whole workbook.