[已解决]如何对工作表标签进行排序

zjwsm

    我有一个工作簿，内有几十张工作表，这此工作表标签不规范，我想对他进行排序。但是在排序时第一张目录不排序，对目录后面的工作表进行排序。

最佳答案

月排行榜 / 总排行榜

Zipall

2012-2-13 21:02

zjwsm 发表于 2012-2-13 19:53
附：表格附件
要求对目录后的工作表名称进行排序。

Sub test()
    '获取工作表名称
    Dim n()
    t = Sheets.Count
    ReDim n(2 To t)
    For i = 2 To t
        n(i) = Sheets(i).Name
    Next


    '冒泡法对数组排序
    For i = 2 To t - 1
        For j = i + 1 To t
            If n(i) > n(j) Then
                s = n(i)
                n(i) = n(j)
                n(j) = s
            End If
        Next
    Next

    '移动工作表
    For i = 2 To t
        Sheets(n(i)).Move Sheets(i)
    Next
End Sub

跳转到最佳答案楼层

zjcat35

只要额规律性就好，你上传个附件

zjwsm

附：表格附件
要求对目录后的工作表名称进行排序。

Zipall

zjwsm 发表于 2012-2-13 19:53
附：表格附件
要求对目录后的工作表名称进行排序。

Sub test()
    '获取工作表名称
    Dim n()
    t = Sheets.Count
    ReDim n(2 To t)
    For i = 2 To t
        n(i) = Sheets(i).Name
    Next


    '冒泡法对数组排序
    For i = 2 To t - 1
        For j = i + 1 To t
            If n(i) > n(j) Then
                s = n(i)
                n(i) = n(j)
                n(j) = s
            End If
        Next
    Next

    '移动工作表
    For i = 2 To t
        Sheets(n(i)).Move Sheets(i)
    Next
End Sub

shi1628

收了，学习。。。。