¿Cómo ordenar varias filas o columnas de forma independiente a la vez en Excel?

En Excel, puedes aplicar la función Ordenar para organizar solo una fila o columna dentro de un rango de columnas. Sin embargo, si necesitas ordenar varias filas o columnas de forma independiente a la vez para obtener el resultado que se muestra en la siguiente captura de pantalla, ¿hay alguna manera rápida de resolver esta tarea en Excel?

Ordenar múltiples columnas de forma independiente a la vez con código VBA

Ordenar múltiples filas de forma independiente a la vez con código VBA

Ordenar múltiples columnas de forma independiente a la vez con código VBA

Para ordenar múltiples columnas de forma independiente en orden ascendente, el siguiente código VBA puede ayudarte; por favor, sigue estos pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Ordenar múltiples columnas de forma independiente a la vez:

Sub SortIndividualJR()
'Updateby Extendoffice
    Dim xRg As Range
    Dim yRg As Range
    Dim ws As Worksheet
    Set ws = ActiveSheet
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Range Selection:", _
                                    Title:="Kutools for excel", Type:=8)
    Application.ScreenUpdating = False
    For Each yRg In xRg
        With ws.Sort
            .SortFields.Clear
            .SortFields.Add Key:=yRg, Order:=xlAscending
            .SetRange ws.Range(yRg, yRg.End(xlDown))
            .Header = xlNo
            .MatchCase = False
            .Apply
        End With
    Next yRg
    Application.ScreenUpdating = True
End Sub

3. Luego, presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo que te pedirá seleccionar el rango de datos que deseas ordenar basado en cada columna, como se muestra en la siguiente captura de pantalla:

4. Luego haz clic en Aceptar, y cada columna se habrá ordenado de forma independiente a la vez, como se muestra en la siguiente captura de pantalla:

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Ordenar múltiples filas de forma independiente a la vez con código VBA

Si deseas ordenar múltiples filas de forma independiente, aquí también hay un código VBA para ti.

1. Selecciona los datos que deseas ordenar basándote en cada fila.

2. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Ordenar múltiples filas de forma independiente a la vez:

Sub SortIndividualR()
'Updateby Extendoffice
    Dim xRg As Range, yRg As Range
    If TypeName(Selection) <> "Range" Then Exit Sub
    Set xRg = Selection
    If xRg.Count = 1 Then
        MsgBox "Select multiple cells!", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
    Application.ScreenUpdating = False
    For Each yRg In xRg.Rows
        yRg.Sort Key1:=yRg.Cells(1, 1), _
        Order1:=xlAscending, _
        Header:=xlNo, _
        Orientation:=xlSortRows
    Next yRg
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
    Application.ScreenUpdating = True
End Sub

4. Luego, presiona la tecla F5 para ejecutar este código, y los datos en cada fila se habrán ordenado a la vez, como se muestra en la siguiente captura de pantalla: