将ECEL工作簿中的工作表按名称排序.pdfVIP

将 EXCEL 工作簿中的工作表按名称排序！ 按住 ALT 依次按 F11,I,M. 粘贴下面代码后按 F5 即可完成工作表排序. Sub test() Dim s As Worksheet Dim n() As String t = 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 I Next Next For i = 1 To t Sheets(n(i)).Move Sheets(i) Next End Sub