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