excel按字母对工作表名进行升序排序

在excel工作簿中会创建很多工作表，大量的工作表有时查找起来有点麻烦。如何将这些工作表按字母排序呢

这里我们自定义了一个函数。可按照字母表升序来对工作表进行排序

原始排序：

运行代码排序：

详细源码：

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