Saltar al contenido principal

¿Cómo ordenar las hojas de trabajo en orden alfabético / alfanumérico en Excel?

Normalmente, puede ordenar u organizar el orden de las pestañas de la hoja de trabajo en Excel arrastrando y soltando las pestañas de la hoja en la barra de pestañas de la hoja. Pero para hacer esto con varias hojas de trabajo, puede considerar las siguientes formas complicadas de ordenar rápidamente las hojas de trabajo en orden alfabético / alfanumérico en un libro grande.

Ordene las hojas de trabajo en orden alfabético / alfanumérico con código VBA
Ordene las hojas de trabajo en orden alfabético / alfanumérico con Kutools para Excel


Ordene las hojas de trabajo en orden alfabético / alfanumérico con código VBA

Hay una macro para ordenar las hojas de trabajo por alfa publicada en el centro de soporte de Microsoft. Podemos aplicarlo con los siguientes pasos:

1.  Mantenga pulsado el botón ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.

2.  Haga Clic en recuadro > Móduloy luego pegue la siguiente macro en el Ventana de módulo.

VBA: ordena las hojas en orden alfabético / alfanumérico

Sub SortWorkBook()
'Updateby20140624
Dim xResult As VbMsgBoxResult
xTitleId = "KutoolsforExcel"
xResult = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) & "Clicking No will sort in Descending Order", vbYesNoCancel + vbQuestion + vbDefaultButton1, xTitleId)
For i = 1 To Application.Sheets.Count
    For j = 1 To Application.Sheets.Count - 1
        If xResult = vbYes Then
            If UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then
                Sheets(j).Move after:=Sheets(j + 1)
            End If
            ElseIf xResult = vbNo Then
                If UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Then
                    Application.Sheets(j).Move after:=Application.Sheets(j + 1)
            End If
        End If
    Next
Next
End Sub

3. presione el F5 clave para ejecutar esta macro. En el siguiente cuadro de aviso, haga clic en , todas las hojas de trabajo se ordenarán por orden alfabético ascendente; y haga clic en No, todas las hojas de trabajo se ordenarán por orden alfabético descendente.


Ordene las hojas de trabajo en orden alfabético / alfanumérico con Kutools para Excel

Si no está familiarizado con las macros o prefiere otras formas, puede intentar Kutools for Excel. Kutools for Excel's Ordenar hojas La herramienta puede ordenar todas las hojas de trabajo fácilmente.

Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.

1. Hacer clic Kutools Más > Hoja de trabajo > Ordenar hojas. Ver captura de pantalla:

2. En la Ordenar hojas cuadro de diálogo, seleccione un tipo de clasificación que necesite en el panel derecho, como Orden alfabético, Orden alfanumérico, y luego haga clic en OK botón. Ver captura de pantalla:

Luego, todas las hojas de trabajo se ordenan según el tipo de clasificación especificado. Ver captura de pantalla:

doc-ordenar-hojas6

Kutools for Excel's Ordenar hojas La herramienta puede reorganizar rápidamente todas las hojas de trabajo en el libro activo. Admite varios tipos de clasificación, incluidos Orden alfabético, Orden alfanumérico, Clasificación de color y Marcha atrás. Además, también puede mover hojas de trabajo hacia arriba o hacia abajo y restablecer la clasificación.

  Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.


Demostración: clasifique todas las hojas de trabajo en orden alfabético / alfanumérico


Artículo relacionado:

Ordenar las pestañas de la hoja de trabajo por color

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


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!

Comments (81)
Rated 5 out of 5 · 2 ratings
This comment was minimized by the moderator on the site
Grazie, ha funzionato perfettamente e mi ha risparmiato un sacco di lavoro. Complimenti
Rated 5 out of 5
This comment was minimized by the moderator on the site
Bom dia a macro funcionou porém com uma falha, veja no exemplo:
Abas (ANEXO 1, ANEXO 10, ANEXO 100, ANEXO 2, ANEXO 20)
Em uma planilha com os anexos acima ele organiza exatamente como está acima
Ele respeita a ordem somente a cada 10

Alguém sabe como corrigir? Olhei no font da macro mas não encontrei o problema
This comment was minimized by the moderator on the site
Macro qui marche parfaitement, en 30s c'est fait. Merci beaucoup
Rated 5 out of 5
This comment was minimized by the moderator on the site
Does anyone know how I would negate text from this macro? for example if my sheets were named "cafe 1st floor" and "kitchen 2nd floor" but id like to get rid of "cafe" and "kitchen"
thank you!
This comment was minimized by the moderator on the site
not working if your sheet was number ex: 1, 2, 10 12,
after sort: 1, 10, 12, 2
This comment was minimized by the moderator on the site
Hi Imd,
Do you mean all your sheet names are numbers and want to sort them ascending or descending? You can try the below VBA.

Sub Test1()

Dim i As Integer, j As Integer

For i = 1 To Sheets.Count

For j = 1 To Sheets.Count - 1

If Val(Replace(UCase(Sheets(j).Name), "SHEET", "")) > Val(Replace(UCase(Sheets(j + 1).Name), "SHEET", "")) Then Sheets(j).Move After:=Sheets(j + 1)

Next j

Next i

End Sub
This comment was minimized by the moderator on the site
Thank you for the macro !!!
This comment was minimized by the moderator on the site
Thank you for your help, very much appreciated...
This comment was minimized by the moderator on the site
I don't know VBA at all but your instructions worked perfectly. Thank you so much!
This comment was minimized by the moderator on the site
Thank you :)
This comment was minimized by the moderator on the site
Very helpful :) Thank you!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations