1、首先，打开一个Excel数据表，如下图示。
2、按下Alt+F11，在打开的新界面左上角，双击对应的工作表，出现代码编辑区，如下图所示。
3、输入代码：Sub 鱼木混猪()For i = 1 To 5Sheets(坡纠课柩i).Name = Range("蚱澄堆别B" & i + 1)NextEnd Sub代码作用是将前5个工作表，依次改名为B2:B6单元格内容，如下图所示。
4、鼠标点击代码中任意位置，点击“运行子程序”按钮，如下图所示。
5、返回Excel，就能看到工作表名字改成了相应单元格中的内容，如下图所示。
