请问如何对工作表按照工作表名进行排序？

ketu

写得真是好啊！！！学习了！！！

虫子2007

q我也要学习……太厉害了……

zyg365

Sub Sorting()
Dim sCount As Integer, i As Integer, j As Integer
Application.ScreenUpdating = False
sCount = Worksheets.Count
If sCount = 1 Then Exit Sub
For i = 1 To sCount - 1
For j = i + 1 To sCount
If Worksheets(j).Name < Worksheets(i).Name Then
Worksheets(j).Move before:=Worksheets(i)
End If
Next j
Next i
End Sub

Sub SortSheet()
Dim WsCount As Integer
Dim WsArray() As String
Dim Ws As Worksheet
On Error Resume Next
WsCount = ActiveWorkbook.Worksheets.Count
ReDim WsArray(1 To WsCount)
If ActiveWorkbook.ProtectStructure Then
        MsgBox ActiveWorkbook.Name & " 被保护，不能进行排序，请解除保护后排序", _
           vbCritical, "不能排序工作表"
        Exit Sub
End If
For Each Ws In ActiveWorkbook.Worksheets
   t = t + 1
   WsArray(t) = Ws.Name
Next Ws
'对数组进行排序
For i = 1 To UBound(WsArray) - 1
   For j = i + 1 To UBound(WsArray)
         If WsArray(i) > WsArray(j) Then
              t = WsArray(i)
              WsArray(i) = WsArray(j)
              WsArray(j) = t
         End If
   Next j
Next i
'利用Move方法以及Sheets(i)移动工作表，按指定的顺序排列
For i = 1 To WsCount
   Worksheets(WsArray(i)).Move before:=Sheets(i)
Next i
End Sub

cn.roger

Stronger come from ExcelHome

lbl016

请问：如果是汉字表名代码又如何修改呢

chqrmfB

太太厉害了。

heruixiong

不知道你们有没有发现:
如果我的工作表有12个,运行以上程序,
那么得出的结果就是1,10,11,12,2,3,4,...9.
我想得到的结果是1,2,3,....11,12.
有没有办法解决?

qldd

这么历害，真要好好学习

cczjw

原帖由 heruixiong 于 2010-3-5 08:55 发表
不知道你们有没有发现:
如果我的工作表有12个,运行以上程序,
那么得出的结果就是1,10,11,12,2,3,4,...9.
我想得到的结果是1,2,3,....11,12.
有没有办法解决?

Sub SortWorksheets()  '工作表按表名的数值而非字符排序
    Dim N As Integer
    Dim i As Integer
    For i = 2 To Sheets.Count
        For j = i To Sheets.Count
                n1 = Worksheets(j).Name
                n2 = Worksheets(i).Name
                If Val(n1) < Val(n2) Then
                    Worksheets(j).Move Before:=Worksheets(i)
                End If
        Next j
    Next i

  ［主体引用网上的，具体出处忘了，我只变换了粗体部分使得按数值排序］

[ 本帖最后由 cczjw 于 2010-9-28 14:09 编辑 ]

ZDYCTD

老朽应属于EXCELHOME论坛四大才子之一。