Excel ｜ 将一个工作簿中N多工作表按名称排序

清晨六点，准时与您相约

问题情境

我的同事，一位毕业班班主任，在毕业学生管理网站上下载了班级所有学生的“测评记录表”，需要将这些表按学号进行打印。每个工作表的名称都是“学号_姓名”的方式命名的，但是，这些工作表并不是按照名称排序的，是这个样子：

要求打印后的工作表按照序号进行排列。

现在，这位老师有下面几种选择：

1、把所有的工作表一次打出来，然后肉眼找学号手式排序，每个学期50多个表，一共6个学期，300多张表，都要手式排序…………

2、在打印前把工作表按照名称一个一个排序。眼力+手工排序，累又不准！

韩老师给一段代码，秒秒钟排序好！

实现方法

第一步：按[Alt]+F11，打开VBA窗口代码；

第二步：在VBA窗口中输入以下代码：

Sub 表格排序()

Dim i%, j%

For i = 1 To Sheets.Count - 1

    For j = 1 To Sheets.Count - 1

        If Sheets(j).Name >= Sheets(j + 1).Name Then

           Sheets(j).Move after:=Sheets(j + 1)

        End If

    Next j

Next i

Sheets(1).Select

End Sub

如下图：

第三步：运行代码

点击工具菜单中的运行按钮：

你会发现：按名称排序完毕了！！