你我也许在工作中都有遇到过相同的一个问题：一个工作簿有几十个、甚至更多工作表，如果这些工作表的顺序不太符合要求，那你是不是得重新排序一下呢，那你又是怎样去处理的呢？其实不难，有这样一个高效便捷的方法，下面就由我来具体操作示范一下吧！

具体操作方法

第一步：新建工作表。新建一张空白工作表，将其命名为目录。

第二步：调出VBA编辑窗口。选择“目录”工作表名称，右击，选择查看代码（或直接按组合键ALT+F11)；

第三步：编写提取名称目录代码。双击Thisworkbook，打开代码编辑器，复制下面代码到代码编辑窗口，然后回到之前的Excel界面。代码如下：

Sub ml()

Dim sht As Worksheet, k&

[a:a] = ""

'清空A列数据

[a1] = "目录"

k = 1

For Each sht In Worksheets

'遍历工作簿中每个工作表

k = k + 1

'累加K值

Cells(k, 1) = sht.Name

'将工作表名称依次放入表格A列

Next

End Sub

第四步：插入控件。点击开发工具（如图1），选择插入一个控件，插入控件后会自动跳出指定宏窗口，选择Thisworkbook.ml，点击确定（如图2）；

第五步：重命名控件和提取目录。重命名控件为提取工作表目录，重命名后双击，即可获取工作表目录，目录会呈现在A列，如下图所示；

第六步：排序工作表名称。排序工作表我们可以筛选排序或者手动排序。筛选排序，点击筛选按钮，点击升序或者降序：手动排序，用鼠标逐个调整。

第七步：编写排序代码。打开之前代码编辑窗口，复制粘贴下面代码。代码如下：

Sub sortsheet()

Dim sht As Worksheet, shtname$, i&

Set sht = ActiveSheet

'设置变量sht为当前激活的工作表，即目录表。

For i = 2 To sht.Cells(Rows.Count, 1).End(3).Row

'遍历工作表A列的数据，A1以外。

shtname = sht.Cells(i, 1)

'将A列值赋值为字符串变量shtname

Sheets(shtname).Move after:=Sheets(i - 1)

'将工作表依次移动

Next

sht.Activate

'重新激活目录表

End Sub

第八步：插入控件。再插入和之前一样的控件，将其命名为批量排序工作表，插入控件后会自动跳出指定宏窗口，选择Thisworkbook.sortsheet，点击确定；

第九步：排序工作表。单击批量排序工作表控件，排序结束（如下图）；

到这里，排序就结束了，自我感觉操作简单，不管你有没有VBA基础其实并不重要，赶快是试一下吧，如有不懂之处，欢迎留言讨论！

期待你的关注和转发分享，更多精彩内容在持续更新中.............

往期精彩文章推荐：

VLOOKUOP函数查找多值并返回对应整行值，一分钟搞定N张工作表！Excel中不会也得会的技能：工作表的批量调整和批量打印！！

今天网络推广培训小编要说的就是批量新建工作表，大家可以跟着小编来操作一下。 首先我们需要打开excel软件，在工作表中输入批量新建工作表的名称，如图所示：

数据输入完成后，我们就可以选中所有数据，单击“插入”选项卡，选择“数据透视表”按钮。

我们在弹出的对话框中选择“现有工作表”，位置随意选择即可。

将筛选字段放置于“报表筛选”列表框中。

在“数据透视表工具”下选择“选项”选项卡，在“数据透视表”中选择“显示报表筛选页”按钮。

在弹出得对话框中点击“确定”按钮。

因为是数据透视表筛选所得，所以我们需要清除全部内容，将光标放置于工作表标签上右键选择“选定全部工作表”选项。

快捷键CTRL+A,，全选所有内容，在“开始”选项卡下，选择“全部清除”选项。

平时都和大家分享了很多关于Excel方面的使用技巧，之前有个群友问到一个这样的问题！

主要是想实现自动获取工作表名，而且要链接到对应的工作表，之前有和大家分享过超链接函数HYPERLINK。但是用函数的话是不能满足这个群友问的问题，只能一个个去链接操作，那么今天关于这个问题为大家分享一个使用技巧吧！

第一步：我们先在Excel工作薄的前面新建一个工作表，命名为Excel技巧目录

这个工作薄里面包含了很多张工作表，

第二步：定义名称

把光标放在对应B1单元格，然后选择公式下方的定义名称。在引用位置书写如下的函数，

=INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW())然后点击确定即可。

第三步：然后在B1单元格编辑函数

在B1单元格中输入这样的函数：=IFERROR(HYPERLINK(索引目录&"!A1",MID(索引目录,FIND("]",索引目录)+1,99)),"")，然后往下填充就可以获得相应的工作表标题了！

而且点击后也能实现对应工作表的链接！

最后可以按照直接的想法去美化设置一下，一个完美的Excel目录就完成了！

希望这篇文章能帮助到大家！

作者：小菜，一个热爱学习的人，对Excel情有独钟的人，一个善于终结分享的人……

如果你是新朋友，扫码关注下方二维码，便每天可以和小菜一起学习，一起提升技能！当然大家也可以关注技巧分享，学习更多办公技巧哦！

每天一起学习，一起进步。

喜欢、有用，就点点关注！

需要将现有的工作表名称修正了新的工作表名称。需要把A列表名中的“A”；修正为C列中的“名单 ”。看下面的截图：

解决方案

将“1批量修正工作表名称 _914.xlsx”后缀名修改为“.rar”，即“1批量修正工作表名称 _914.rar”。此时，将Excel文件的扩展名修改为.rar时，会弹出“重命名”警告对话框；点“是”按钮。

看录屏动画步骤：

“动画看完了，是不是还感觉一脸懵逼的样子！”

会ribbon开发的人略过。

不着急，还是为入门学excel的朋友，简单的说一下：一个excel2010文件实际上就是一个压缩文件（从2007之后的版本就是了）。

图中的这个压缩包中的文件，基本上都是由XML文件所组成。

_rels文件夹

docProps文件夹包含各种XML文件，描述文件属性和应用程序设置。

xl文件夹包含文件的核心部分。如果工作簿中含有VBA代码，那么文件夹中还有以bin为扩展名的二进制文件。“大家可以测试下，比如修改批注内容，就是在“comments1.xml文件”下修改的”

Content_Types.xml列出了包括在Excel文件程序包中其它部件的内容类型。

明天准时来一篇Excel在职场中的案例，愿您工作愉快。

Excel办公，让职场更轻松！

写在前面:

如何按指定名称批量建立工作表？如果你的Excel基础技巧很扎实的话，你可能会立刻想到数据透视表 ，可以完成批量建立工作表。

数据透视表的做法是使用数据透视表的分页帅选状态完成的。

但是如果现在需要我们用Excel VBA解决这个问题，你会吗？

所以我们今天分享如何批量建立指定名字的工作表，其实VBA代码写起来很简单。

增加工作表的VBA关键代码是Worksheets.Add，这个代码才是主要的实现功能者。

话不多说， 如下图所示，A列是需要建立工作表的名称。

我们先来看看动画实现的效果：

附上Excel VBA代码，您复制到VBE窗口的模组即可使用。

Sub NewSht()

Dim Sht As Worksheet, Rng As Range

Dim Sn, t$

Set Rng = Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)

'将工作表名称所在的单元格区域赋值给变量Rng，单元格A1是标题，不读入

On Error Resume Next

'当代码出错时继续运行

For Each Sn In Rng

'遍历Rng(工作表名称集合）

t = Sn

Set Sht = Sheets(t)

'当工作簿不存在工作表Sheets(t)时，这句代码会出错，然后……

If Err Then

'如果代码出错，说明不存在工作表Sheets(t)，则新建工作表

Worksheets.Add , Sheets(Sheets.Count)

'新建一个工作表，位置放在所有已存在工作表的后面

ActiveSheet.Name = t

'新建的工作表必然是活动工作表，为之命名

Err.Clear

'清除错误状态

End If

Next

Rng.Parent.Activate

'重新激活名称数据所在的工作表

End Sub

该代码是根据当前工作表A列的值批量自动建立工作表，是不是非常的简单。

写在结尾：

我们学习在于点滴积累之间，循序慢进，选对了方式，水滴石穿，相反如果没有好的方式，会事半功倍。

希望以上对你有所帮助，谢谢支持！

PS:学习的苦难需要我们主动面对,生活的苦难你躺着它自己主动就过来啦!与君共勉之!!!

以上就是今天要和大家分享的技巧，希望对大家有所帮助，祝各位一天好心情！

唯有不断学习，才能不被淘汰！

Excel中每一个方法都有特定的用途，不是他们没有用处，只是你不了解或者暂时用不着，建议你收藏起来，万一哪天用着呢？

工作表创建大家应该都不陌生，可能绝大多数的小伙伴会一张一张建立工作表。

倘若我们要快速建立50甚至上100张工作表怎么办呢？

方案一：自定义工作表张数

具体操作步骤：点击文件，点击选项，然后设置工作表包含数量。

如果你要打开这个工作簿有20张，你只需要填写数字20即可。

方案二：通过数据透视表显示报表筛选页的方法

具体操作步骤：

①先把标题和表名称罗列出来，比如我现在要12个月的报表。

②选中标题和表名称，然后点击插入选项卡，建立数据透视表。

③把字段名称退拽至报表筛选区间

④在数据透视表工具下，选项里面选择报表筛选页。

⑤点击确定，然后就会发现神奇的事情了。

⑥清除内容，右击选定全部工作表，然后Ctrl+A选定工作表所有内容，然后点击开始选项卡下方的编辑组里面的清除，点击全部清除。

--------------------------------------------------------------

每日互动

①你之前用过这样的操作吗？

②目前有木有什么工作问题想解决吗？可以留言，老师免费为你解答哦！

转载自百家号作者：教育视野

工作中常常会遇到一个工作簿中有很多的工作表，如果要求改每个工作表名称的话将是一件非常耗时的事情，你需要一个一个点击去重命名，输入新名称，遇到这样的问题大家常常是不知所措。今天由我来给大家分享一种快速高效的批量命名工作表的方法。

具体操作步骤

第一步：新建工作表。打开需要重命名工作表名称的工作簿，在其所有工作表最前mai面新建一张空白空白工作表，将其命名为表格批量重命名。

第二步：查看VBA代码。 用鼠标右键单击“表格批量重命名”工作表名称，在弹出的菜单中选择“查看代码”，之后就会打开代码编辑器，也可直接按下组合键Alt+F11来打开代码编辑窗口。

第三步：填写提取工作表名称代码和运行代码。在打开的VB代码编辑窗口中，选择插入的模块，把下面的代码复制粘贴到模块中，再点击开始运行代码，然后最小化代码窗口。

Public Sub 获取各工作表的名称()

For i = 1 To Worksheets.Count

Sheets("工作表批量重命名s(i, 1).Value = Worksheets(i).Name

Next

End Sub

第四步：提取工作表名称。运行代码后，就会发现工作表批量重命名工作表中会提取出所有工作表的名称（如下图）；

第五步：输入修改后的名称。在B列对应输入修改后的名称（如下图）；

第六步：填写重命名代码和运行代码。打开VB代码编辑窗口，再一次选择插入新的模块，把“更改名称”代码复制粘贴到模块中，再点击开始运行代码，然后最小化代码窗口。

Public Sub 更改名称()

For i = 2 To Worksheets.Count

Worksheets(i).Name = Worksheets("工作表批量重命名").Cells(i, 2).Value

Next

End Sub

第七步，表格批量重命名。点击运行后机会发现已将工作表名称重名命名为B列名称（如下图）

工作表批量重命名到此就重命名结束了，在我看来这种方法还是蛮实用的，有次我重命名300多张工作表，几分钟就搞定了，我们只需复制代码，稍微修改一下就可以达到重命名的效果，要不赶快去试一下吧！

如有不懂之处，欢迎留言讨论！

期待你的关注和转发分享，更多精彩内容在持续更新中.............

往期精彩文章：

要想学好excel，这几个技巧不得不掌握！

Excel插件：快速制作属于自己的Excel插件，建立批量操作工具箱！

有的时候一个工作簿中有十多个工作表，想把格式或者数据进行批量处理，如果逐个修改，即便使用复制粘贴功能，依然很是浪费时间，很麻烦。其实，微软为我们提供了很简单的解决方法，那就是先选中多个目标工作表，再进行操作，就可以完成批量修改啦。今天来和小编一起来学习如何为多张工作表同时进行批量编辑吧。

一、选中多个工作表

如果是连续的工作表，则点击第一个目标工作表标签，按住【Shift】键，同时再点击末尾的目标工作表标签，这样就选中了区间所有的工作表。如果不是连续的工作表，则点击第一个工作表标签后，按住【Ctrl】键，依次点击目标工作表，这样就选中了不连续工作表。

二、批量编辑

完成工作表的选中后，在目前单元格中的任意操作都将运用到被选中的每一个工作表中。例如：（1）输入数据：当我在A1中输入数字1，则后面的所有表格中都将在单元格A1中完成数字1的输入。（2）格式设置：比如调整单元格A1中的数字大小、颜色、填充色等。（3）单元格设置：合并单元格、插入、删除、调整单元格大小等；（4）插入公式：自制公式、插入函数等。

PS：完成批量操作后，需要在任意工作表标签上单击鼠标右键，在弹出的列表中，点击【取消成组工作表】按钮，再次操作时就会只应用到当前工作表。

欢迎关注，以上。

部分同学有时会遇到这种问题——在空白的Excel表中一下子需要建立很多的工作表，最好是名称也能一下子记录好，而不是自己一个个去重命名。

有位同学说，老师，我这样重命名下来，累也累死了！

这个操作应该还是有部分同学知道并用过的——就是使用数据透视表来做！

插入——数据透视表

选中我们需要插入的工作表名称——勾选“现有工作表”——选中C1（当然其他的单元格也可以）

这是我们出来的透视表——勾选“带插入工作表名称”——拉到“筛选器”中——关闭

分析——选项——显示报表筛选项

确定

好了

咱们还是美化下，这样看的也清楚！（右键“工作表标签颜色”可以设置哦！）

今天的知识，你学会了吗？哪里不明白的请在讨论区提问哦！

更多Excel学习和问题交流请加群！558669700

当然你有更好的方法也可以在讨论区分享给我们

【剧透：下个知识点——批量设置工作表格式】

如何在Excel多个工作表中批量建立下拉菜单：看前面的文章哦！

在使用Excel表格过程中，我们会发现一个工作簿中可以包含多个工作表，仅03版就有能创建二百多个（具体数值是255），在往上的高版本更是可以创建数量惊人的工作表格，数量能够达到上万。对于如此多的工作表格，如何只是新建工作表，我们可以设置默认工作簿包含几个工作表设置来简单实现。但是如果需要对这么多的工作表标签指定命名，若我们还是用这种常规的命名方式（双击改名），那真是会把人的累的虚脱。今天本教程就教大家如何根据指定单元格内容，以工作表名方式批量创建工作表技巧。感兴趣的朋友，赶紧来看看吧！

1、首先是创建工作表名称：这个可以自己输入，也可以复制粘贴，也可以导入文本。不管你用什么方式创建，反正只要是合法字符的名称即可。教程以Excel为例，创建工作表的名称如下，A1单元格为创建表格标题，从A2到A20单元格均为需要创建工作表的名称。

2、代码汇编：在Excel界面按下组合键Alt+F11快速调出VBA窗口；在VBA界面中单击菜单栏插入，然后选择模块命令；此时会弹出一个模块窗口，在模块窗口复制粘贴以下代码（最好是将输入法切换至中文输入法模式下复制粘贴）：

Sub 批量生成指定名称工作表()

Dim i%, j%, k%

i = Application.CountA(Range("a2:a20"))

For j = 2 To i Step 1

Sheets.Add after:=Sheets(Sheets.Count)

k = Worksheets.Count

Sheets(k).Select

Sheets(k).Name = Sheets(1).Cells(j, 1).Value

Next

End Sub

3、结果显示：将鼠标光标定位在这段代码当中，然后按下F5键运行该段代码程序（或单击菜单栏中的运行，然后选择运行子程序命令，如上图所示）。待代码运行完毕，按下Alt+F11关闭VBA窗口，返回Excel工作界面查看结果，发现已经按照我们的要求批量生产了一堆工作表。