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

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

2、在Excel选项自定义功能区中勾选“开发工具”。

3、依次点击“开发工具”、“Visual Basic”，进入VBA界面。

4、输入如下代码：

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

代码比较简单，大意是先读取指定位置的排序，然后根据此排序对工作表进行重排。

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

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

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