Excel：如何对工作表进行排序呢？

如何高效排序工作表？右键点击任一标签，通过VBA操作：在插入→模块中输入代码，利用Sheets.Count获取Excel工作簿内工作表数量。通过If语句判断Sheet(j)名是否大于或等于Sheet(j+1)，若满足条件，则执行Move方法将前者移至后者之后，实现相邻工作表的大小顺序调整。

1、 右键单击任意工作表标签，查看代码，插入→模块，将下面的代码粘贴一下：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 jNext iSheets(1).SelecEnd Sub

2、 主要解释① Sheets.Count：? 表示Excel工作簿中工作表的数量

3、 ② If Sheets(j).Name >= Sheets(j + 1).Name Then?Sheets(j).Move after:=Sheets(j + 1)比较相邻两个工作表，把大的放在后面，小的放在前面。

4、 效果如下图所示，当运行代码后，可以发现工作表瞬间按名称进行了排序。