 点击 Thisworkbook  复制 代码 ：
Sub 重命名()
Dim i&
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(1).Cells(i, 1)
Next
End Sub
 返回 Excel 界面，在控件下面选择按钮控件  指定宏   点击 其他 单元格 使得 按钮处于可用状态 ，在点击按钮，就可以批量重命名 表名 了。 
(责任编辑：huang) |
| 点击 Thisworkbook 复制 代码 ：
Sub 重命名()
Dim i&
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(1).Cells(i, 1)
Next
End Sub
返回 Excel 界面，在控件下面选择按钮控件 指定宏 点击 其他 单元格 使得 按钮处于可用状态 ，在点击按钮，就可以批量重命名 表名 了。
(责任编辑：huang) |
BeforeDoubleClick， ：在本工作表鼠标双击 之前 ，将触发 代码程序...