使用excel时,有时会碰到一个表格里面很多的sheet,比如sheet11,sheet23。。。
当这些sheet是无序的时候,查找一个sheet很疼,所有想按sheet来排序下,但是excel本身又不提供按sheet排序的方法,所有就上网找了下解决方法 ,发现得通过excel的VB编程模式,随便右击一个sheet名称,选择“查看代码”,在弹出的界面中加入以下代码:
- 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
然后执行代码,问题解决~~
联系客服