Como expandir ou fechar todas as linhas e colunas do grupo no Excel?
No Excel, você pode usar o utilitário Group para agrupar dados conforme necessário. Mas se houver muitos grupos na planilha, como você pode expandir ou fechar rapidamente todos os grupos sem clicar manualmente? Aqui, apresento os códigos VBA para resolver facilmente esse trabalho no Excel.
Expanda ou feche todas as linhas e colunas dos grupos no Excel
Expanda ou feche todas as linhas e colunas dos grupos no Excel
Aqui estão alguns códigos VBA que podem ajudá-lo a expandir ou fechar todos os grupos de uma vez.
1. Pressione Alt + F11 chaves para habilitar o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Módulo, copie e cole o código de sopro para o novo Módulo。
VBA: expandir todos os grupos
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. Pressione F5 chave, os grupos na Folha1 foram expandidos.
Se você deseja fechar todos os grupos, você pode usar o código abaixo:
Sub CollapseAll()
Worksheets("sheet1").Outline.ShowLevels 1, 1
End Sub
Nota: nos códigos acima, a Planilha1 é a planilha que contém os grupos que serão expandidos ou fechados. Por favor, mude para o seu próprio nome de folha, se necessário
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!