excel工作表批量改名

来源：百度知道 编辑：UC知道 时间：2024/05/10 05:17:33
一个工作簿中含多个工作表,sheet1 sheet2 ..... sheet50
有没有个办法把这个 sheet 一次删除掉?
一次改名成只剩下数字, 而不是全都删除了

这个只能用VBA来实现了。
Alt+F11，打开VBA编辑器，插入－模块，然后将以下代码粘贴到右边的大框中。

Sub 改工作表名称()
Dim L As Integer
For L = 1 To 50
Sheets(L).Name = L
Next L
End Sub

关闭VBA编辑器。然后工具－宏－宏，选中“改工作表名称”这个宏名，单击执行。

方括号的代码有点小问题，sheet的名字中的数字不一定是sheet在sheets对象中的序号哦，还是判断名字比较好。

选中sheet2按下shift键再点sheet50!右键\\\删除