案例：如下圖所示，一個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)

這個是冒泡法中的核心，比較相鄰兩個工作表，把大的放在后面，小的放在前面

效果

效果如下圖所示，當運行代碼后，可以發現工作表名稱進行了排序。

你學會了嘛？

總結

以上是生活随笔為你收集整理的java对两个表进行排序_Excel工作簿中多个worksheet工作表，如何对工作表进行排序？...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。