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

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

按住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