O titorial mostra como pode ordenar rapidamente as follas de cálculo de Excel por orde alfabética mediante o código VBA e a ferramenta Xestor de libros de traballo.

Microsoft Excel ofrece varias formas rápidas e sinxelas de organizalas. columnas ou filas en orde alfabética. Pero só hai un método para reorganizar as follas de traballo en Excel: arrástraas ata a posición desexada na barra de pestanas da folla. Cando se trata de ordenar alfabéticamente as pestanas nun libro de traballo moi grande, esta pode ser unha forma longa e errónea. Buscas unha alternativa para aforrar tempo? Só existen dous: código VBA ou ferramentas de terceiros.

Como alfabetizar as pestanas en Excel con VBA

A continuación atoparás tres exemplos de código VBA para ordenar Excel follas ascendentes, descendentes e en calquera dirección en función da elección do usuario.

O que implica que tes algunha experiencia con VBA, só indicaremos os pasos básicos para engadir unha macro á túa folla de traballo:

1. No seu libro de Excel, prema Alt + F11 para abrir o Editor de Visual Basic.
2. No panel esquerdo, faga clic co botón dereito en Este libro de traballo e, a continuación, prema en Inserir > Módulo .
3. Pega o código VBA na xanela Código.
4. Preme F5 para executar a macro.

Para as instrucións detalladas paso a paso, consulte Como inserir e executar código VBA en Excel.

Consello. Se queres conservar a macro para usala posteriormente, asegúrate de gardar o teu ficheiro como un libro de traballo habilitado para macros de Excel (.xlsm).

Como alternativa, podes descargar o noso libro de traballo de mostra Alphabetize Excel Tabs, activar o contido se se lle solicita e executar a macro desexada directamente desde alí. O libro de traballo contén as seguintes macros:

• TabsAscending : ordena as follas alfabeticamente da A á Z.
• TabsDescending : organiza as follas no orde inversa, de Z a A.
• AlphabetizeTabs : ordena as pestanas das follas en ambas direccións, ascendente ou descendente.

Co libro de exemplo descargado e aberto en o teu Excel, abre o teu propio libro de traballo no que queres alfabetizar as pestanas, prema Alt + F8 , selecciona a macro desexada e fai clic en Executar .

Ordena as pestanas de Excel alfabeticamente da A á Z

Esta pequena macro organiza as follas do libro de traballo actual en orde alfanumérica ascendente , primeiro follas de traballo cuxos nomes comezan con números, despois follas da A á Z.

Sub TabsAscending() For i = 1 Para Application.Sheets.Count For j = 1 To Application.Sheets.Count - 1 Se UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then Sheets(j).Move after:=Fheets(j + 1) End If Next Next MsgBox "As pestanas clasificáronse da A á Z." End Sub

Ordena as pestanas de Excel de Z a A

Se queres ordenar as túas follas en orde alfanumérica descendente (de Z a A, despois follas con nomes numéricos), seguinte código:

Sub TabsDescending() For i = 1 ToApplication.Sheets.Count For j = 1 To Application.Sheets.Count - 1 Se UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Despois Application.Sheets(j).Move after:=Application.Sheets(j + 1) End If Next Next MsgBox "As pestanas clasificáronse de Z a A. " End Sub

Alfabetizar as pestanas ascendente ou descendente

Esta macro permite aos usuarios decidir como ordenar as follas de traballo nun determinado libro, alfabeticamente da A á Z ou na orde inversa.

Desde cadro de diálogo estándar (MsgBox) en Excel VBA só permite escoller entre un puñado de botóns predefinidos, crearemos o noso propio formulario (Formulario de usuario) con tres botóns personalizados: A a Z , Z a A e Cancelar .

Para iso, abra o Editor de Visual Basic, prema co botón dereito do rato en ThisWorkbook e prema en Inserir > Formulario de usuario . Pon un nome ao teu formulario SortOrderFrom e engádelle 4 controis: unha etiqueta e tres botóns:

A continuación, prema F7 (ou fai dobre clic no formulario). ) para abrir a xanela Código e pegar alí o seguinte código. O código intercepta os clics dos botóns e asigna unha etiqueta única a cada botón:

Private Sub CommandButton1_Click() Me.Tag = 1 Me.Hide End Sub Private Sub CommandButton2_Click() Me.Tag = 2 Me.Hide End Sub Private Sub CommandButton3_Click () Me.Tag = 0 Me.Hide End Sub

En función de se o usuario fai clic no botón A a Z ou Z a A do formulario, ordena as pestanas enorde alfabética ascendente (seleccionada por defecto) ou orde alfabética descendente; ou pecha o formulario e non fagas nada en caso de Cancelar . Isto faise co seguinte código VBA, que inseris do xeito habitual mediante Inserir > Módulo .

Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm If SortOrder = 0 Entón Saír Sub para x = 1 Para Application.Sheets.Count Para y = 1 Para Application.Sheets.Count - 1 Se SortOrder = 1 Then If UCase$(Application.Sheets(y).Name) > UCase$(Aplicación.Follas(y + 1).Nome) Despois Follas(y).Mover despois de:=Follas(y + 1) Finalizar If ElseIf SortOrder = 2 Then If UCase$(Aplicación.Follas(y).Nome) < UCase$(Application.Sheets(y + 1).Name) Then Sheets(y).Move after:=Fheets(y + 1) End If End If Next Next End Sub Función showUserForm() As Integer showUserForm = 0 Cargar SortOrderForm SortOrderForm .Show (1) showUserForm = SortOrderForm.Tag Descargar SortOrderForm End Function

Se aínda non estás moi cómodo con VBA, simplemente podes descargar o noso Caderno de exemplo para alfabetizar pestanas, ábreo no teu Excel xunto co teu propio ficheiro onde queiras para ordenar as pestanas e executa a macro Alfabetizar pestanas do teu libro de traballo:

Escolla a orde de ordenación preferida, por exemplo, A a Z , e observa os resultados:

Consello. Con VBA, tamén pode crear copias das súas follas de cálculo de Excel. O código está dispoñible aquí: Como facerduplicar folla en Excel con VBA.

Como ordenar as pestanas de Excel alfabéticamente con Ultimate Suite

Os usuarios da nosa Ultimate Suite para Excel non teñen que xogar con VBA: teñen un -Xestor de libros de traballo funcional á súa disposición:

Con esta ferramenta engadida á cinta de Excel, a ordenación alfabética das pestanas faise cun só clic nun botón, exactamente como debería ser!

Se tes curiosidade por explorar esta e máis de 70 ferramentas profesionais máis para Excel, hai unha versión de proba da nosa Ultimate Suite dispoñible para descargar aquí.

Agradézoo. por ler e espero verte no noso blog a vindeira semana!