VBA如何修改工作表名？

1、首先，打开一个Excel数据表，如下图示。

2、按下Alt+F11，在打开的新界面左上角，双击对应的工作表，出现代码编辑区，如下图所示。

3、输入代码：

Sub 鱼木混猪()
For i = 1 To 5
Sheets(i).Name = Range("B" & i + 1)
Next
End Sub

4、鼠标点击代码中任意位置，点击“运行子程序”按钮，如下图所示。

5、返回Excel，就能看到工作表名字改成了相应单元格中的内容，如下图所示。

1、1.打开Excel；

2.按下Alt+F11，双击其中工作表；

3.在代码去输入代码，核心代码：

Sheets(i).Name = Range("B" & i + 1)

4.点击“运行子程序”；

5.工作表名就修改了。