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