接上个代码,"目录"第二列中输入要更改的新名称
插入"模块2”--输入下列代码-运行
Public Sub 更改名称()
For i = 2 To Worksheets.Count
Worksheets(i).Name = Worksheets("目录").Cells(i, 2).Value
Next
End Sub
接上个代码,"目录"第二列中输入要更改的新名称
插入"模块2”--输入下列代码-运行
Public Sub 更改名称()
For i = 2 To Worksheets.Count
Worksheets(i).Name = Worksheets("目录").Cells(i, 2).Value
Next
End Sub