生产搬运分享Excel基础技能
用1%的Excel基础搞定99%的日常工作
做一个有文艺范的Excel公众号
Excel是门手艺 玩转需要勇气
Excel情报局推荐音乐,阅读文章更轻松
使用Excel时,如果Excel工作簿表格里面很多的Sheet工作表,当这些Sheet工作表名称是无序的时候,想按Sheet名称规律来排下序,但是Excel本身又不提供按Sheet排序的功能选项,这里向大家介绍一个用复制一段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
联系客服