Verified answer

Sub Sortsheets() '以昇冪排列工作表

Dim sCount As Integer, i As Integer, j As Integer

Application.ScreenUpdating = False

sCount = Worksheets.Count

If sCount = 1 Then Exit Sub

For i = 1 To sCount - 1

For j = i + 1 To sCount

2008-12-08 18:24:48 補充：

If Worksheets(j).Name < Worksheets(i).Name Then

Worksheets(j).Move Before:=Worksheets(i)

End If

Next

Next

Application.ScreenUpdating = True

End Sub

2008-12-08 19:32:06 補充：

圖片參考：http://img261.imageshack.us/img261/8914/vbagy3.png

ALT+F11進入VBE編輯器裡，左手邊新增模組，把程式碼貼進去，在程式碼中間點一下，確定要執行的是這一段再點上面的綠色執行鍵就完成了。

Sub Sortsheets() '以昇冪排列工作表

Dim sCount%, i%, j%

Application.ScreenUpdating = False

sCount = Worksheets.Count

If sCount = 1 Then Exit Sub

For i = 1 To sCount - 1

For j = i + 1 To sCount

If Worksheets(j).Name < Worksheets(i).Name Then

Worksheets(j).Move Before:=Worksheets(i)

End If

Next

Next

Application.ScreenUpdating = True

End Sub

把你的工作表,每一個都重新命名成統一格式

如AAA001,AAA002,AAA003.....或001AAA,002AAA,003AAA.....

也許你會覺得麻煩,但錯誤已造成,就再全修過,以後就不會有重覆的困擾了.

2008-12-08 13:08:28 補充：

版主,你確定要排序的是工作頁?還是檔案?還是儲存格?

工作頁,可是無法排序,

檔案或儲存格才可以!但...............不清楚你要什麼?

而我的答案是針對檔案!

若是儲存格,請按功能表上的資料/排序/自動排序

2008-12-08 16:49:49 補充：

工作頁無法自動排序嚕.........

2008-12-08 18:42:22 補充：

誠如夏日大大用VBA去做,

請貼在答案區上來吧

大大您好:請你將你所需要排序的資料選取，在工具列上方有資料選項，選擇排序，可依你所以要的資料欄位遞增(由大到小)或遞減由小到大，你也選擇是否需要有標題列排序，這樣即可，希望能幫助到你哦!!