将EXCEL工作簿中的工作表按名称排序的方法

GZGame

按住ALT依次按F11,I,M.
粘贴下面代码后按F5即可完成工作表排序.


Sub test()
    Dim s As Worksheet
    Dim n() As String
    t = ThisWorkbook.Sheets.Count
    ReDim n(1 To t)
    For i = 1 To t
        n(i) = Sheets(i).Name
    Next
    For i = 1 To t - 1
        For j = i + 1 To t
            If n(i) > n(j) Then
                a = n(i)
                n(i) = n(j)
                n(j) = a
            End If
        Next
    Next
    For i = 1 To t
        Sheets(n(i)).Move Sheets(i)
    Next
End Sub