Maison > Article > Les sujets > Comment fusionner plusieurs feuilles en une seule dans Excel
Afin de fusionner d'innombrables fichiers de tableaux Excel avec le même format de données dans un seul classeur Excel pour faciliter le filtrage, l'extraction de données, l'analyse ultérieurs, etc.
Cela doit être fait en deux étapes :
La première étape : fusionner tous les Excel en un seul Excel, le contenu des multiples tableaux qui viennent d'être transformés en A ; tableau et plusieurs feuilles ci-dessous.
Étape 2 : Fusionnez plusieurs feuilles de cet Excel en une seule feuille.
Logiciel de base requis : logiciel Excel avec VBA, vous pouvez utiliser la bureautique de Microsoft qui inclut VBA, ou vous pouvez utiliser la version professionnelle de wps domestique.
Les étapes spécifiques sont décrites ci-dessous
Un tableau différent est fusionné en un tableau avec plusieurs feuilles
1 Créer. un nouveau Classeur, nommez-le votre nom fusionné.
2. Ouvrez ce classeur.
3. Faites un clic droit sur n'importe quelle étiquette de feuille de calcul en dessous et sélectionnez « Afficher le code ». (Ce bouton de wps se trouve sous les outils de développement)
4. Collez le code suivant dans la fenêtre d'édition VBA ouverte :
Sub Worksheet merge()
Dim FileOpen Dim X As Integer Application.ScreenUpdating = False FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄") X = 1 While X <= UBound(FileOpen) Workbooks.Open Filename:=FileOpen(X) Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) X = X + 1 Wend ExitHandler: Application.ScreenUpdating = True Exit Sub errhadler: MsgBox Err.Description End Sub
5. Fermez la fenêtre d'édition VBA.
6. Dans Excel, allez dans Outils---Macro---Macro, sélectionnez « Fusionner les feuilles de calcul entre les classeurs », puis « Exécuter ».
7. Dans la fenêtre de dialogue qui s'ouvre, sélectionnez les feuilles de calcul que vous souhaitez fusionner. S'il y en a plus, vous pouvez les placer dans un dossier, puis les sélectionner toutes.
8. Attendez. . . . D'ACCORD!
2. Fusionner plusieurs feuilles d'une seule feuille en une seule feuille
1 Dans un classeur contenant plusieurs feuilles (par exemple, après avoir fusionné plusieurs classeurs, un classeur de n feuilles) , créez une nouvelle feuille
2. Faites un clic droit sur l'étiquette de la nouvelle feuille et sélectionnez "Afficher le code" (le bouton pour wps se trouve sous les outils de développement)
3, collez le code suivant. dans la fenêtre d'édition VBA ouverte :
Sub-fusionner toutes les feuilles de calcul du classeur actuel ()
Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A65536").End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range("B1").Select Application.ScreenUpdating = True MsgBox "当前工作簿下的全部工作表已经合并完毕!", vbInformation, "提示" End Sub
Exécuter, attendre... Fusionné Une invite apparaîtra après cela .
Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!