Comment développer ou fermer toutes les lignes et colonnes de groupe dans Excel?
Dans Excel, vous pouvez utiliser l'utilitaire de groupe pour regrouper les données selon vos besoins. Mais s'il y a de nombreux groupes dans la feuille, comment pouvez-vous développer ou fermer rapidement tous les groupes sans cliquer manuellement? Ici, j'introduis des codes VBA pour résoudre facilement ce travail dans Excel.
Développez ou fermez toutes les lignes et colonnes de groupes dans Excel
Développez ou fermez toutes les lignes et colonnes de groupes dans Excel
Voici quelques codes VBA qui peuvent vous aider à développer ou fermer tous les groupes à la fois.
1. presse Alt + F11 touches pour activer Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Module, copiez et collez le code de coup dans le nouveau module。
VBA: développer tous les groupes
Sub ExpandAll()
'UpdatebyExtendoffice20181031
Dim I As Integer
Dim J As Integer
On Error Resume Next
For I = 1 To 100
Worksheets("Sheet1").Outline.ShowLevels rowLevels:=I
If Err.Number <> 0 Then
Err.Clear
Exit For
End If
Next I
For J = 1 To 100
Worksheets("Sheet1").Outline.ShowLevels columnLevels:=J
If Err.Number <> 0 Then
Err.Clear
Exit For
End If
Next J
End Sub
3. presse F5 clé, les groupes de Sheet1 ont été développés.
Si vous souhaitez fermer tous les groupes, vous pouvez utiliser le code ci-dessous:
Sub CollapseAll()
Worksheets("sheet1").Outline.ShowLevels 1, 1
End Sub
Remarque: dans les codes ci-dessus, Sheet1 est la feuille contient des groupes que vous allez développer ou fermer. Veuillez le changer en votre propre nom de feuille si vous en avez besoin.
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!
