在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