将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
页:
[1]