欢迎来到西部素材库
- 海量创意模板，满足您的需求
- 实用易修改，提升您的效率
- 高质量精品热点内容每日更新
- 专业客服接待，及时解决问题
点击 Thisworkbook
复制 代码 ：
Sub 重命名()
Dim i&
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(1).Cells(i, 1)
Next
End Sub
返回 Excel 界面，在控件下面选择按钮控件
指定宏
点击 其他 单元格 使得 按钮处于可用状态 ，在点击按钮，就可以批量重命名 表名 了。
