|
Option 1 :Utilisation de la macro VBA
1. Ouvrez le fichier Excel que vous souhaitez diviser.
2. Appuyez sur Alt+F11. pour ouvrir Visual Basic Editor.
3. Dans l'Explorateur de projet , faites un clic droit sur ThisWorkbook module et sélectionnez Insérer> Module .
4. Copiez le code suivant dans le module :
```
Sous SplitRows()
Dim ws comme feuille de calcul
Dim i aussi longtemps, j aussi longtemps
Dim nom de fichier As String
Dim cellule comme plage
Pour chaque ws dans ThisWorkbook.Worksheets
i =2 'Commencer à partir de la deuxième ligne (en-tête)
j =1 'Compteur des nouveaux fichiers
nom de fichier =ws.Nom &"_" &j
Classeurs.Add.Worksheets(1).Name =ws.Name
While Cells(i, 1) <> "" 'Boucle jusqu'à la dernière cellule non vide
Lignes (i). Destination de la copie :=Classeurs (nom de fichier). Feuilles (1). Lignes (j)
Si je Mod 1000 =0 Alors
ActiveWorkbook.SaveAs Filename :=nom de fichier, FileFormat :=xlWorkbookDefault, CreateBackup :=False
Application.DisplayAlerts =Faux
ActiveWorkbook.Fermer
Debug.Print "Diviser" &ws.Name &" en " &nom de fichier
j =j + 1
Classeurs.Add.Worksheets(1).Name =ws.Name
nom de fichier =ws.Nom &"_" &j
Fin si
je =je + 1
Wende
ActiveWorkbook.SaveAs Filename :=nom de fichier, FileFormat :=xlWorkbookDefault, CreateBackup :=False
Application.DisplayAlerts =Faux
ActiveWorkbook.Fermer
Debug.Print "Finition de la division " &ws.Name &" en fichiers " &j &" "
Article suivant
Debug.Print "Toutes les feuilles de calcul ont été divisées avec succès"
Application.DisplayAlerts =True
Fin du sous-marin
```
5. Fermez Visual Basic Editor et revenez au fichier Excel.
6. Cliquez sur Développeur puis cliquez sur l'onglet Macros bouton.
7. Dans la Macro dans la boîte de dialogue, sélectionnez SplitRows macro et cliquez sur Exécuter bouton.
Option 2 :Utiliser du texte dans les colonnes
1. Ouvrez le fichier Excel que vous souhaitez diviser.
2. Sélectionnez les cellules que vous souhaitez diviser en fichiers distincts.
3. Accédez aux Données et cliquez sur l'onglet Texte en colonnes. bouton.
4. Dans le Texte en colonnes Assistant, sélectionnez l'option Délimité. et cliquez sur Suivant .
5. Dans les Délimiteurs section, sélectionnez la virgule case à cocher et cliquez sur Suivant .
6. Dans l'Aperçu des données section, vérifiez que les données sont correctement divisées et cliquez sur Terminer .
7. Les données sélectionnées seront divisées en colonnes distinctes.
8. Enregistrez chaque colonne dans un fichier distinct en accédant au Fichier en cliquant sur Enregistrer sous , puis en choisissant le classeur Excel format de fichier.
|
