按列拆分EXCEL:自定义区间导出子表
在Excel中,"按列拆分.txt"文件介绍了一种自定义宏方法来将数据表进行拆分。这个宏主要针对的是需要根据特定列的数据值对整个工作表进行分割,并将每个组保存为单独的工作簿。以下步骤和关键知识点解释了整个过程: 1. 宏名称:`Sub ÷÷÷`,表示这是一个自定义子程序,用于执行特定任务。 2. 变量定义: - `arr` 和 `dAsObject`:arr 用于存储当前区域的数据,dAsObject 是一个对象,用来创建一个字典(Dictionary)结构,用于存储拆分后的数据集。 - `k`, `t`, `i&, lc%, rngAsRange, c%`:这些是辅助变量,其中 `c%` 是用户输入的参数,决定依据哪一列拆分,`lc%` 记录数组的列数,`rngAsRange` 用于引用复制范围,`i&` 作为循环索引。 3. 用户交互: - 使用 `Application.InputBox` 获取用户输入的拆分列号,如果输入为0则退出宏。 - 关闭屏幕更新和显示警告,以提高处理效率。 4. 数据处理: - 将当前区域(`[a1]`)的数据赋值给 `arr`,并计算列数 `lc`。 - 初始化一个 `9` 行 `lc` 列的范围 `rng` 作为临时容器,这通常是为了处理可能的合并单元格。 - 使用 `For` 循环遍历 `arr`,检查每个数据行的指定列(`c`)是否已存在于字典 `d` 中。若不存在,则创建新的工作表并保存;若已存在,则通过 `Union` 方法将新数据添加到现有工作表的相应位置。 5. 创建和保存新工作簿: - 遍历字典中的键值对,对于每个键(即拆分依据的列值),创建一个新的工作簿,复制数据到新的工作表,并将文件名设置为键值 + 当前日期后缀 `.xlsx`。 6. 结束宏操作: - 恢复屏幕更新和显示警告功能,最后弹出消息框确认操作完成。 通过这个宏,用户可以根据需要灵活地按列拆分EXCEL工作表,适用于数据分析、整理或者批量处理数据时的场景。通过调整参数,用户能够适应不同的数据组织和文件命名规则。
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].CurrentRegion
lc = UBound(arr, 2)
Set rng = [a1].Resize(9, lc) '本句代码中,偏移行的多少决定保留表头的行数,你要保留7行,就可以将6改为7即可。
Set d = CreateObject(scripting.dictionary)
For i = 9 To UBound(arr) '这个起始数字,可以根据自己要从第几行开始拆分而定。
If Not d.Exists(arr(i, c)) Then
Set d(arr(i, c)) = Cells(i, 1).Resize(1, lc)
Else
Set d(arr(i, c)) = Union(d(arr(i, c)), Cells(i, 1).Resize(1, lc))
End If
Next
k = d.Keys
t = d.Items
For i = 0 To d.Count - 1
With Workbooks.Add(xlWBATWorksheet)
rng.Copy .Sheets(1).[a1]
t(i).Copy .Sheets(1).[a9] '这句中A列数字为几,则拆分后的数据在A列第几行,需要比前面红色注明的数字大1。
.SaveAs Filename=ThisWorkbook.Path & & k(i) & -201909套餐量收分析报表 & .xlsx
.Close
End With
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox 完毕
下载后可阅读完整内容,剩余1页未读,立即下载
- 粉丝: 0
- 资源: 1
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- C++多态实现机制详解:虚函数与早期绑定
- Java多线程与异常处理详解
- 校园导游系统:无向图实现最短路径探索
- SQL2005彻底删除指南:避免重装失败
- GTD时间管理法:提升效率与组织生活的关键
- Python进制转换全攻略:从10进制到16进制
- 商丘物流业区位优势探究:发展战略与机遇
- C语言实训:简单计算器程序设计
- Oracle SQL命令大全:用户管理、权限操作与查询
- Struts2配置详解与示例
- C#编程规范与最佳实践
- C语言面试常见问题解析
- 超声波测距技术详解:电路与程序设计
- 反激开关电源设计:UC3844与TL431优化稳压
- Cisco路由器配置全攻略
- SQLServer 2005 CTE递归教程:创建员工层级结构