将EXCEL工作簿中的工作表按名称排序的方法 - G.国王族官方论坛-广州游戏资讯网

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

G.国王族 官方论坛-广州游戏资讯网

G.国王族官方论坛-广州游戏资讯网