VBA按字母表顺序对工作表进行排序

 如果工作簿内有大量以字母开头的工作表，要将这些工作表按照字母表的顺序进行排序，可以用下面的VBA代码来实现。按Alt+F11，打开VBA编辑器，单击菜单“插入→模块”，在代码窗口中粘贴下列代码并执行。

Sub 按字母表排序工作表()
Dim i As Integer, j As Integer, n As Integer
On Error Resume Next
n = Sheets.Count
If n = 1 Then End
For i = 1 To n - 1
  For j = i + 1 To n
    If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
      Sheets(j).Move Before:=Sheets(i)
    End If
  Next j
Next i
End Sub

    上述代码是按照字母表升序来对工作表进行排序的，如果要按降序排序，将代码中的小于号改为大于号即可。