Como ordenar todas as planilhas por um valor de célula no Excel?
Quando trabalhamos com um ficheiro do Excel, costumamos ordenar as folhas de cálculo alfabeticamente, numericamente ou por cores dos separadores — mas já alguma vez tentou ordenar os guias das folhas com base num valor específico de uma célula?
Imagine que tem um livro com dezenas de folhas de cálculo, e em cada uma delas a célula A1 contém um valor específico. Agora, precisa ordenar todas as folhas desse livro com base no valor da célula A1 de cada folha, por ordem crescente. Com este artigo, terá a solução.
Ordenar todas as folhas com base num valor de célula com código VBA
Ordenar todas as folhas com base num valor de célula com código VBA
Embora não exista um método direto no Excel para ordenar todas as folhas com base num valor de célula, o seguinte código VBA pode ajudá-lo.
1. Mantenha premidas as teclas ALT + F11 e será aberta a janela do Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.
Código VBA: Ordenar todas as folhas com base num valor de célula
Sub SortWksByCell()
'Update 20141127
Dim WorkRng As Range
Dim WorkAddress As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range (Single)", xTitleId, WorkRng.Address, Type:=8)
WorkAddress = WorkRng.Address
Application.ScreenUpdating = False
For i = 1 To Application.Worksheets.Count
For j = i To Application.Worksheets.Count
If VBA.UCase(Application.Worksheets(j).Range(WorkAddress)) < VBA.UCase(Application.Worksheets(i).Range(WorkAddress)) Then
Application.Worksheets(j).Move Before:=Application.Worksheets(i)
End If
Next
Next
Application.ScreenUpdating = True
End Sub
3. Após colar o código, prima a tecla F5 para executar este código. Surgirá uma caixa de aviso a solicitar que selecione a célula com base na qual pretende ordenar as folhas. Veja a imagem:
4. Agora, pode confirmar que todas as folhas foram ordenadas por ordem crescente de acordo com o valor da célula A1 de cada uma.
Notas:
1. Se as suas células selecionadas contiverem simultaneamente números e cadeias de texto, as folhas com números serão ordenadas antes das que contêm cadeias de texto.
2. Se uma das células A1 estiver em branco, a respetiva folha será posicionada no início de todas as folhas.
Artigos relacionados:
Como ordenar folhas de cálculo por ordem alfabética ou alfanumérica no Excel?
Como ordenar separadores de folhas por cor no Excel?
Como inverter a ordem dos separadores das folhas?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos