案例：如下图所示，一个Excel文件中，包含了多个工作表，有1-雷哥office，2-雷哥office......

但是，我们发现工作表的顺序是比较混乱的，为了方便管理，如何对工作表进行排序呢？

方法：雷哥推荐使用冒泡排序法

什么是冒泡排序法

提到冒泡排序法，部分同学可能会有点懵。那么，到底什么是冒泡排序法呢？

冒泡排序(Bubble Sort)，是一种计算机科学领域的较简单的排序算法。

它重复地走访过要排序的元素列，依次比较两个相邻的元素，如果顺序(如从大到小、首字母从Z到A)错误就把他们交换过来。走访元素的工作是重复地进行直到没有相邻元素需要交换，也就是说该元素列已经排序完成。

这个算法的名字由来是因为越小的元素会经由交换慢慢“浮”到数列的顶端(升序或降序排列)，就如同碳酸饮料中二氧化碳的气泡最终会上浮到顶端一样，故名“冒泡排序”。

解释来自百度百科

那么Excel中，如何进行编程排序

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).SelectEnd Sub

主要解释

① Sheets.Count：表示Excel工作簿中工作表的数量

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

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

这个是冒泡法中的核心，比较相邻两个工作表，把大的放在后面，小的放在前面

效果

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

你学会了嘛？