方法/步骤 首先，我们来准备新的名字，对应相应的工作表，从A2单元格开始，A1存放标题字段。 新名字全部准备好后，然后任意工作表标签右击，点击查看代码，或者ALT+F 11快捷键，调出VBE对话框。 进入VBE对话框后，右击thisworkbook,选择插入，然

平时使用Excel时一个一个地重命名工作表，是不是觉得麻烦，没有效率。今天就给大家分享excel如何快速批量重命名多个工作表。

材料/工具

电脑Excel

方法/步骤 首先，我们来准备新的名字，对应相应的工作表，从A2单元格开始，A1存放标题字段。 新名字全部准备好后，然后任意工作表标签右击，点击查看代码，或者ALT+F 11快捷键，调出VBE对话框。 进入VBE对话框后，右击thisworkbook,选择插入，然

方法

双击打开安装在桌面的Excel。

这个有两个办法，一个是使用vba，另外一个是使用 windows下的 cmd下的bat文件。 后者比较简单(需要一定的dos知识)。 1、 使用cmd 进入命令行模式； 2、使用 cd 命令切换到存放excel工作簿的文件夹，参考 dir *.* >1.txt 获得所有文件名称的列表

进入主页，在A1-A6依次输入1月销售表、2月销售表、3月销售表、4月销售表、5月销售表、6月销售表。

代码如下： Sub 宏1() for i=2 to Sheets.Count Sheets(i)=trim(i-1) next iEnd Sub

点击“插入工作表”。

用ACDsee重命名也是比较方便的，先打开ACDsee软件，找到并打开要重命名文件的文件夹，这时该文件夹内所有文件在中间的框中显示，用鼠标选中要重命名的文件－打开菜单栏上的“工具”－“批量重命名”，可以点寻使用数字替换”或“使用字母替换”，“开始

目标是把Sheet1-Sheet6变成“1月销售表-6月销售表”。

既然本题中着重提出“快速”，对于手动的慢速更改就不再赘述， 最快速的方法唯VBA，可将需要更改的名字按照顺序写在一列单元格里，下述代码以sheet1的A列为例。 Sub tst()Dim i%For i = 1 To Sheets.CountSheets(i).Name = Sheet1.Cells(i, 1)Next

按下ALT+F11，打开VBA窗口。

新建一个excel文件，按alt+F11，在左边点右键，插入，模块，双击模块，粘贴下面的代码。 然后按F5，运行新建宏。输入张数， 很快就建立完成了。 Sub 新建() Dim arr, sh As Worksheet shtNum = Application.InputBox("请输入复制工作表的张数",

单击“插入——模块”。

Sub t() Set nameRange = Sheets("sheet1").UsedRange For Each r In nameRange.Rows Debug.Print r.Address oldName = r.Cells(1) newName = r.Cells(2) Rename oldName, newName Next End Sub Sub Rename(ByVal oldName As String, ByVal newN

调出“代码”输入框，输入如下代码：

EXCEL中如何批量命名工作表的方法及具体操作步骤如下，以wps2019中的EXCEL为例做演示。 1、在电脑的wps中找到需要批量命名的表格文件并将其打开，如下图所示，进入下一步。 2、在这里以用人名为例做演示，将需要批量命名的内容选中后，点进文件

Sub 按A列数据修改表名称()On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息Application.Calculation = xlCalculationManual '手动重算Dim i%For i = 1 To Sheets.CountSheets(i).Name = Cells(i, 1).TextNextOn Error GoTo 0'恢复正常的错误提示Application.Calculation = xlCalculationAutomatic'自动重算End Sub

EXCEL中如何批量重命名工作表名称_百度经验 http://jingyan.baidu.com/article/e9fb46e176af787521f766dd.html

点击“运行-运行子过程/用户窗体”。

这样就可以： SUB XXX() DIM I FOR I=1 TO SHEETS.COUNT SHEETS(I).NAME=I NEXT I END SUB

回到Excel，会发现成功批量重命名工作表。

一楼的稍有点小问题，现修改如下： Sub 命名 Dim i For i = 2 To 11 Sheets(i).name = Sheets(1).Cells(i-1, 1) Next i End Sub 方法如下： ALT F11 插入-模块，然后将以上代码粘贴，运行以上宏，或者在工作中做个按钮。不懂的话再留言。另外需

扩展阅读，以下内容您可能还感兴趣。

如何excel 批量修改sheet名称

方法/步骤

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

新名字全部准备好后，然后任意zd工作表标签右击，点击查看代码，或者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

也可以记住，下次直接粘贴即可，代码通用权。

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

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

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

excel工作表批量改名

这个只能用来VBA来实现了。

Alt+F11，打开VBA编辑器，插入－模块，然后将以下源代百码粘贴到右边的大框中。

Sub 改工作表名称()

Dim L As Integer

For L = 1 To 50

Sheets(L).Name = L

Next L

End Sub

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

怎么批量修改excel工作表名

方法/步骤

首先，我们来准备新的名字，对应相应的工作表知，从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

也可道以记住，下次直接粘贴即可，代码通用。

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

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

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

8

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

Excel 怎么样实现批量重命名工作薄

这个有两个办法，一个是使用vba，另外一个是使用 windows下的 cmd下的bat文件。

后者比较简单百(需要一定的dos知识度)。

1、 使用cmd 进入命令行模式；

2、使问用 cd 命令切换到存放excel工作簿的文件夹，参考

dir *.* >1.txt

获得所有文件名称答的列表文件 1.txt

3、使用excel打开 1.txt文件 （复制粘贴也可以）

稍微处理下就能获得 相应的 文件列表

4、在第一列输入 ren 然后下拉回与第二列等行

在第二列将步骤3中获得的名称粘贴进去

在第三列放置答新文件名

5、将第四步获得的内容 复制 粘贴到一个打开的txt 文件中，然后另存为 xx.bat

6、将xx.bat文件放置在 excel工作簿所在目录并运行它即可。

如何用VBA给excel工作表批量重命名？

代码如下：

    for i=2 to Sheets.Count

        Sheets(i)=trim(i-1)

    next i

End Sub追问试了，貌似没有用呢？是我操作不对吗？代码保存之后，工作表名字并没有改变。