Como ordenar dados em ordem decrescente no Excel?
No Excel, ao utilizar a fórmula típica =RANK(célula; intervalo), os seus dados são classificados de forma que o valor mais elevado recebe a classificação 1, enquanto o valor mais baixo obtém a pior classificação. Contudo, há situações em que poderá precisar de inverter esta lógica — atribuindo ao valor mais baixo a melhor classificação e ao valor mais elevado a última posição, tal como ilustrado na imagem seguinte. Esta abordagem é particularmente útil ao analisar dados em que valores mais baixos indicam um melhor desempenho, como tempos de corrida, custos ou contagens de erros.
Classificar dados em ordem inversa|Código VBA: Atribuir classificações inversas automaticamente
Classificar dados em ordem inversa
Para realizar uma classificação inversa no Excel, basta modificar ligeiramente a fórmula padrão RANK, especificando um argumento adicional. Esta abordagem permite-lhe classificar facilmente os dados do menor para o maior, em vez da ordem predefinida.
Selecione uma célula vazia onde deseja que o resultado da classificação inversa seja exibido. Supondo que o seu intervalo de dados se encontra nas células B2 a B10, insira a seguinte fórmula na primeira célula adjacente aos seus dados (por exemplo, na célula C2):
=RANK(B2,$B$2:$B$10,1)Depois de introduzir a fórmula, prima Enter. Para aplicar a fórmula às restantes células da coluna, utilize a alça de preenchimento: posicione o cursor no canto inferior direito da célula onde inseriu a fórmula (C2) e, assim que este se transformar num sinal de mais, arraste-o para baixo até preencher todas as células ao lado dos seus dados (até C10 neste exemplo).
Se os seus intervalos de dados forem diferentes, basta ajustar as referências das células na fórmula para corresponderem aos seus dados reais. Lembre-se de que, na presença de valores duplicados, a função RANK atribui a mesma classificação a esses valores e as classificações seguintes são ignoradas (por exemplo, se dois itens estiverem empatados no segundo lugar, a próxima classificação será a quarta).
A classificação inversa revela-se especialmente valiosa quando pretende destacar os valores mais baixos ou os tempos mais rápidos, funcionando de forma eficaz em conjuntos de dados onde empates são aceitáveis ou mesmo esperados.
Código VBA: Atribuir classificações inversas automaticamente
Para conjuntos de dados maiores ou cenários em que os seus dados são atualizados frequentemente e necessita de uma solução mais automatizada, pode utilizar código VBA para atribuir classificações inversas de forma rápida e eficiente. Este método é ideal para utilizadores à vontade com programação básica e que pretendem eliminar passos manuais repetitivos.
1. Abra o editor do VBA clicando em Ferramentas de Programador > Visual Basic. Na janela do Visual Basic for Applications, clique em Inserir > Módulo e cole o seguinte código no painel do Módulo:
Sub AssignReverseRank()
Dim dataRange As Range
Dim outputRange As Range
Dim i As Long
Dim j As Long
Dim temp As Variant
Dim arr As Variant
Dim sortedArr As Variant
Dim rankArr() As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set dataRange = Application.InputBox("Select the data range to rank (single column):", xTitleId, "", Type:=8)
If dataRange Is Nothing Then Exit Sub
Set outputRange = Application.InputBox("Select the first cell for output ranks:", xTitleId, "", Type:=8)
If outputRange Is Nothing Then Exit Sub
arr = dataRange.Value
ReDim rankArr(1 To UBound(arr, 1), 1 To 1)
sortedArr = arr
' Sort the array in ascending order
For i = 1 To UBound(sortedArr, 1) - 1
For j = i + 1 To UBound(sortedArr, 1)
If sortedArr(i, 1) > sortedArr(j, 1) Then
temp = sortedArr(i, 1)
sortedArr(i, 1) = sortedArr(j, 1)
sortedArr(j, 1) = temp
End If
Next j
Next i
' Assign reverse ranks
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(sortedArr, 1)
If arr(i, 1) = sortedArr(j, 1) Then
rankArr(i, 1) = j
Exit For
End If
Next j
Next i
outputRange.Resize(UBound(rankArr, 1), 1).Value = rankArr
End Sub2. Para executar a macro, clique no botão 
Executar ou prima F5. Ser-lhe-á solicitado que selecione o seu Intervalo de Dados (escolha uma única coluna que pretenda ordenar por ordem inversa) e, de seguida, indique a primeira célula onde deseja que os resultados da ordenação sejam apresentados. Clique em OK após cada seleção.
Esta macro ordena os seus dados por ordem crescente e atribui classificações inversas de forma automática, atribuindo a classificação 1 ao valor mais baixo. É especialmente útil para classificar milhares de entradas de uma só vez ou para automatizar a classificação em relatórios atualizados regularmente.
Ao utilizar esta macro, certifique-se de que os seus dados são contíguos e incluem apenas valores numéricos. Células não numéricas ou vazias podem originar resultados incorretos, pelo que recomendamos limpar previamente os seus dados. Além disso, guarde sempre a sua pasta de trabalho antes de executar macros — uma precaução simples que evita alterações não intencionais.
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