代码3：批量重命名工作表并排序

Public Sub ml()
'获取合工作表的名称
  For i = 1 To Worksheets.Count
Sheets("目录").Cells(i, 1).Value = Worksheets(i).Name

    Next
End Sub

Public Sub mll()
  For i = 1 To Worksheets.Count
'更改名称
 Worksheets(i).Name = Worksheets("目录").Cells(i, 2).Value
    Next
End Sub


Sub Sortsheet()
    Dim Sht As Worksheet, Shtname$, i&
    Set Sht = ActiveSheet
    '设置变量sht为当前激活的工作表，即目录表。
    For i = 2 To Sht.Cells(Rows.Count, 1).End(xlUp).Row
   '遍历工作表A列的数据，A1以外。
        Shtname = Sht.Cells(i, 1).Value
       '将A列值赋值为字符串变量shtname
        Worksheets(Shtname).Move after:=Worksheets(i - 1)
       '将工作表依次移动
    Next
    Sht.Activate
   '重新激活目录表