VBA按关键词分组拆分Excel工作表

于 2024-05-07 07:56:11 发布
阅读量1k 收藏 19
点赞数 11
分类专栏： VBA Excel 文章标签： excel 职场和发展 程序人生
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/beijixingvba/article/details/138429595
版权
本文介绍了如何使用VBA在Excel中按关键词（如部门、性别等）拆分工作表。通过定义一维数组，利用字典去重，然后复制源工作表并根据部门名称重命名，最后删除非匹配部门的数据，实现工作表的智能拆分。提供的代码示例展示了按部门拆分的具体实现过程。
摘要由CSDN通过智能技术生成
最低0.47元/天 解锁文章
Excel潘谆白说VBA
关注
  • 11
    点赞
  • 踩
  • 19
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Excel VBA 宏 拆分Excel表
大胜哥的专栏
02-08 6140
问题： excel 文件 如下： num    char key 1     a    关键字1 1     a    关键字1 1     a    关键字1 1     a    关键字1 2     b    关键字2 2     b    关键字2 2     b    关键字2 2     b    关键字2 按照关键字拆分成 多个 excle 表（非she
【Office】【VBA宏】使用宏实现表格中根据一列分类拆分到对应的sheet表中
qq_42285057的博客
04-24 1246
VBA宏实现表格拆分（根据列分类拆分到对应的sheet表中）
excel拆分工作表-按指定关键词拆分
ffcell2016的博客
05-23 664
​ 1.如下图是某公司产品生产表，现在我们想要按照指定关键词“公司”和“车间”拆分工作表。 ​ 2.点击下图选项（Excel插件，百度即可了解详细的下载安装方法，本文这里不作详细叙述） 3.找到并点击【汇总拆分】选项，然后选择【拆分工作表】 ​ 4.点击【按关键词拆分】 ​ 5.将【表头行数】设置为1 ​ 6.点击【添加字段】添加字段B车间 ​ 7.最后点击【确定】即可完成...
excel、wps 使用vba实现按内容拆分工作表
Sharon_Yaoa的博客
09-12 1099
excel、wps 使用vba实现按内容拆分工作表
Excel按关键字将一个整表按要求拆分几个分表
ffcell2016的博客
06-29 787
如下图按负责人信息将这个整表进行拆分，已分发给每个区域负责人，难道要一个一个复制粘贴吗，先看动图演示，小编是怎么做的（方方格子插件） 1.单元格选中在数据区域的任意位置2.选择方方格子按钮3.选择汇总拆分中的拆分工作表选项4.弹出对话框把表头信息设置为1，这样每个分表都会有表头5.关键字设置为a列负责人6.好了单击确定等待拆分完成即可7.看已经拆分完成了，是不是非常方便如果经验帮到了你，请记得分享！......
关键词工具整理
soledede
09-20 305
Google Adwords 关键词工具：https://adwords.google.com/select/KeywordToolExternal Google指数：http://www.google.cn/trends Google热榜：http://www.google.cn/rebang/home 百度指数：http://index.baidu.com/ Google搜索解析：...
Excel中如何将一个Excel工作表的数据按一列的关键字拆分成多个工作表
rpf的博客
11-30 2万+
最近需要筛选Excel的数据 看到网上有大神做出来的Demo 但是在mac上需要Xactive环境 在windows上是可以运行的 VBA代码 Sub 如何将一个Excel工作表的数据拆分成多个工作表() Dim Arr, Rng As Range, Sht As Worksheet, Dic As Object Dim k, t, Str As String, i A
快速实现关键词分组工具.xls
08-19
快速实现关键词分组工具表，能够快速帮助你把大数量的词组进行快速分类，简单实用。 提醒：xls工具
VBA实现Excel表格根据列拆分工作簿，再由工作簿根据列拆分成工作表.txt
11-30
针对给定的标题和描述，我们将探讨如何使用VBA来实现按列拆分工作簿，然后将工作簿进一步拆分成多个工作表。 首先，让我们理解这个过程的逻辑。假设我们有一个包含多列数据的工作簿，我们想要基于特定列的值将其...
关键词快速分组工具
03-24
搜索关键词快速分组工具，excel宏编写，使用前请在excel中把宏打开。
VBA按模板填写数据拆分工作表.xlsm
最新发布
06-15
VBA按模板填写数据拆分工作表.xlsm 将数据表的每一行数据填入到模板表，然后生成一个工作表
将Excel工作表按列拆分成多个Excel文件小工具
03-03
按列将表拆分成单独的Excel文件 将Excel表按照指定的列分组拆分并另存为单独的Excel文件 例如：A列有10条数据，汇总后是三个员工，使用小工具可以将表按照每个员工拆分成单独的Excel文件 关键点： 1、小工具要与...
Excel VBA 操作 拆分当前Excel表中 / 所选取文件夹所有子文件中 所有sheet保存到对应文件夹路径中拆分表内
06-05
下面将详细解释如何通过VBA来拆分Excel表，并将拆分后的每个工作表保存到指定的文件夹。 首先，我们需要创建一个新的VBA模块。在Excel中，可以按下Alt + F11打开VBA编辑器，然后在工程资源管理器中选择“插入”> ...
Excel中用VBA将根据列内容分割成多个工作表
梦想庚远
11-04 8434
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 -- 实现按指定条件拆分工作表的功能
热门推荐
xj246304的博客
05-16 2万+
大数据背景下，数据变成了巨大的财富。各种数据库如关系型数据库SQL/Oracle和非关系型数据库MangoDB/Redis等的演化和应用更加丰富；同时数据分析从数据采集、数据预处理到数据集成、数据挖掘的需求也更大。从数据采集到数据挖掘，最终服务企业运营，是一条完整和严谨的数据分析流程。在完成高大上的数据挖掘之前，数据采集、预处理到数据集成是不容忽视的基础工作，也是十分繁琐和费时的过程。现在，许多企...
如何使用VBA按某列汇总拆分工作表
05-15
你可以按照以下步骤使用VBA按某列汇总拆分工作表： 1. 打开你想要拆分的工作表。 2. 在工作表上方的菜单栏中选择“开发人员”选项卡。如果你没有看到该选项卡，则需要启用它。可以通过下列步骤：文件->选项->自定义功能区->勾选“开发人员”选项卡。 3. 点击“Visual Basic”按钮，打开Visual Basic编辑器。 4. 在编辑器中，依次展开“项目-VBAProject(VBA项目)”、“Microsoft Excel 对象”、“Sheet1(Sheet1)”，双击“Sheet1(Sheet1)”。 5. 在工作表的代码窗口中输入以下代码： ``` Sub SplitData() Dim lastRow As Long Dim currentRow As Long Dim i As Long Dim currentName As String Dim ws As Worksheet Dim newWs As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row currentRow = 2 For i = 2 To lastRow If ws.Range("A" & i).Value <> currentName Then currentName = ws.Range("A" & i).Value Set newWs = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) newWs.Name = currentName ws.Range("A1:D1").Copy newWs.Range("A1") currentRow = 2 End If ws.Range("A" & i & ":D" & i).Copy newWs.Range("A" & currentRow) currentRow = currentRow + 1 Next i End Sub ``` 6. 保存并关闭Visual Basic编辑器。 7. 回到工作表并点击“开发人员”选项卡上的“宏”按钮。 8. 在弹出的对话框中选择“SplitData”宏，并点击“运行”。 这将按列A中的值拆分工作表，并将每个唯一值的数据放入一个新的工作表中。每个新工作表的名称将是该值。请注意，此代码假设您的数据以列A开始，并且您的数据没有标题行。如果您的数据的列不同，请在代码中进行调整。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值