怎样给EXCEL表中的SHEET排序

发布网友

我来回答

共4个回答

热心网友

先选好区域，在“数据-排序”里选定关键字，确定就可以了

热心网友

再任意一个工作表名称点右键，点查看源代码，把下面代码复制过去执行

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

热心网友

我试过了楼上的办法,不能排序
只能用手拖到指定的位置上
没办法了

热心网友

我可不是电脑行家,不知道啊