能否将EXCEL工作簿中的工作表按名称排序,怎样实现?

如题所述

可以用vba完成.
按住ALT依次按F11,I,M.
粘贴下面代码后按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
温馨提示:答案为网友推荐,仅供参考
第1个回答  推荐于2017-12-15
如果的你的工作薄里有很多工作标签,要想快速的找到你想标签,你最好做个“目录”或者最“”这个名称就你决定了,这个目录与你的工作标签进行“链接”不过最好是将你的目录放在所有工作标签的最前面,有利于你的查找
比如你的的标签名有XXX,CCC,AAA等等,先点目录这个标签,然后在目录表中的A1或都期它那个单元格里,(看你个人对表的设计了),然后点击右键出现有个“超链接”再点一下就会出现一个“超链接”对话框,再点击“本文档中的位置(A)”这个选项,最后再就右边大白色框中的(单元格引用)下的XXX,CCC,AAA(也就是你的工作标签),不过一次只能选 一个的,你不要一次点多个是不行的,本回答被提问者采纳
第2个回答  2011-06-29
最好是把所有班级的成绩表统一复制到新建的表中进行排序

如果学生数达多,可以先按班级排序,然后将规定分数以上的学生成绩复制过来

最后,再这个复制过来的总表中,进行排序
第3个回答  2011-06-28
除手动外,好象没有什么方法
第4个回答  2011-06-28
好像没有此功能哦