So sortieren Sie Arbeitsblätter alphanumerisch in einer Arbeitsmappe

Wenn Sie mit einer großen Datenbank arbeiten, die viele Arbeitsblätter enthält, ist es hilfreich, die Arbeitsblätter alphanumerisch zu sortieren. Leider bietet Excel 2016 keine direkte Möglichkeit, Arbeitsblätter zu sortieren. Das folgende ist ein Makro, um die Aufgabe auszuführen.

Schritt 1: Klicken Sie auf eine beliebige Stelle in der Arbeitsmappe und drücken Sie dann ' ALT + F11 ' Schlüssel zum Öffnen des ' Microsoft Visual Basic für Applikationen ' Fenster;

Schritt 2: Klicken Sie auf Einfügen und dann in der Dropdown-Liste auf Modul;



Schritt 3: Kopieren Sie im neuen Modulfenster die folgenden Codes und fügen Sie sie ein oder beziehen Sie sich auf die Microsoft Support-Seite ;

Sub Sort_Active_Book()
Dim i As Integer
Dim j As Integer
Dim iAnswer As VbMsgBoxResult
'
' Prompt the user as which _
direction they wish to
' sort the worksheets.
'
iAnswer = _
MsgBox("Sort in Ascending?" _
& Chr(10) _
& "No will sort Descending ", _
 vbYesNoCancel + vbQuestion _
  + vbDefaultButton1, _
  "Sort Worksheets")
  For i = 1 To Sheets.Count
  For j = 1 To Sheets.Count - 1
'
' If the answer is Yes, then _
sort in ascending order.
'
  If iAnswer = vbYes Then
  If UCase$(Sheets(j).Name) _
   > UCase$(Sheets(j + 1) _
   .Name) Then
   Sheets(j).Move _
   After:=Sheets(j + 1)
   End If
'
' If the answer is No, then _
sort in descending order.
'
  ElseIf iAnswer = vbNo Then
  If UCase$(Sheets(j) _
  .Name) < UCase$ _
  (Sheets(j + 1).Name) Then
  Sheets(j).Move _
  After:=Sheets(j + 1)
            End If
         End If
      Next j
   Next i
End Sub

Schritt 4: In dem ' Microsoft Visual Basic für Applikationen 'Fenster, klicken' Laufen ' Taste;

Schritt 5: In dem ' Arbeitsblätter sortieren 'Fenster, klicken' Ja ' Wenn Sie die Blätter in aufsteigender Reihenfolge sortieren; oder klicken Sie auf ' ' Wenn Arbeitsblätter in absteigender Reihenfolge sortiert werden.

Schritt 6: Klicken Sie zum Beispiel auf ' Ja ', um Arbeitsblätter in aufsteigender Reihenfolge zu sortieren.