如何把EXCEL多个工作表重新排序

Question

用数字编号规则的新建命名工作表，之前是新编号显示的后面，现在想把所有的编号重排，使新编号显示在汇总表后
例如这个图片显示的，我想把现有的子表重新排序，使0610排在汇总后。我是2007版OFFICE

Answer 1

你排序的目的就是想查找方便,其实你可以在总表中建个超链接到每个子表,那样不就很方便了吗?
如果不想放在总表,可以再弄个新的工作表呀.

追问

超链接已设置，但是回头查看汇总表时又不方便

追答

这个简单,在每个表格也设置一个超链接实现跳转到总表就行

Answer 2

如字表不多，鼠标点击可任意拖动的

追问

很多，几百个简单的工作表，所以寻找快捷操作方式

Answer 3

1.按住ALT依次按F11,I,M.
2.粘贴下面代码后按F5即可完成工作表排序.

Sub test()
Dim s As Worksheet
Dim n() As String
t = ThisWorkbook.Sheets.Count
ReDim n(1 To t)
For i = 1 To t
n(i) = Sheets(i).Name
Next
For i = 1 To t - 1
For j = i + 1 To t
If n(i) > n(j) Then
a = n(i)
n(i) = n(j)
n(j) = a
End If
Next
Next
For i = 1 To t
Sheets(n(i)).Move Sheets(i)
Next
End Sub