如果你有Excel任何问题,请留言或者加我们qq 24119011 让我们知道。谢谢

excel表格的基本操作-excel教程网

当前位置: 主页 > 高级教程 > vba >

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

时间:2017-08-15 17:01来源:excel 作者:huang 点击:


点击 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 界面,在控件下面选择按钮控件





指定宏







点击 其他 单元格 使得 按钮处于可用状态 ,在点击按钮,就可以批量重命名 表名 了。


(责任编辑:huang)
顶一下
(0)
0%
踩一下
(0)
0%

------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
验证码: 点击我更换图片