¿Cómo ordenar datos en orden inverso en Excel?
En Excel, al utilizar la fórmula típica =RANGO(celda; rango), sus datos se clasifican de modo que el valor más alto recibe el rango 1, mientras que el valor más bajo obtiene el número de rango más bajo. Sin embargo, en ciertas situaciones puede necesitar invertir esta lógica: asignar al valor más pequeño el rango más alto y al más grande el último rango, tal como se muestra en la captura de pantalla siguiente. Esto resulta especialmente útil al analizar datos en los que valores más bajos indican un mejor rendimiento, como tiempos de carrera, costes o recuentos de errores.
Clasificar datos en orden inverso|Código VBA: Asignar rangos inversos automáticamente
Clasificar datos en orden inverso
Para realizar una clasificación inversa en Excel, puede modificar ligeramente la fórmula estándar de RANGO especificando un argumento adicional. Este enfoque le permite clasificar fácilmente los datos de menor a mayor, en lugar del orden predeterminado.
Seleccione una celda vacía donde desee que aparezca el resultado de la clasificación inversa. Suponiendo que su rango de datos se encuentra en las celdas B2 a B10, introduzca la siguiente fórmula en la primera celda adyacente a sus datos (por ejemplo, en la celda C2):
=RANK(B2,$B$2:$B$10,1)Tras introducir la fórmula, pulse Intro. Para aplicarla al resto de celdas de la columna, use el controlador de relleno: coloque el cursor en la esquina inferior derecha de la celda con la fórmula (C2) y, cuando el puntero se convierta en un signo más, arrástrelo hacia abajo para rellenar las celdas contiguas hasta C10 (en este ejemplo).
Si su rango de datos es distinto, ajuste simplemente las referencias de celda en la fórmula para que coincidan con sus datos reales. Recuerde que, si hay valores duplicados, la función RANGO asignará el mismo rango a dichos valores y omitirá los rangos siguientes (por ejemplo, si dos elementos están empatados en segundo lugar, el siguiente rango será el cuarto).
La clasificación inversa resulta especialmente útil cuando desea destacar los valores más bajos o los tiempos más rápidos, y funciona perfectamente en conjuntos de datos donde los empates son aceptables o incluso esperados.
Código VBA: Asignar rangos inversos automáticamente
Para conjuntos de datos más grandes o escenarios en los que sus datos se actualizan con frecuencia y necesita una solución más automatizada, puede utilizar código VBA para asignar rangos inversos de forma rápida y eficiente. Este método es ideal para usuarios familiarizados con la programación básica y que desean eliminar pasos manuales repetitivos.
1. Abra el editor de VBA haciendo clic en Herramientas para desarrolladores > Visual Basic. En la ventana de Visual Basic para Aplicaciones, haga clic en Insertar > Módulo y pegue el siguiente código en el panel del 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 ejecutar la macro, haga clic en el botón 
Ejecutar o pulse F5. Se le pedirá que seleccione su rango de datos (elija una única columna que desee ordenar en sentido inverso) y, a continuación, la primera celda donde quiera que aparezcan los resultados. Haga clic en Aceptar tras cada selección.
Esta macro ordena sus datos en orden ascendente y les asigna rangos inversos en consecuencia, asignando el valor más pequeño al rango 1. Es especialmente útil para clasificar miles de entradas de forma instantánea o para automatizar clasificaciones en informes que se actualizan periódicamente.
Al utilizar esta macro, asegúrese de que sus datos sean contiguos y contengan exclusivamente valores numéricos. Cualquier celda vacía o con contenido no numérico podría provocar resultados incorrectos, por lo que le recomendamos limpiar sus datos previamente. Asimismo, guarde su libro de trabajo antes de ejecutar la macro como medida de precaución para evitar modificaciones no deseadas.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos