高考问答美国ko粉红佳人烟油:怎样给EXCEL表中的SHEET排序
来源：百度文库 编辑：高考问答 时间：2024/05/08 05:56:40
SHEET名 A001 A025 A036 A021 顺序很乱，希望升序
总共400个SHEET。大家多多帮忙啊
总共400个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
我试过了楼上的办法,不能排序
只能用手拖到指定的位置上
没办法了
我可不是电脑行家,不知道啊