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

发布网友发布时间：2022-02-22 08:18

我来回答

共3个回答

热心网友时间：2022-02-22 09:47

你排序的目的就是想查找方便,其实你可以在总表中建个超链接到每个子表,那样不就很方便了吗?
如果不想放在总表,可以再弄个新的工作表呀.追问超链接已设置，但是回头查看汇总表时又不方便

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

热心网友时间：2022-02-22 11:05

如字表不多，鼠标点击可任意拖动的追问很多，几百个简单的工作表，所以寻找快捷操作方式

热心网友时间：2022-02-22 12:40

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com