EXCEL表格中怎样批量才能重命名工作表命名-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表格中的界面，表格中函数在控件下可选择按钮函数控件

 

 

 

 

 

鼠标点击 其他的单元格使按钮变成可用状态 ，在按钮点击时，表格已经就处于批量重命名表格名称了。