Skip to main content

Kutools para Office — Uma Suíte. Cinco Ferramentas. Aumente sua Produtividade.

Como classificar dados em ordem inversa no Excel?

Author Sun Last modified

No Excel, usando a fórmula típica =RANK(célula, intervalo) a fórmula classificará seus dados de forma que o maior valor receba a classificação 1, enquanto o menor valor receberá a última posição. No entanto, existem situações em que você pode precisar inverter essa lógica, dando ao menor valor a classificação mais alta e ao maior valor a classificação mais baixa, como ilustrado na captura de tela abaixo. Isso pode ser particularmente útil ao analisar dados onde valores menores representam melhor desempenho, como tempos de corrida, custos ou contagens de erros.
A screenshot showing data ranked in reverse order in Excel

Classificar dados em ordem reversa | Código VBA: Atribuir classificações inversas automaticamente


Classificar dados em ordem reversa

Para realizar uma classificação inversa no Excel, você pode modificar ligeiramente a fórmula RANK padrão especificando um argumento adicional. Essa abordagem permite classificar os dados do menor para o maior, em vez da ordem padrão.

Selecione uma célula em branco onde deseja que o resultado da classificação inversa apareça. Supondo que seu intervalo de dados esteja nas células B2 até 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)

Após inserir a fórmula, pressione Enter. Para aplicar a fórmula às outras células na sua coluna, use a alça de preenchimento: posicione o mouse sobre o canto inferior direito da célula onde você inseriu a fórmula (C2), e quando o cursor se transformar em um sinal de mais, arraste-o para baixo para preencher as células restantes no intervalo ao lado dos seus dados (até C10 neste exemplo). 
A screenshot of reverse rank formula applied in Excel

Se o intervalo de dados for diferente, ajuste simplesmente as referências de células dentro da fórmula para corresponder aos seus dados reais. Lembre-se de que, se houver valores duplicados, a função RANK atribuirá a mesma classificação a esses valores, e as classificações subsequentes serão puladas (por exemplo, se houver dois itens empatados em segundo lugar, a próxima classificação será quatro).

A classificação inversa é especialmente valiosa quando você deseja destacar os menores valores ou os tempos mais rápidos, e funciona bem em conjuntos de dados onde empates são aceitáveis ou esperados.


Código VBA: Atribuir classificações inversas automaticamente

Para grandes volumes de dados ou cenários em que seus dados são atualizados frequentemente e você precisa de uma solução mais automatizada, pode usar código VBA para atribuir classificações inversas rapidamente e com eficiência. Esse método é ideal para usuários familiarizados com pequenas quantidades de programação e que desejam eliminar etapas manuais repetitivas.

1. Abra o editor VBA clicando em Ferramentas de Desenvolvedor > Visual Basic. Na janela do Visual Basic for Applications, clique em Inserir > Módulo e cole o seguinte código no painel 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 Sub

2. Para executar a macro, clique no botão Run button Executar ou pressione F5. Você será solicitado a selecionar o intervalo de dados (escolha uma única coluna que deseja classificar em ordem inversa) e depois selecione a primeira célula onde deseja que os resultados da classificação sejam exibidos. Clique em OK após cada seleção.

Essa macro ordena seus dados em ordem crescente e atribui classificações inversas de acordo, colocando o menor valor como rank 1. É especialmente útil para classificar milhares de entradas de uma só vez ou para automatizar a classificação em relatórios que são atualizados regularmente.

Ao usar essa macro, certifique-se de que seus dados sejam contínuos e contenham apenas valores numéricos. Qualquer célula não numérica ou em branco pode resultar em saída incorreta, então é melhor limpar seus dados primeiro. Além disso, salvar sua pasta de trabalho antes de executar macros é uma boa precaução para evitar alterações indesejadas.


Melhores Ferramentas de Produtividade para Office

🤖 Kutools AI Aide: Revolucione a análise de dados com: Execução Inteligente   |  Gerar Código  |  Criar Fórmulas Personalizadas  |  Analisar Dados e Gerar Gráficos  |  Chamar Funções Aprimoradas
Recursos Populares: Localizar, Destacar ou Marcar Duplicatas   |  Excluir Linhas em Branco   |  Consolidar Colunas ou Células sem Perder Dados   |   Arredondar...
Super PROC: Procura por múltiplos critérios    Procura por múltiplos valores  |   Procura em várias planilhas   |   Correspondência Fuzzy...
Lista Suspensa Avançada: Crie rapidamente Lista suspensa  |  Lista suspensa dependente  |  Lista suspensa com múltipla seleção ...
Gerenciador de Colunas: Adicionar número específico de colunas  | Mover Colunas  | Alternar status de visibilidade de Colunas ocultas |  Comparar Intervalos & Colunas...
Recursos em Destaque: Grade de foco   |  Visualização de Design  |  Barra de fórmulas aprimorada    Gerenciador de Pasta de trabalho & Planilha   |  Biblioteca de AutoTexto (Auto Text)   |  Selecionador de Data   |  Mesclar Dados   |  Criptografar/Descriptografar Células    Enviar Email por Lista   |  Super Filtro   |   Filtro Especial (filtrar negrito/itálico/tachado...) ...
Os 15 Principais Conjuntos de Ferramentas: 12 Ferramentas de Texto (Adicionar Texto, Excluir Caracteres Específicos, ...)  | 50+ Tipos de Gráficos (Gráfico de Gantt, ...)  | 40+ Fórmulas Práticas (Calcular a idade com base na data de nascimento, ...)  | 19 Ferramentas de Inserção (Inserir Código QR, Inserir Imagem pelo Caminho, ...)  | 12 Ferramentas de Conversão (Converter em Palavras, Conversão de Moeda, ...)  | 7 Ferramentas de Mesclar & Dividir (Mesclar Linhas Avançado, Dividir Células, ...) | ...e muito mais
Use o Kutools no idioma de sua preferência – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 idiomas!

Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para acessar o recurso que você mais precisa...


Office Tab traz interface com abas para o Office e facilita muito seu trabalho

  • Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
  • Aumente sua produtividade em50% e economize centenas de cliques todos os dias!

Todos os complementos Kutools. Um instalador

O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.

Excel Word Outlook Tabs PowerPoint
  • Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
  • Um instalador, uma licença — configuração em minutos (pronto para MSI)
  • Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
  • Avaliação completa por30 dias — sem registro e sem cartão de crédito
  • Melhor custo-benefício — economize comparado à compra individual de add-ins