需求：
有很多很多工作表
格式差不多
订单、送货单、简历模板之类的
需要把所有的表名改为对应表中B1单元格的内容
解析：
表少还好
一个一个改了就好
但是一旦多起来
复制-重命名
复制-重命名
...
好像都没心情没毅力去干这事
有点傻乎乎的感觉
有的人说
用函数公式
这个说实话
有点难为它了
解决方案：
这个都是重复批量性的操作
用VBA来解决最合适
操作步骤：
1、按<ALT+F11>组合键打开VBE
2、单击【插入】-【模块】
3、双击【模块1】
4、复制代码<CTRL+C>
5、粘贴代码<CTRL+V>
6、运行代码<F5>
代码如下：
'把工作表名指定为B1单元格
Sub test001()
Dim Sh As Worksheet, nStr As String
For Each Sh In Worksheets
nStr = Sh.Range("B1")
Sh.Name = nStr
Next
End Sub