navicat 只对比一张表的数据_Excel VBA批量新建工作表（对比数据透视表的使用）...

在之前的一篇文章中，分享过用数据透视表的方法批量新建工作表。

https://zhuanlan.zhihu.com/p/115191339zhuanlan.zhihu.com

本次将用VBA的方式快速新建多张工作表并命名，基于上篇文章中对插入工作表和计算工作表数的分析。

https://zhuanlan.zhihu.com/p/335006699zhuanlan.zhihu.com

一、先来看一下如何在VBA中给工作表命名，用到的一个属性类型的动作就是Name。

1. 打开Visual Basic，添加一个新的模块和过程，称之为“命名工作表”。

Sub 命名工作表()End Sub

2. 添加命名工作表的代码，这里比如要修改Sheet1的名字为“表1”。

Sub 命名工作表()Sheet1.Name = "表1"End Sub

3. 执行以上代码后，在Excel中可以看到当前工作表的名称已经改变了。

二、新增多张工作表并为其命名

1. 打开Visual Basic，添加一个新的模块和过程，称之为“新建工作表”。

Sub 新建工作表()End Sub

2. 如之前的案例，创建2020年1至12月共12张工作表。这里在过程中添加一个for循环，让新增工作表的执行动作重复12次，即要新建12张工作表。

Sub 新建工作表()Dim i As IntegerFor i = 1 To 12NextEnd Sub

3. 写入新建工作表的代码。

Sub 新建工作表()Dim i As IntegerFor i = 1 To 12Sheets.Add after:=Sheets(Sheets.Count)Sheets(Sheets.Count).Name = "2020年" & i & "月"NextEnd Sub

4. 分析一下带Sheets的这一段代码。

1) Sheets.Add after:=Sheets(Sheets.Count)：每次在新增工作表时都在最后一张工作表的后面执行。

2) Sheets(Sheets.Count).Name = “2020年”& i & “月”：

这里的Sheets.Count返回的值和上一行代码中的不一样，上一行中返回的值是当前工作表总数，而这行返回的是新增工作表后的工作表总数，在此例中即为上一行的Sheets.Count+1；
.Name后面用“=”符号赋值，然后命名为如“2020年1月”、“2020年2月”等。

5. 执行以上代码后，即可在Excel文件中新增12张工作表。

相比之前用数据透视表的方法，VBA通过几行代码即可快速新建工作表，效率提高了很多。

参考视频：

知乎视频www.zhihu.com

navicat 只对比一张表的数据_Excel VBA批量新建工作表（对比数据透视表的使用）...相关推荐

利用VBA批量新建工作表以及重命名，删除除指定以外的工作表
以下是代码: Sub 批量新增工作表并命名()Dim n, i, x, y, rng As Rangen = Application.WorksheetFunction.CountA(Columns( ...
查询用户所有信息后只需要两个字段的信息_Excel VBA+ADO+SQL入门教程023：OpenSchema获取表信息...
点上方关注我们,每日1练,每天进步一点点 1. 我们在使用SQL语言对数据库数据进行查询之前,有时需要获取每张表的表名,甚至获取每张表每个字段的名称等:比如,当我们进行跨工作簿数据查询及汇总时,在不 ...
python数据可视化开发(2)：pandas读取Excel的数据格式处理（数据读取、指定列数据、DataFrame转json、数学运算、透视表运算输出）
系列文章目录 python开发低代码数据可视化大屏:pandas.read_excel读取表格 python实现直接读取excle数据实现的百度地图标注 python数据可视化开发(1):Matplo ...
sqlplus怎样将名次显示在表的后面_数据透视表-01 3种分析方法比拼，助你步入透视表的知识宝殿...
数据透视表通俗的讲就是一种在EXCEL表中对数据进行分析汇总的方式,它可以方便的排列.汇总复杂数据,更加清晰的查看.分析隐藏在数据内部的信息. 另外在菜单栏数据选项下的合并计算和分类汇总也可以进行简单 ...
点击展开表格_Excel里面如何设置默认的表格和透视表样式
今天来介绍一下关于表格和透视表默认样式的小细节.在新建了一个表格或数据透视表以后,单元格区域就会显示出特定的格式,以方便对其他区域进行区分,并且也可以更好地查看和分析数据.另外,选中表格或透视表任意位 ...
如何在Excel中批量新建工作表
任务需求: 按照月份时间生成单月工作表,生成结果如下图所示: 下面是具体的生成步骤,本文使用的是2016版Excel. 步骤一: 准备数据.在A1单元格设置类标签,在A2单元格输入2019年1月,然后 ...
wps表格数据导入access_WPS表格跨工作簿导入数据
使用表格处理数据时,常涉及跨表引用的情况, 使用函数引用其他工作簿数据时,要求被引用的工作簿必须同时打开,否则就会出错. WPS表格中的导入数据功能可以解决这个烦恼. 接下来操作帮助大家理解. ￭此处 ...
【Excel VBA】新建工作表-踩坑多年经验教训
纲举目张说明代码code 使用方法说明在新建工作表的这条路上踩过太多的坑了,虽然仅有个别的项目才需要用到新建工作表,但是很久不用,难免习惯性的baidu,然后就是一大堆乱七八糟的搜索结果:1. ...
利用VBA 批量创建工作表
以创建1月份每天的sheet表为例子. 每一个数据单元格最前面都加上一个单引号打开开发工具中的visual basic 点这个图标选择模块在模块中键入以下代码 Sub NewSht()Dim sh ...

navicat 只对比一张表的数据_Excel VBA批量新建工作表（对比数据透视表的使用）...

navicat 只对比一张表的数据_Excel VBA批量新建工作表（对比数据透视表的使用）...相关推荐

最新文章

热门文章