Comment vérifier la taille de chaque feuille de calcul du classeur?
Supposons que vous ayez un grand classeur qui contient plusieurs feuilles de calcul et que vous souhaitiez maintenant connaître la taille de chaque feuille de calcul pour déterminer quelle feuille doit être réduite. Existe-t-il des méthodes rapides pour faire face à cette tâche?
Vérifiez la taille de chaque feuille de calcul avec le code VBA
Vérifiez la taille de chaque feuille de calcul avec Kutools for Excel
Vérifiez la taille de chaque feuille de calcul avec le code VBA
Avec le code VBA suivant, vous pouvez obtenir rapidement la taille de chaque feuille de calcul dans votre classeur. Veuillez faire comme ceci:
1. Maintenez le ALT + F11 clés, et il ouvre le Fenêtre Microsoft Visual Basic pour Applications.
2Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.
Code VBA: vérifiez la taille de chaque feuille de calcul dans un classeur </ p>
Sub WorksheetSizes()
'Update 20140526
Dim xWs As Worksheet
Dim Rng As Range
Dim xOutWs As Worksheet
Dim xOutFile As String
Dim xOutName As String
xOutName = "KutoolsforExcel"
xOutFile = ThisWorkbook.Path & "\TempWb.xls"
On Error Resume Next
Application.DisplayAlerts = False
Err = 0
Set xOutWs = Application.Worksheets(xOutName)
If Err = 0 Then
xOutWs.Delete
Err = 0
End If
With Application.ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
.Name = xOutName
.Range("A1").Resize(1, 2).Value = Array("Worksheet Name", "Size")
End With
Set xOutWs = Application.Worksheets(xOutName)
Application.ScreenUpdating = False
xIndex = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xOutName Then
xWs.Copy
Application.ActiveWorkbook.SaveAs xOutFile
Application.ActiveWorkbook.Close SaveChanges:=False
Set Rng = xOutWs.Range("A1").Offset(xIndex, 0)
Rng.Resize(1, 2).Value = Array(xWs.Name, VBA.FileLen(xOutFile))
Kill xOutFile
xIndex = xIndex + 1
End If
Next
Application.ScreenUpdating = True
Application.Application.DisplayAlerts = True
End Sub
3. Puis appuyez F5 clé pour exécuter ce code, et une nouvelle feuille de calcul nommée KutoolsforExcel sera inséré dans le classeur actuel qui contient le nom de chaque feuille de calcul et la taille de fichier, et l'unité est Bit. Voir la capture d'écran:
Vérifiez la taille de chaque feuille de calcul avec Kutools for Excel
Si vous avez Kutools for Excel, Avec son Classeur fractionné utilitaire, vous pouvez diviser l'ensemble du classeur en fichiers distincts, puis accéder au dossier spécifique pour vérifier la taille de chaque fichier.
Kutools for Excel comprend plus de 300 outils Excel pratiques. Essai gratuit sans limitation de 30 jours. Obtenez-le maintenant.
Après avoir installé Kutools pour Excel, procédez comme suit :
1. Ouvrez le classeur dont vous souhaitez vérifier la taille de chaque feuille de calcul, puis cliquez sur Entreprise > Outils de classeur > Classeur fractionné, voir capture d'écran:
2. Dans le Classeur fractionné boîte de dialogue, vérifiez toutes les feuilles de calcul et cliquez sur Diviser puis spécifiez un dossier dans lequel placer les nouveaux fichiers de classeur. Voir les captures d'écran:
3. Et puis chaque feuille de calcul de votre classeur actuel sera enregistrée en tant que fichier Excel séparé, vous pouvez aller dans votre dossier spécifique pour vérifier la taille de chaque classeur.
Pour en savoir plus sur cette fonctionnalité de classeur fractionné.
Articles Liés:
Comment diviser un classeur pour séparer les fichiers Excel dans Excel?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et 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!