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表格中的界面,表格中函数在控件下可选择按钮函数控件
鼠标点击 其他的单元格使按钮变成可用状态 ,在按钮点击时,表格已经就处于批量重命名表格名称了。