Question

如何批量修改wps表格sheet表名称

Answer 1

1、首先我们打开一个表格，点击右上角的智能工具箱。

2、接着我们点击工作表，在下拉列表中选择工作表改名。

3、然后有三种选择，我们可以选择添加删除和替换，首先我们选择添加，输入我们想要添加的内容，然后点击确定。

4、可以在下方的表单名字上看到，每一个都添加了我们所设定的内容，我们也可以选择删除，输入想要删除的字符，然后点击确定。

5、可以看到下方我们所想要删除的字符就已经删除了，我们还可以选择替换，输入我们想要替换的内容，接着输入想要替换的结果，然后点击确定。

6、最后就可以看到我们想要替换的字符，就已经成功替换了，非常的方便快捷。

Answer 2

首先，我们来准备新的名字，对应相应的工作表，从A2单元格开始，A1存放标题字段。

新名字全部准备好后，然后任意工作表标签右击，点击查看代码，或者ALT+F 11快捷键，调出VBE对话框。

进入VBE对话框后，右击thisworkbook,选择插入，然后选择模块。

双击模块，进入代码输入框输入一下代码
Sub 重命名()
Dim i&
For i = 2 To Sheets.Count
Sheets(i).Name = Sheets(1).Cells(i, 1)
Next
End Sub
也可以记住，下次直接粘贴即可，代码通用。

然后点击开发工具选项卡，在控件下面选择按钮控件（开发工具选项卡一般默认是没有的，具体可参考我前面的经验，有具体介绍如何调出）

在空白处，拖动鼠标，画出一个大小适合的按钮，然后右击选择制定宏。

选择重命名，然后点击确定。

最后点击按钮，看看效果吧，已经全部重命名。OK！小伙伴们，你们学会了吗？

Answer 3

首先，我们来准备新的名字，对应相应的工作表，从A2单元格开始，A1存放标题字段。
新名字全部准备好后，然后任意工作表标签右击，点击查看代码，或者ALT+F
11快捷键，调出VBE对话框。
进入VBE对话框后，右击thisworkbook,选择插入，然后选择模块。
双击模块，进入代码输入框输入一下代码
Sub
重命名()
Dim
i&
For
i
=
2
To
Sheets.Count
Sheets(i).Name
=
Sheets(1).Cells(i,
1)
Next
End
Sub
也可以记住，下次直接粘贴即可，代码通用。
然后点击开发工具选项卡，在控件下面选择按钮控件（开发工具选项卡一般默认是没有的，具体可参考我前面的经验，有具体介绍如何调出）
在空白处，拖动鼠标，画出一个大小适合的按钮，然后右击选择制定宏。
选择重命名，然后点击确定。
最后点击按钮，看看效果吧，已经全部重命名。OK！小伙伴们，你们学会了吗？

Answer 4