EXCEL 如何制作瀑布图,对于有些数据做图表非常适合用瀑布图，比如生活开支......
根据指定顺序对同一工作簿内工作表进行排序
来源：互联网
2023-02-20 18:11:15 版权归原作者所有，如有侵权，请联系我们
上一次我们介绍了借助VBA快速提取工作表名称的操作方法，今天我们介绍一下根据指定顺序对同一工作簿内工作表进行排序的操作方法。
工具/原料
- EXCEL软件
方法/步骤
以下表为例，目录工作表中有其余工作表的表名，现在需要根据这个顺序对其他工作表进行排序。
在Excel选项自定义功能区中勾选“开发工具”。
依次点击“开发工具”、“Visual Basic”，进入VBA界面。
输入如下代码：
Sub Sortsheet()
Dim Sht As Worksheet, Shtname$, i&
Set Sht = ActiveSheet
For i = 2 To Sht.Cells(Rows.Count, 1).End(xlUp).Row
Shtname = Sht.Cells(i, 1).Value
Worksheets(Shtname).Move after:=Worksheets(i - 1)
Next
Sht.Activate
End Sub
代码比较简单，大意是先读取指定位置的排序，然后根据此排序对工作表进行重排。
插入窗体控件按钮，链接至刚才书写的代码。
将EXCEL表另存为xlsm格式，之后再次打开该文件。
点击刚才插入的窗体控件，之后可以看到工作表的排序已经发生变化，与我们指定的排序要求完全一致。
注意事项
- 如果这篇经验对您有所帮助，请投票支持并转发帮助更多的人。
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！
