Excel技巧之如何批量修改一个工作簿中的所有工作表名字

1. 需求分析：

效果如下图：将本工作簿的所有工作表命名为测试-1，测试-2...：

2. 方法：VBA法；

3. 代码：

Sub RenameSheetsToTest()

Dim ws As Worksheet

Dim newName As String

Dim i As Integer

i = 1 ' 起始序号

Application.DisplayAlerts = False ' 关闭Excel的警告信息

For Each ws In ThisWorkbook.Worksheets

newName = "测试-" & i ' 设置新的工作表名称

ws.Name = newName ' 重命名工作表

i = i + 1 ' 序号递增

Next ws

Application.DisplayAlerts = True ' 恢复Excel的警告信息

End Sub