对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

转载于:https://www.cnblogs.com/chenqiang001/archive/2011/04/18/2019742.html