Excel 2010 VBA 入门 089 数据处理之按指定列分拆工作表

最新推荐文章于 2024-04-24 22:09:01 发布
最新推荐文章于 2024-04-24 22:09:01 发布
阅读量787 收藏 3
点赞数 1
分类专栏： # Excel 2010 VBA 入门
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ngbshzhn/article/details/116597650
版权
本文介绍了如何使用Excel 2010 VBA进行数据处理，通过循环遍历销售记录，根据部门字段动态创建或更新工作表，实现将不同部门的数据分拆到单独的工作表中。
摘要由CSDN通过智能技术生成

示例

    如图示，该工作表为某公司销售记录，现需要将该表按照部门进行拆分，将不同部门的销售记录存放于不同的工作表中，该如何使用VBA实现？

出货日期 发票号码 部门 规格型号 单位 数量 单价
（USD）		 金额
（USD）
2010/9/4 W-0086-0020 三部 3D7A 台 3 9.29 27.87
2010/9/15 W-0086-0021 一部 3D7A 台 7 9.29 65.03
2010/9/17 W-0086-0022 二部 3D7A 台 22 9.29 2
最低0.47元/天 解锁文章
ngbshzhn
关注
  • 1
    点赞
  • 踩
  • 3
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 2
    评论
专栏目录
Excel 2010 VBA 入门 090 数据处理之动态汇总的数据查询表
复行数十步
05-11 282
示例 如图所示，该工作表是某公司的销售记录。现希望建立一个查询表，能够让用户选择某一个或者两个汇总字段，当用户单击“汇总”按钮后，则按照该一列或者两列进行数量和金额的汇总。该如何实现？ 日期 销售经理 客户分类 区域 分配业务员 回款地 所属公司 产品分类 客户名称 销售数量 单价 销售金额 送货单号 2010/10/2 李泉 二线客户 天河区 何月 中山 海天建材 HT15MM..
VBA 按照某一列进行筛选拆分数据，拆分成多个表或多个Sheet，按某列检查重复生成新的Sheet，删除除本表外的所有表
05-21
VBA 按照某一列进行筛选拆分数据，拆分成多个表或多个Sheet，按某列检查重复生成新的Sheet，删除除本表外的所有表
Excel·VBA按整列拆分工作表、工作簿
hhhhh_51的博客
11-27 2548
1，工作表按固定列数，整列拆分为工作簿；2，工作簿按单行值，整列拆分为工作簿
Excel·VBA按列拆分工作表、工作簿
热门推荐
hhhhh_51的博客
01-10 1万+
1，工作表按列拆分为工作表；2，工作表按列拆分为工作簿；3，工作簿按列拆分；4，工作表按列拆分，支持多列关键值；5，工作表按列拆分，先拆分为工作簿再拆分为工作表
【Office】【VBA宏】使用宏实现表格中根据一列分类拆分到对应的sheet表中
最新发布
qq_42285057的博客
04-24 1267
VBA宏实现表格拆分（根据列分类拆分到对应的sheet表中）
实用VBA：4.按列拆分工作表
周公笃行的博客
10-12 1078
公司发放奖金，仅在部门内部公示，需要将奖金发放表按部门分隔为若干个分表，分别发给各部门。表格小了还好办，手动选择、复制、粘贴、另存一遍即可解决，如果表格大、部门多、数据未按部门排序的话，手动处理工作量就会很大，通过VBA可以一键完成。
Excel 2010 VBA 入门 096 数据处理之用数组提取不重复值
复行数十步
06-29 3581
示例 如图所示，该表为某公司在某月的销售数据。现希望统计该月中销售的产品类别的个数。如何利用VBA数组提取该列不重复的值，并存放于新表中？ 日期 销售经理 客户分类 区域 分配业务员 回款地 所属公司 产品分类 客户名称 销售数量 单价 销售金额 送货单号 2010/10/2 李泉 二线客户 天河区 何月 中山 海天建材 HT15MM 金虎 1280 65 ..
Excel 2010 VBA 入门 093 数据处理之建立数组
复行数十步
05-12 686
目录 示例 代码 数组的基本概念 数组的声明 数组的赋值与数组数据的读取 Ubound和Lbound函数获取数组的上下限 ForEach---Next循环遍历数组的注意事项 计算程序运行的时间 数组处理的极限 示例 如图所示，该表为某公司的产品销售记录。现需要根据规格型号建立汇总表，并根据单元格G2所示的规格型号汇总数量及金额，然后将结果存入H2和I2中。由于该表数据超过10万条，如何利用数组加快该查询？ 规格型号 数量 单价 金额 ...
Excel 2010 VBA 入门 063 跨表数据录入
复行数十步
04-20 2280
目录 示例 实现代码 ListObject对象 ListObject对象的表示方法 1．序号表示法 2．名称表示法 ListColumn对象 向ListObject中添加新数据 使用VBA添加ListObject对象 Excel中数据存储的结构 (1)用输入界面的表格或者汇总形式的表格直接代替数据库存储。 (2)使用多维表（交叉表）记录数据。 示例 如图所示，该表为某公司供应商信息录入表以及供应商数据表。现希望在“数据输入”表中输入各个数据，然后添加至“数据表”中，如何用..
将Excel工作表按列拆分成多个Excel文件小工具
03-03
按列将表拆分成单独的Excel文件 将Excel表按照指定的列分组拆分并另存为单独的Excel文件 例如：A列有10条数据，汇总后是三个员工，使用小工具可以将表按照每个员工拆分成单独的Excel文件 关键点： 1、小工具要与Excel文件放在同一个文件夹下； 2、标题行唯一，不能跨行； 3、以某列为的数据为标准值进行拆分，该列不能有合并单元格，可以自己选择需要拆分的列； 4、拆分完成后会按拆分列，分组生成对应的Excel文件 5、压缩文件内涵使用方法
将excel表格按A列拆分为多个文件VBA代码
02-06
使用方法： 1、将需要拆分的EXCEL文件放在一个单独的文件夹，打开这个EXCEL文件，并关闭其他打开的EXCEL文件； 2、excel表格保留一行标题行，并把第一列数据填写为拆分项（文件拆分时将按第一列的内容进行归类合并为一个文件），整个表格不要合并单元格； 3、在打开的EXCEL工作表名称上点右键选择查看代码； 4、选择菜单栏：插入-模块，将以下代码复制到右边的代码框中，点击菜单：运行-运行子过程/用户窗体,直到弹出处理完毕对话框； 5、在文件夹中将生成拆分好的文件，可关闭这个EXCEL文件，选择不保存。
工作表根据条件拆分成多个工作表
04-04
本例介绍在excel中如何将一个工作表根据条件拆分成多个工作表。
EXCEL宏将一个工作簿拆分为多个工作簿
12-26
本EXCEL宏的功能是将一个EXCEL工作簿拆分为多个EXCEL工作簿。
指定列_Excel VBA 7.48按照任意指定列拆分工作表，5秒钟解决帮你解决
weixin_32081489的博客
01-13 989
前景提要今天我们正式开始分享一些关于工作表的拆分的一些知识，前面我们已经陆陆续续的学习了很多关于工作表的合并的操作，现在我们开始进入工作表的合并的对立面-工作表的拆分，将总表按照各种要求进行花式拆分，小伙伴们准备好了，准备开车了今天我们来分享下如何按照指定列进行拆分工作表场景说明假设我们现在有一个工作表，是所有的班级的学生的考试成绩的汇总表，我们现在希望按照班级来进行分析，分析每个班级的最高分和平...
使用VBA对指定列进行拆分工作表并将工作表保存为工作簿
weixin_48155970的博客
10-27 1652
使用说明 本人为初学者，根据大神的写法弄的精简版，中间出现空格可正常统计。 未进行序号填充 点击取消会报错 其他BUG后续后继续完善 Sub 表格关键词拆分() Application.ScreenUpdating = False Dim x As Integer, y As Integer, w As Worksheet inputcol = InputBox("请输入拆分列所在序号") x = 2 y = inputcol Set w = Worksheets(1) Do While w.Ce
Excel VBA 将工作表按列拆分且生成新工作表（同个工作簿内）
zylfish的博客
01-31 1028
1. 每一行都添加了注释，因为是帮同事写的，便于不懂任何代码的人理解。需求：现在有一张工作表，需要按业务员姓名分成小的工作表，放在同一个工作簿里。2.额外写了计算程序运行时间的代码，不需要的可以删掉。
vba利用自动筛选按任意列拆分成多工作表
qq_42678477的博客
11-10 1127
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...
Excel中用VBA将根据列内容分割成多个工作表
梦想庚远
11-04 8438
Sub 工作表拆分2() '通过筛选方法完成需求，速度快，但当有合并单元格时就不能用。读者可以根据实际情况选用 Dim SplitCol As String, ColNum As Integer, HeadRows As Byte, arr, lastrow, i, ShtIndex, only As New Collection, Rng As Range SplitCol =
vba 利用数据透视表 按指定列拆分工作表
05-27
您可以按照以下步骤使用 VBA 利用数据透视表按指定列拆分工作表： 1. 创建一个名为“PivotTable”的数据透视表，将需要拆分的列放到行区域中，需要保留的列放到值区域中。 2. 在 VBA 编辑器中，打开需要拆分的工作表的代码模块。 3. 在模块中添加以下代码： ``` Sub SplitPivotTable() Dim pt As PivotTable Dim ws As Worksheet Dim rng As Range Dim cell As Range Dim lr As Long Dim i As Long Set pt = Worksheets("PivotTable").PivotTables("PivotTable") Set ws = Worksheets.Add lr = pt.TableRange1.Rows.Count For Each cell In pt.TableRange1.Columns(1).Cells Set rng = ws.Range("A" & lr + 1) cell.Resize(, pt.TableRange1.Columns.Count).Copy rng lr = lr + 1 Next cell For i = 2 To ws.Columns.Count If ws.Cells(1, i).Value <> "" Then ws.Columns(i).Delete i = i - 1 End If Next i ws.Name = "NewSheet" End Sub ``` 4. 修改代码中的“PivotTable”为您的数据透视表名称。 5. 运行代码，新建一个工作表，按照透视表第一列的值拆分并复制到新工作表中。 注意事项： 1. 此代码仅适用于数据透视表中只有一个数据字段。 2. 如果需要拆分的列中存在空值，则会在新工作表中创建空行。 3. 如果需要保留的列中存在空值，则会在新工作表中创建空列。
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

ngbshzhn

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值