对Excel中的工作表进行排序的VBA（备份一下）

Sub sheets_sort()
    For i = 1 To Sheets.Count
        For j = i To Sheets.Count
            If Sheets(i).Name > Sheets(j).Name Then
                Sheets(j).Move , Before:=Sheets(i)
            End If
        Next
    Next
End Sub