Note: The other languages of the website are Google-translated. Back to English

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

En Excel, puede aplicar la función Ordenar para ordenar solo una fila o columna en un rango de columnas, pero, si necesita ordenar varias filas o columnas de forma independiente a la vez, se muestra la siguiente captura de pantalla. ¿Hay alguna forma rápida de resolver esta tarea en Excel?

doc ordenar varias columnas 1

Ordene varias columnas de forma independiente a la vez con el código VBA

Ordene varias filas de forma independiente a la vez con el código VBA


flecha azul burbuja derecha Ordene varias columnas de forma independiente a la vez con el código VBA

Para ordenar varias columnas de forma independiente en orden ascendente, el siguiente código VBA puede ayudarlo, haga lo siguiente:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.

Código de VBA: ordena varias 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. Entonces presione F5 para ejecutar este código, y aparece un cuadro emergente para recordarle que seleccione el rango de datos que desea ordenar en función de cada columna, vea la captura de pantalla:

doc ordenar varias columnas 2

4. Y luego haz clic OK, cada columna se ha ordenado de forma dependiente a la vez, vea la captura de pantalla:

doc ordenar varias columnas 1


flecha azul burbuja derecha Ordene varias filas de forma independiente a la vez con el código VBA

Si desea ordenar varias filas de forma independiente, aquí también hay un código VBA para usted.

1. Seleccione los datos que desea ordenar en función de cada fila.

doc ordenar varias columnas 3

2. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

3. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.

Código de VBA: ordena varias 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. Entonces presione F5 clave para ejecutar este código, los datos en cada fila se han ordenado a la vez, vea la captura de pantalla:

doc ordenar varias columnas 4


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior
Comentarios (11)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
¡Cuando trato de ordenar las columnas, ordena los datos fuera del rango seccionado! ¿Por qué es esto?
Este comentario fue minimizado por el moderador en el sitio
¡Funciona muy bien! gracias !
Este comentario fue minimizado por el moderador en el sitio
¿Cómo puedo ordenar por color múltiples filas de forma independiente y que las celdas que no tengan color estén a la derecha?
Este comentario fue minimizado por el moderador en el sitio
Me encanta esto, tengo curiosidad sobre la funcionalidad de ordenar por color para cada columna individualmente. Intenté esto pero no funcionó:


Dim xRg como rango
Dim yRg como rango
Dim ws As Worksheet
Establecer ws = ActiveSheet
On Error Resume Next
Establecer xRg = Application.InputBox(Prompt:="Selección de rango:", _
Título:="Kutools para excel", Tipo:=8)
Application.ScreenUpdating = False
Por cada año en xRg
Con ws.Ordenar
.SortFields.Borrar
.SortFields.Agregar clave:=yRg, _
SortOn:=xlSortOnCellColor, Order:=xlDescending, DataOption:=xlSortNormal
.SetRange ws.Range(yRg, yRg.End(xlDown))
.Header = xlNo
.MatchCase = False
.Aplicar
End With
próximo año
Application.ScreenUpdating = True
End Sub
Este comentario fue minimizado por el moderador en el sitio
Muchas gracias por esto. Realmente ayudó. También me gustaría saber cómo ordenar por color. Tengo 26 columnas, cada una con diferentes tipos de elementos identificados por el color de fuente. Me gustaría ordenar alfabéticamente todas las columnas individualmente pero en un orden de color específico. ¿Cómo hago esto?
Este comentario fue minimizado por el moderador en el sitio
¡Me acabas de ahorrar varios dolores de cabeza con esta solución! ¡Gracias una tonelada!
Este comentario fue minimizado por el moderador en el sitio
excelente publicación, muchas gracias!
Este comentario fue minimizado por el moderador en el sitio
Спасибо тебе человек!!
Este comentario fue minimizado por el moderador en el sitio
Mis datos van de 0 a 100; Cuando trato de ordenar varias filas a la vez, comienza los datos con los 100, luego ordena el resto numéricamente de menor a mayor, colocando los 100 en el lado menor del rango. ¿Cómo puedo arreglar esto?
Este comentario fue minimizado por el moderador en el sitio
Actualizar; Me di cuenta de que está ordenando solo por el primer dígito del número. ¿Cómo puedo ordenar por el número completo?
Este comentario fue minimizado por el moderador en el sitio
Hola, Devyn,
El código funciona bien en mi hoja de trabajo. ¿Podría cargar su archivo de Excel o captura de pantalla de datos aquí? Entonces, ¿podemos ayudar a verificar dónde está el problema?
¡Gracias!
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL