案例：如下圖所示，一個(gè)Excel文件中，包含了多個(gè)工作表，有1-雷哥office，2-雷哥office......

但是，我們發(fā)現(xiàn)工作表的順序是比較混亂的，為了方便管理，如何對(duì)工作表進(jìn)行排序呢？

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

什么是冒泡排序法

提到冒泡排序法，部分同學(xué)可能會(huì)有點(diǎn)懵。那么，到底什么是冒泡排序法呢？

冒泡排序(Bubble Sort)，是一種計(jì)算機(jī)科學(xué)領(lǐng)域的較簡(jiǎn)單的排序算法。

它重復(fù)地走訪過要排序的元素列，依次比較兩個(gè)相鄰的元素，如果順序(如從大到小、首字母從Z到A)錯(cuò)誤就把他們交換過來。走訪元素的工作是重復(fù)地進(jìn)行直到?jīng)]有相鄰元素需要交換，也就是說該元素列已經(jīng)排序完成。

這個(gè)算法的名字由來是因?yàn)樵叫〉脑貢?huì)經(jīng)由交換慢慢“浮”到數(shù)列的頂端(升序或降序排列)，就如同碳酸飲料中二氧化碳的氣泡最終會(huì)上浮到頂端一樣，故名“冒泡排序”。

解釋來自百度百科

排序原理如圖所示

那么Excel中，如何進(jìn)行編程排序

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工作簿中工作表的數(shù)量

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

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

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

效果

效果如下圖所示，當(dāng)運(yùn)行代碼后，可以發(fā)現(xiàn)工作表名稱進(jìn)行了排序。

你學(xué)會(huì)了嘛？

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。