There er en makro for sortering regneark med alpha postet i Microsoft Support sentrum. Vi kan bruke den med følgende:
Trinn 1: Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vindu
Trinn 2:. Klikk på Insert > Modul, og lim følgende makro i modulen Window
VBA:. Sorter ark for
Sub SortWorkBook () 'Updateby20140624Dim xResult Som VbMsgBoxResultxTitleId = "KutoolsforExcel" xResult = MsgBox ("Sortere Sheets i stigende rekkefølge?". & Chr (10) & "Klikker Ingen vil sortere i synkende rekkefølge", vbYesNoCancel + vbQuestion + vbDefaultButton1, xTitleId) For i = 1 Til Application.Sheets.Count For j = 1 Til Application.Sheets.Count - 1 Hvis xResult = vbYes Så hvis UCase $ (Application.Sheets (j) .name) > UCase $ (Application.Sheets (j + 1) .name) Deretter Sheets (j) .Kjør etter: = Sheets (j + 1) End If ElseIf xResult = vbNo Så hvis UCase $ (Application.Sheets (j) .name) < UCase $ (Application.Sheets (j + 1) .name) så Application.Sheets (j) .Kjør etter: = Application.Sheets (j + 1) End If End If NextNextEnd undertrinn 3: Trykk F5 for å kjøre denne makroen . I følgende melding boksen, klikker du Ja, alle regnearkene vil bli sortert etter stigende alfabetisk rekkefølge; og klikker Nei, alle regnearkene vil bli sortert etter synkende alfabetisk rekkefølge.