根据指定顺序对同一工作簿内工作表进行排序

以下表为例，目录工作表中有其余工作表的表名，现在需要根据这个顺序对其他工作表进行排序。

在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.ActivateEnd Sub 代码比较简单，大意是先读取指定位置的排序，然后根据此排序对工作表进行重排。

插入窗体控件按钮，链接至刚才书写的代码。

将EXCEL表另存为xlsm格式，之后再次打开该文件。

点击刚才插入的窗体控件，之后可以看到工作表的排序已经发生变化，与我们指定的排序要求完全一致。