Excel批量按A列单元格名称创建工作表！

Excel情报局

OFFICE爱好者大本营

用1%的Excel基础搞定99%的职场工作

做一个有价值感的Excel公众号

Excel是门手艺 玩转需要勇气

每天带你玩转Excel

有温度的公众号

自我提升也是一种修养

数万Excel爱好者聚集地

2021年1月13日 周三

【Excel情报局｜文案回收铺子】

法国作家罗曼·罗兰曾说

一个人如能让自己经常维持

像孩子一般纯洁的心灵

用乐观的心情做事

用善良的心肠待人

光明坦白

他的一生一定比别人快乐得多

今天群里的一位小伙伴问到了这样一个问题：

如何根据单元格里面的一列内容，批量新建以这些单元格为名称的工作表呢？

现在呢，我们不仅要解决这个问题，还要同时告诉大家，如何批量在新建的所有工作表中创建一个相同格式和内容的模板表格。

完成这个问题的思路需要2步完成：

①首先要批量命名工作表名称。

②然后要批量向全部工作表复制粘贴相同的表格或者内容。

第1步：

批量命名工作表及名称。

如下图所示，A2:A4单元格列出了需要批量建立的工作表的名称，我们可以用一段简单的VBA代码，瞬间将这些单元格内的名称批量生成对应工作表名称的工作表，简单高效！

VBA代码并不需要我们初学代码者理解其深意，我们只需复制粘贴现成的通用代码，运行代码即可实现最终结果。

注：该段代码是根据当前工作表A列的数据批量建立工作表。 

VBA根据A列数据批量建立工作表的代码如下：

Sub NewSht()

Dim Sht As Worksheet, Rng As Range

Dim Sn, t$

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

On Error Resume Next

For Each Sn In Rng

t = Sn

Set Sht = Sheets(t)

If Err Then

Worksheets.Add , Sheets(Sheets.Count)

ActiveSheet.Name = t

Err.Clear

End If

Next

Rng.Parent.Activate

End Sub

右击工作表，点击查看代码，打开VBA界面，或者按快捷键ALT+F11键，打开VBA界面，复制粘贴代码，点击运行，关闭VBA窗口，返回Excel主界面发现操作成功！

第2步：

①复制需要粘贴的表格或者内容。

②按快捷键Shift键，批量连续选中需要粘贴表格的目标工作表。

③选中工作完成后，点击任意选中的工作表的任意单元格，右击粘贴即可。

Excel操作技巧精华视频190讲

免费打包下载方式

本公众号后台聊天窗口

回复关键字

“视频190讲”

获取下载地址链接及提取码

阅读完文章之后，希望大家在文末帮我点亮“在看”按钮，坚持的路上需要有你们的鼓励

如何在【Excel情报局】微信公众号内通过输入关键字搜索历史文章？

常识普及：

①第1步：进入【Excel情报局】微信公众号，点击底部菜单“情报.xls”

②第2步：点击“历史文章”按钮

③第3步：顶部搜索框内输入你要搜索的关键字，比如“合并”，点击确定，进行搜索。参照下面视频操作：

相互尊重，抱团成长。

Excel2016版安装包(含永久激活工具) 百度网盘

下载链接：
https://pan.baidu.com/s/11eE-oGEyHojXHoYSuDbBAA