再任意一個工作表名稱點右鍵，點查看源代碼，把下面代碼復制過去執行
Sub Sort_Sheets()
Dim sCount As Integer, I As Integer, R As Integer
ReDim Na(0) As String
sCount = Sheets.Count
For I = 1 To sCount
ReDim PReserve Na(I) As String
Na(I) = Sheets(I).Name
Next
For I = 1 To sCount - 1
For R = I + 1 To sCount
If Na(R) < Na(I) Then
JH = Na(I)
Na(I) = Na(R)
Na(R) = JH
End If
Next
Next
For I = 1 To sCount
Sheets(Na(I)).Move After:=Sheets(I)
Next
End Sub

Excel 根據sheet名排序
隨便點一個sheet，查看代碼Sub 按字母排序工作表()If MsgBox("真的要按工作表名稱首字拼音的順序(A~Z)來排序工作表嗎?", vbYesNo, "請確認此次替換") = vbYes ThenDim wbook As Workbook, wsheet As Worksheet, i As Integer, countsh As Integer, ss() As StringSet wbook = ActiveWorkbook
countsh = wbook.Sheets.Count
ReDim ss(1 To countsh)
For i = 1 To countsh
ss(i) = wbook.Sheets(i).Name
Next
Set wsheet = wbook.Worksheets.Add
For i = 1 To countsh
wsheet.Cells(i, 1).Value = ss(i)
Next
wsheet.Columns(1).Sort Key1:=wsheet.Columns(1), Order1:=xlAscending
For i = 1 To countsh
ss(i) = wsheet.Cells(i, 1).Value
Next
application.DisplayAlerts = False
wsheet.Delete
Application.DisplayAlerts = True
For i = 1 To countsh
wbook.Sheets(ss(i)).Move after:=wbook.Sheets(countsh)
NextElse: MsgBox "用戶取消了此次排序操作!"
End If
End Sub執行搞定，^_^

還有個Word里的，硬回車替換軟回車^l替換^p