VBA：按照表中的一列的名称拆分出独立的表

最新推荐文章于 2024-06-05 13:13:54 发布
最新推荐文章于 2024-06-05 13:13:54 发布
阅读量5.2k 收藏 9
点赞数 1
分类专栏： VBA EXCEL 文章标签： VBA
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/youngmiffy/article/details/53463111
版权
这篇博客介绍了如何使用VBA根据列名将数据拆分成多个独立的工作表。作者列举了代码需求、示例、运行结果，并提出了优化代码的四个建议，包括减少遍历次数、避免for循环插入数据、新建工作簿以及利用break优化循环速度。
摘要由CSDN通过智能技术生成

一、代码需求

因公司分布全国范围，有很多省公司，总部看到的是三张总指标，给省公司下发的时候需拆分到每个省公司单独的表中；如图
三张指标
图一：要拆分的三张表

指标1
图二：省公司表

指标2
图三：省公司项目表

指标3
图四：省公司人员表

二、代码示例

Sub 为各个省公司拆分表()
    Dim i As Integer, x As Integer, y As Integer, z
最低0.47元/天 解锁文章
youngmiffy
关注
  • 1
    点赞
  • 踩
  • 9
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
VBA 按照某一列进行筛选拆分数据，拆分成多个表或多个Sheet，按某列检查重复生成新的Sheet，删除除本表外的所有表
05-21
VBA 按照某一列进行筛选拆分数据，拆分成多个表或多个Sheet，按某列检查重复生成新的Sheet，删除除本表外的所有表
实用VBA：4.按列拆分工作表
周公笃行的博客
10-12 1047
公司发放奖金，仅在部门内部公示，需要将奖金发放表按部门分隔为若干个分表，分别发给各部门。表格小了还好办，手动选择、复制、粘贴、另存一遍即可解决，如果表格大、部门多、数据未按部门排序的话，手动处理工作量就会很大，通过VBA可以一键完成。
VBA excel 表格将多行拆分成多个表格或 文件 或者合并 多个表格
最新发布
estrusKing的博客
06-05 1041
为了将Excel中的数万行数据拆分成多个个每个固定行数的独立工作表，并且保留每个工作表的表头，你可以使用以下VBA脚本。这个脚本会复制表头到每个新的工作表，并将后续的数据行按固定行行的间隔进行拆分打开Excel并按下Alt + F11打开VBA编辑器。在VBA编辑器中，右键点击你的工作簿名称，然后选择插入 -> 模块，以创建一个新的模块。在新模块的代码窗口中，复制并粘贴以下VBA代码：确保你的数据在Sheet1上（或者将代码中的"Sheet1"替换为你的实际工作表名称）。
Excel VBA 将工作表按列拆分且生成新工作表（同个工作簿内）
zylfish的博客
01-31 987
1. 每一行都添加了注释，因为是帮同事写的，便于不懂任何代码的人理解。需求：现在有一张工作表，需要按业务员姓名分成小的工作表，放在同一个工作簿里。2.额外写了计算程序运行时间的代码，不需要的可以删掉。
Excel·VBA按列拆分工作表、工作簿
热门推荐
hhhhh_51的博客
01-10 1万+
1，工作表按列拆分为工作表；2，工作表按列拆分为工作簿；3，工作簿按列拆分；4，工作表按列拆分，支持多列关键值；5，工作表按列拆分，先拆分为工作簿再拆分为工作表
vba利用自动筛选按任意列拆分成多工作表
qq_42678477的博客
11-10 1100
Option Explicit Sub main() Dim colNo As Integer, sht As Worksheet, lastRow As Long, i As Long, flag As Boolean colNo = InputBox("col no:") Excel.Application.DisplayAlerts = Fals...
VBA宏脚本自动拆分EXCEL表
03-31
例如：一个综合性的excel报表，第1行C列是省份，而且此综合性报表有多个sheet要拆分，想要实现拆分所有sheet，并按省份合并成一个excel表，比如所有辽宁省的数据合并成一个excel文件以不同的sheet体现。用此脚本即可...
018将总表按任意列拆分成多个工作簿共3页.pdf.zip
11-19
3. 数据拆分：学习如何依据某一列的数据（如类别标签）将数据拆分到不同的工作簿中，这可能涉及到查找和替换、条件格式化或者使用VBA宏。 4. 使用公式和函数：可能需要使用到IF、VLOOKUP、INDEX/MATCH等公式，来帮助...
将excel表格按A列拆分为多个文件VBA代码
02-06
2、excel表格保留一行标题行，并把第一列数据填写为拆分项（文件拆分时将按第一列的内容进行归类合并为一个文件），整个表格不要合并单元格； 3、在打开的EXCEL工作表名称上点右键选择查看代码； 4、选择菜单栏：...
将EXCEL多行表头的工作表拆分为多个工作表-工具
06-29
本文将详细介绍如何使用VBA宏代码自动地将包含多行表头的Excel工作簿中的工作表拆分成多个单独的工作表，每个工作表基于指定列的唯一值进行划分。 #### 三、关键概念解释 - **多行表头**：指的是在一个Excel工作表...
按列拆分工作表
02-21
在这个场景中，我们的目标是将一个包含多列数据的工作表依据某一列的值拆分为多个独立的工作表。例如，如果一列是部门名称，我们可能希望为每个部门创建单独的工作表。 2. **选择拆分列** 首先，确定要根据哪一列...
【Office】【VBA宏】使用宏实现表格中根据一列分类拆分到对应的sheet表中
qq_42285057的博客
04-24 1123
VBA宏实现表格拆分（根据列分类拆分到对应的sheet表中）
【VBA修改】excel按照某一列内容保留表头和结尾拆分为独立的新表
dx_shendu的博客
04-26 2812
Sub 保留表头拆分数据为若干新工作簿() Dim arr, d As Object, k, t, i&, lc%, rng As Range, c% c = Application.InputBox("请输入拆分列号", , 4, , , , , 1) If c = 0 Then Exit Sub Application.ScreenUpdating = False Application.DisplayAlerts = False arr = [a1].Cur...
VBA-大表按列分成多个小表(带表头)
weixin_43203897的博客
06-25 1218
按班级分表： 开发工具–>VB编辑器–>视图–>代码窗口–>粘贴下面代码 Sub cfgzb() Dim arr, d As Object, k, t, i&, lc%, rng As Range, c% c = Application.InputBox("请输入拆分列号", , 1, , , , , 1) If c = 0 Then Ex...
通过VBA将一个工作簿中的多个工作表拆分为多个工作簿,以工作表名称命名工作簿
wanglepingwangleping的博客
07-20 5694
前提：电脑上装有office2007或office2013等，WPS不行。 1、如果你有现成的一个工作簿含有多个工作表的文件，想分成多个工作簿的话， 可以通过office2007或office2013等打开execl，然后通过execl里面的开发工具， 输入以下运行代码，执行就行（拆分的工作簿在你设置的路径下）： Sub cfb() Dim m As Integer Dim sht, sht1 As Worksheet '按照需要将分出来的表分成多个工作簿 n = InputBox(“请输入excel的
Excel VBA 将工作表按列拆分且生成新工作簿
zylfish的博客
01-31 1122
需求：已有一张总表，需要按业务员名字生成相应的工作簿，里面的工作表（sheet）命名为特定的名称。如果文件夹中已经有这个业务员工作簿且已经有同名工作表，则更新这个工作表；如果有这个业务员工作簿但没有同名工作表，则在里面新建一个工作表。1. 每一行都添加了注释，因为是帮同事写的，便于不懂任何代码的人理解。我自己也是小白，上面的代码是参考别人的代码改出来的，通过百度搜索想实现的功能，把好几段代码合在一起。2. 开头放了几个变量，用空行分隔开，方便根据表格修改。
使用VBA在excle中写一个代码，对工作表内容进行拆分，当运行时弹出对话框输入需要拆分的列，然后对相应的内容以列的内容为名字拆分到新的工作表中
weixin_35755434的博客
01-03 246
这是一个例子： Sub SplitSheet() Dim col As String col = InputBox("请输入需要拆分的列(如A、B、C)：") Dim i As Integer Dim uniqueValues As New Collection Dim value As Variant Dim lastRow As Long lastRow = Cel...
编写VBA程序，实现拆分表格
weixin_42593701的博客
02-18 362
答复：我可以帮助你编写VBA程序，实现拆分表格。首先，可以使用VBA的Range对象，指定要拆分的单元格区域，然后使用For-Next循环迭代每一行，根据不同的条件来拆分表格。此外，还可以使用VBA的列表框(ListBox)，实现拆分表格的可视化效果。 ...
excel、wps 使用vba实现按内容拆分工作表
Sharon_Yaoa的博客
09-12 877
excel、wps 使用vba实现按内容拆分工作表
VBA脚本：一户一表数据拆分与工作簿创建
在Excel宏编程中，"一户一表拆分- 输入模式"这个标题涉及到一个VBA（Visual Basic for Applications）脚本，用于自动化处理Excel数据，特别是针对“一户一表”数据的整理和拆分。具体来说，这个宏的主要功能是： 1....
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值