EXCEL表格中怎样批量才能重命名工作表命名
左键点击 Thisworkbook 把函数代码复制需要操作的表格中 ： Sub 重命名 （ ） Dim i For i = 1 To Sheets . (计数表/不需要写)Count Sheets （ i ） . Name = Sheets （ 1 ） . (细胞/不需要写)Cells （ i , 1 ） (下一个结束节)Next End Sub 返回 Excel 操作页面 ， 在按钮控件指定“宏”时 点击 “其他” 单元格 就会使得 按钮处有变动
点击 Thisworkbook
复制 代码 ：
Sub 重命名（）
Dim i＆
For i = 1 To Sheets.Count
Sheets（ i ） . Name = Sheets （ 1 ） . Cells （ i , 1 ）
Next
End Sub
等返回 Excel表格中的界面，表格中函数在控件下可选择按钮函数控件
鼠标点击 其他的单元格使按钮变成可用状态 ，在按钮点击时，表格已经就处于批量重命名表格名称了。
