EXCEL中如何批量重命名工作表名称

点击 Thisworkbook Cun西部素材网

Cun西部素材网

复制 代码 ：Cun西部素材网

Sub 重命名()Cun西部素材网

Dim i&Cun西部素材网

For i = 1 To Sheets.CountCun西部素材网

Sheets(i).Name = Sheets(1).Cells(i, 1)Cun西部素材网

NextCun西部素材网

End SubCun西部素材网

Cun西部素材网

返回 Excel 界面，在控件下面选择按钮控件Cun西部素材网

Cun西部素材网

指定宏Cun西部素材网

Cun西部素材网

Cun西部素材网

点击 其他 单元格 使得 按钮处于可用状态 ，在点击按钮，就可以批量重命名 表名 了。Cun西部素材网

Cun西部素材网