点击 Thisworkbook Ii0西部素材网
Ii0西部素材网
复制 代码 :Ii0西部素材网
Sub 重命名()Ii0西部素材网
Dim i&Ii0西部素材网
For i = 1 To Sheets.CountIi0西部素材网
Sheets(i).Name = Sheets(1).Cells(i, 1)Ii0西部素材网
NextIi0西部素材网
End SubIi0西部素材网
Ii0西部素材网
返回 Excel 界面,在控件下面选择按钮控件Ii0西部素材网
Ii0西部素材网
指定宏Ii0西部素材网
Ii0西部素材网
Ii0西部素材网
点击 其他 单元格 使得 按钮处于可用状态 ,在点击按钮,就可以批量重命名 表名 了。Ii0西部素材网
Ii0西部素材网