根据名称重新命名excel表

Question

说我有以下工作表名称：

  

测试，Test_Only，TS_051，TS_052，TS_053，TS_054等

并希望动态地重新命名带有数字和结尾的内容，例如：

  

测试，Test_Only，TS_60，TS_61，TS_62，TS_63

我希望手动重新命名工作表是一个选项，但我的文件有超过一千。还要注意，名称只是逐渐添加＆＃39; 1＆＃39;

Answer 1

只要你知道从哪里开始，并且你想要改变的那些之间没有其他表，这就可以工作。 （不是很难添加）

Sub tableNames()

Dim wsi As Worksheet

'Set the value to the id of first sheet you want to rename

i = 1

Do While i < ThisWorkbook.Worksheets.Count + 1

Set wsi = ThisWorkbook.Sheets(i)
'change this String if you want another name
wsi.Name = ("TS_" & i)

i = i + 1

Loop

End Sub