Passer au contenu principal

Comment fusionner ou consolider des feuilles de calcul ou des classeurs en une seule feuille de calcul?

Dans notre travail quotidien, nous pouvons rencontrer un problème qui fusionne des centaines de feuilles ou de classeurs en une seule feuille pour analyser les données, ce qui prend beaucoup de temps si vous utilisez la commande Copier et coller dans Excel. Ici, dans ce tutoriel, je vais fournir quelques conseils pour résoudre rapidement ce travail.

doc combiner 1

NAVIGATION RAPIDE

Fusion de toutes les feuilles du classeur actif en une seule feuille avec VBA
Fusion de dizaines de feuilles ou de classeurs en une seule feuille de calcul / classeur en quelques clics
Fusion de deux tables en une seule et mise à jour par colonne en quelques clics
Télécharger un exemple de fichier


Fusion de toutes les feuilles du classeur actif en une seule feuille avec VBA

Dans cette section, je fournis un code VBA qui créera une nouvelle feuille pour collecter toutes les feuilles du classeur actif pendant que vous l'exécutez.

1. Activez le classeur que vous souhaitez combiner toutes ses feuilles, puis appuyez sur + clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.

2. Dans la fenêtre contextuelle, cliquez sur insérer > Module pour créer un nouveau script de module.

3. Copiez le code ci-dessous et collez-le dans le script.

Sub Combine()
'UpdatebyExtendoffice
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
doc combiner 2

4. presse F5 clé, alors toutes les données des feuilles ont été fusionnées dans une nouvelle feuille nommée Combinée qui est placée au début de toutes les feuilles.


pas bouger

Voulez-vous avoir une augmentation de salaire et beaucoup de temps pour accompagner votre famille?

L'onglet Office améliore votre efficacité de 50 % lorsque Microsoft Office fonctionne actuellement

Incroyable, travailler sur deux documents ou plus est plus facile et plus rapide que travailler sur un seul.

Comparé aux navigateurs connus, l'outil à onglets d'Office Tab est plus puissant et plus efficace.

Réduisez les centaines de clics de souris et de saisie au clavier chaque jour pour vous, dites au revoir à la main de la souris maintenant.

Si vous travaillez habituellement sur plusieurs documents, Office Tab vous fera gagner beaucoup de temps.

30-jour d'essai gratuit, Pas de carte de crédit nécessaire.

En savoir plusGratuit Télécharger maintenant


Fusion de dizaines de feuilles ou de classeurs en une seule feuille de calcul / classeur en quelques clics

Avec VBA, vous pouvez uniquement combiner des feuilles dans le classeur actif, mais comment fusionner des feuilles de classeurs dans une feuille ou un classeur?

Fusionner les feuilles de tous les classeurs en une seule feuille
doc combiner 18

Fusionner des feuilles de classeurs dans un seul classeur
doc combiner 3

Pour résoudre ce travail et satisfaire d'autres exigences sur la combinaison de Combiner La fonction a été développée avec quatre scénarios de combinaison:

  • Combinez plusieurs feuilles ou classeurs en une seule feuille
  • Combinez plusieurs feuilles ou classeurs dans un seul classeur
  • Combinez les feuilles de même nom en une seule feuille
  • Consolider les valeurs des feuilles ou des classeurs dans une seule feuille

Voici la deuxième option comme exemple:

Combinez plusieurs feuilles ou classeurs dans un seul classeur

Après installation gratuite Kutools for Excel, procédez comme suit:

1. Activez Excel, cliquez sur Kutools Plus > Combiner, une boîte de dialogue apparaît pour vous rappeler que les classeurs que vous souhaitez combiner doivent être fermés. Cliquez sur OK continuer.
doc combiner 4
doc combiner 5

2. dans le Combiner les feuilles de travail étape 1 boîte de dialogue, vérifier Combinez plusieurs feuilles de calcul de classeurs dans un seul classeur option. Cliquez sur Suivant pour passer à l'étape suivante de l'assistant.
doc combiner 6

3. Cliquez Ajouter > Déposez votre dernière attestation or Dossier pour ajouter les classeurs que vous souhaitez combiner au Liste des classeurs volet, vous pouvez alors spécifier quelle feuille de calcul sera jointe en vérifiant les noms dans Liste des feuilles de travail vitre. Cliquez sur Suivant pour passer à la dernière étape de l'assistant.
doc combiner 7

4. Dans cette étape, spécifiez les paramètres dont vous avez besoin. Puis clique Finition.
doc combiner 8

5. Une fenêtre apparaît pour vous permettre de sélectionner un dossier pour placer le classeur combiné, puis cliquez sur Épargnez.
doc combiner 9

Les classeurs ont désormais été fusionnés en un seul classeur. Et au début de toutes les feuilles, une feuille principale nommée Kutools for Excel est également créée qui répertorie certaines informations sur les feuilles et les liens pour chaque feuille.
doc combiner 10

Démo: combinez des feuilles / classeurs en une seule feuille ou un classeur

Kutools for Excel :200 + outils pratiques et utiles, simplifiant les tâches compliquées dans Excel en quelques clics.

Dites adieu à la main de souris et à la spondylose cervicale maintenant

300 outils avancés de Kutools pour Excel résoudre 80% Tâches Excel en quelques secondes, vous sortez des milliers de clics de souris.

Gérez facilement 1500 scénarios de travail, pas besoin de perdre de temps à rechercher des solutions, ayez beaucoup de temps pour profiter de votre vie.

Améliorez la productivité de 80% pour plus de 110000 personnes très efficaces chaque jour, vous y compris bien sûr.

Ne plus être tourmenté par les formules douloureuses et le VBA, donnez à votre cerveau une humeur de travail reposante et joyeuse.

Essai gratuit de 30 jours avec toutes les fonctionnalités, remboursement de 30 jours sans motif.

Un corps meilleur crée une vie meilleure.


Fusion de deux tables en une seule et mise à jour par colonne en quelques clics

Si vous souhaitez fusionner deux tables en une seule et mettre à jour les données en fonction d'une colonne comme illustré ci-dessous, vous pouvez essayer le Fusionner les tables utilité de Kutools for Excel.
doc combiner 11

Kutools for Excel : plus de 200 compléments Excel pratiques pour simplifier les tâches compliquées en quelques clics dans Excel

Après installation gratuite Kutools for Excel, procédez comme suit:

1. Cliquez Kutools Plus > Fusionner les tables autoriser Fusionner les tables Assistant.
doc combiner 12

2. À l'étape 1 de l'assistant, vous devez sélectionner séparément la table principale et les plages de table de recherche. Puis clique Suivant.
doc combiner 13

3. Cochez la colonne clé sur laquelle vous souhaitez mettre à jour les données dans la table principale. Cliquez sur Suivant.
doc combiner 14

4. Vérifiez ensuite les colonnes de la table principale pour lesquelles vous souhaitez mettre à jour les données en fonction de la table de recherche. Cliquez sur Suivant.
doc combiner 15

5. À l'étape 4 de l'assistant, vérifiez les colonnes que vous souhaitez ajouter de la table de recherche à la table principale. Cliquez sur Suivant.
doc combiner 16

6. Dans la dernière étape de l'assistant, spécifiez les options de configuration dont vous avez besoin. Puis clique Finition.
doc combiner 17

Maintenant, la table principale a été mise à jour les données et ajouter de nouvelles données basées sur la table de recherche.

Démo: combinez des feuilles / classeurs en une seule feuille ou un classeur

Kutools for Excel :200 + outils pratiques et utiles, simplifiant les tâches compliquées dans Excel en quelques clics.


Télécharger un exemple de fichier

échantillon


Outils de productivité recommandés

Onglet Office - Navigation par onglets, modification, gestion des documents dans Microsoft Office 2019-2003 et Office 365


onglet bureau

Un complément professionnel pour accélérer Excel 2019-2007, réduire les heures de tâches à quelques secondes

Ce complément comprend des dizaines de groupes professionnels, avec plus de 300 options automatisera la plupart de vos tâches quotidiennes dans Excel et augmentera votre productivité d'au moins 50%. Tels que des groupes d'options en un clic et des conversions par lots.
C'est maintenant votre chance d'accélérer avec Kutools for Excel !


Comments (168)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have a system that generates an excel file everyday. The daily file name is of format "<filename-12282021>". The 12282021 is the timestamp and it changes everyday creating a new excel file each day. I want to create a Master Workbook and then append the contents of the daily excel file into that master workbook. How can I automate it so it happens by itself everyday and the master file is update with contents of the daily file.   Thank you.
This comment was minimized by the moderator on the site
Hi rd2022, sorry that I have no idea to solve your problem so far. You can go to our forum https://www.extendoffice.com/forum/excel.html to leave this message, maybe some users have the same problem and has been solved.
This comment was minimized by the moderator on the site
In combining shhets I want to add one extra column in combined sheet as ShhetName
Can you suggest ?
This comment was minimized by the moderator on the site
The Combine function of Kutools for Excel can help you to insert sheet name in a new row of each combined range in the combined sheet by checking First row of each range (new row) in Insert worksheet information section in the last step of the Combine.
This comment was minimized by the moderator on the site
Hi - this function works well except my file has more than 900 sheets, and when I change the maximum number of rows (Loc 16, "A65536") to a higher number, the macro doesn't work. Is there a way to increase the number of rows that can be shown on the combine sheet?
This comment was minimized by the moderator on the site
The VBA code works fine but I want the data to be merged horizontally(side by side).
Hope you can help.
This comment was minimized by the moderator on the site
Hi,


Great Code and for the most part it works fantastically well.


Could I suggest creating a written tutorial for each line of code. I'd love to be able to play around with it to suit my Company's needs.

In the meantime however could you talk me through problems that would hinder this code from copying all data from each Sheet? I've noticed some sheets in my workbook aren't being copied at all.

To give you some context I'm dealing with roughly 330 sheets and they hold from 50 to 500 lines in each.


looking forward to hearing from you.
This comment was minimized by the moderator on the site
Hi, Daniel, I do not understand your question as you describe it not clearly, but if you have the Combine function in Excel, it can solve most of your question about combining sheets.
This comment was minimized by the moderator on the site
Hi,

Is it possible to only copy a particular range of cells for example A:4:FU38 from each sheet?


Also in the Combined sheet where the data is copied to, can the tab names from where the data is copied included in column A to enable lookups or to pivot the data?


Finally, can i specify the list of worksheets from which to copy the data across or maybe i can specify something like copy all worksheets to the left of a particular worksheet in the file.


Thanks in advance for your help
This comment was minimized by the moderator on the site
Hi, HS, you mean to combine same ranges from sheets into one sheet, it that right? If so, this article may help you: https://www.extendoffice.com/documents/excel/2754-excel-combine-ranges-from-different-worksheets-into-one.html#a3
This comment was minimized by the moderator on the site
This VBA code is an absolute lifesaver. Thank you!!
This comment was minimized by the moderator on the site
Hi. This code works well but I have the same problem as adj. The 1st row form each tab doesn't appear in the combined tab - except he first tab. Thanks
This comment was minimized by the moderator on the site
Just delete "Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select" from the code.

If you want to merge all rows from all worksheets, just use the code:

Sub Combine()

'UpdatebyExtendoffice

Dim J As Integer

On Error Resume Next

Sheets(1).Select

Worksheets.Add

Sheets(1).Name = "Combined"

Sheets(2).Activate

Range("A1").EntireRow.Select

Selection.Copy Destination:=Sheets(1).Range("A1")

For J = 2 To Sheets.Count

Sheets(J).Activate

Range("A1").Select

Selection.CurrentRegion.Select

Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)

Next

End Sub
This comment was minimized by the moderator on the site
Yes, the code only can keep first row of the first tab, because it is used to consolidate, if you want to keep all contents of each sheet, you can try Combine utility of Kutools for Excel, it is free fior 60 days
This comment was minimized by the moderator on the site
i had a problem when I try to combine all same name worksheet to one worksheet, it works but some value are missing. so what should i do?
This comment was minimized by the moderator on the site
Hello, elok, did the problem appear while you applying Combine function? If so, please go to contact us to describe the problem with more details, our support will handle the problem for you.
This comment was minimized by the moderator on the site
Thanks that macro saved my day. I had over 40 sheets of data to combine into one and although my computer bogged for a minute or two, it completed without issue. The only modification I made was I tweaked the macro to start with A2 instead of A1 since A1 was my column headers.
This comment was minimized by the moderator on the site
Thanks for your support, Andrew, I am glad that the macro can help you.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations