常用VBA小代碼：一鍵對工作表排序

比如說，有一個工作薄，有十幾張工作表，現在要重新設置工作表排放順序，能不能快速處理？

當然是可以的。

為了方便大家理解和靈活使用VBA小代碼，我們同上期一樣，依然採用多步走的方式。

使用以下代碼將工作簿現有的工作表名稱提取到表格的A列。

Sub ml()

Dim sht As Worksheet, k&

[a:a] = ""

清空A列數據

[a1] = "目錄"

k = 1

For Each sht In Worksheets

遍歷工作簿中每個工作表

k = k + 1

累加K值

Cells(k, 1) = sht.Name

將工作表名稱依次放入表格A列

Next

End Sub

對已提取的A列工作表名稱排序。

利用EXCEL自帶的排序功能，可以很快捷的完成對A列工作表名稱排序的操作。

此時，我們只需要讓工作表按我們A列排列好的順序重新排排坐就好了。代碼如下：

Sub sortsheet()

Dim sht As Worksheet, shtname$, i&

Set sht = ActiveSheet

設置變數sht為當前激活的工作表，即目錄表。

For i = 2 To sht.Cells(Rows.Count, 1).End(3).Row

遍歷工作表A列的數據，A1以外。

shtname = sht.Cells(i, 1)

將A列值賦值為字元串變數shtname

Sheets(shtname).Move after:=Sheets(i- 1)

將工作表依次移動

Next

sht.Activate

重新激活目錄表

End Sub

OK，搞定啦！

學會代碼一兩行，不用老王來幫忙，是不是很簡單呢？您也快動手試一下吧~~

圖文作者：看見星光

VBA編程學習與實踐

易學寶微視頻教程，1290個Office技巧精粹，每個技巧都與實際工作密切相關。輕鬆學習技巧，練就職場達人。淘寶搜索關鍵字：ExcelHome易學寶

本公眾號回復關鍵字：大禮包立刻免費獲取50集精選易學寶教程

喜歡這篇文章嗎？立刻分享出去讓更多人知道吧！