1、在使用Excel的过程中我们可能会遇到这个问题,一个工作簿有几十个工作表,结果这些工作表的顺序不太满足要求,我们想将这些工作表快速排序。你有什么好方法来解决这个问题吗?

3、复制进去如下代码。Sub ml() Dim sht As Worksheet, k&挢旗扦渌; [a:a] = "" '清空A列数据 [a1] = "目录" k = 1 For Each sht In Worksheets '遍历工作簿中每个工作表 k = k + 1 '累加K值 Cells(k, 1) = sht.Name '将工作表名称依次放入表格A列 NextEnd Sub


6、对目录进行筛选,排序,也可以手工排序。

8、然后再画一个按钮,指定sortsheet。
