【原】学习一下Excel工作簿内的Sheet表名称如何排序

Excel情报局

生产搬运分享Excel基础技能

Excel知识青年

用1%的Excel基础搞定99%的日常工作

做一个有文艺范的Excel公众号

Excel是门手艺 玩转需要勇气

 Excel情报局推荐音乐，阅读文章更轻松

使用Excel时，如果Excel工作簿表格里面很多的Sheet工作表，当这些Sheet工作表名称是无序的时候，想按Sheet名称规律来排下序，但是Excel本身又不提供按Sheet排序的功能选项，这里向大家介绍一个用复制一段VBA代码实现这个功能的快速方法。

如下面动图所示：

随便右击一个Sheet名称，点击查看代码，或者快捷键Alt+F11键，调出VBA界面，点击插入-模块-复制下方代码，点击运行即可。

代码如下，复制使用即可：

Sub Sort_Sheets()

 Dim sCount As Integer, I As Integer, R As Integer

 ReDim Na(0) As String

 sCount = Sheets.Count

 For I = 1 To sCount

 ReDim Preserve Na(I) As String

 Na(I) = Sheets(I).Name

 Next

 For I = 1 To sCount - 1

 For R = I + 1 To sCount

 If Na(R) < Na(I) Then

 JH = Na(I)

 Na(I) = Na(R)

 Na(R) = JH

 End If

 Next

 Next

 For I = 1 To sCount

 Sheets(Na(I)).Move After:=Sheets(I)

 Next

End Sub

视频演示：

隔三差五学个Excel小知识，忘记一天工作的烦恼，只要坚持，最后可能不会得到最好的结果，但一定不会收获最坏的结果。赖床舒服，但可能迟到；熬夜很爽，但伤身体。自律或许并不容易，但你越懒惰越放纵自己，就越可能错过美好的人和事。如果生活注定充满艰辛，那就学着做拯救自己的那个英雄。趁年轻不妥协，向前奔跑！从今天开始改变，对平庸生活奋力回击。

投稿&合作联系微信：972251234