没有合适的资源?快使用搜索试试~ 我知道了~
温馨提示
试读
2页
使用方法: 1、将需要拆分的EXCEL文件放在一个单独的文件夹,打开这个EXCEL文件,并关闭其他打开的EXCEL文件; 2、excel表格保留一行标题行,并把第一列数据填写为拆分项(文件拆分时将按第一列的内容进行归类合并为一个文件),整个表格不要合并单元格; 3、在打开的EXCEL工作表名称上点右键选择查看代码; 4、选择菜单栏:插入-模块,将以下代码复制到右边的代码框中,点击菜单:运行-运行子过程/用户窗体,直到弹出处理完毕对话框; 5、在文件夹中将生成拆分好的文件,可关闭这个EXCEL文件,选择不保存。
资源推荐
资源详情
资源评论
使用方法:
1、将需要拆分的EXCEL文件放在一个单独的文件夹,打开这个EXCEL文件,并关闭其他打开的EXCEL文件;
2、excel表格保留一行标题行,并把第一列数据填写为拆分项(文件拆分时将按第一列的内容进行归类合并为一个文件),整个表格不要合并单元格;
3、在打开的EXCEL工作表名称上点右键选择查看代码;
4、选择菜单栏:插入-模块,将以下代码复制到右边的代码框中,点击菜单:运行-运行子过程/用户窗体,直到弹出处理完毕对话框;
5、在文件夹中将生成拆分好的文件,可关闭这个EXCEL文件,选择不保存。
代码如下:
Sub 按照总表A列数据分类存到各新表()
Dim arr, sht As Worksheet, temp As String, i As Long, k, t, rng1 As Range
Set rng1 = Range("A1:BB1")
arr = Range("a2:BB" & [a65536].End(xlUp).Row).Value '减去黄色区域
Application.ScreenUpdating = False
With CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
temp = arr(i, 1)
If temp <> "" Then
If Not .exists(temp) Then
.Add temp, Range("a" & i + 1).Resize(1, 54)
Else
Set .Item(temp) = Union(.Item(temp), Range("a" & i + 1).Resize(1, 54))
End If
End If
Next i
k = .keys
t = .Items
On Error Resume Next
For i = 0 To .Count - 1
If Len(Sheets(k(i)).Name) > 0 Then '判断工作表存在
1、将需要拆分的EXCEL文件放在一个单独的文件夹,打开这个EXCEL文件,并关闭其他打开的EXCEL文件;
2、excel表格保留一行标题行,并把第一列数据填写为拆分项(文件拆分时将按第一列的内容进行归类合并为一个文件),整个表格不要合并单元格;
3、在打开的EXCEL工作表名称上点右键选择查看代码;
4、选择菜单栏:插入-模块,将以下代码复制到右边的代码框中,点击菜单:运行-运行子过程/用户窗体,直到弹出处理完毕对话框;
5、在文件夹中将生成拆分好的文件,可关闭这个EXCEL文件,选择不保存。
代码如下:
Sub 按照总表A列数据分类存到各新表()
Dim arr, sht As Worksheet, temp As String, i As Long, k, t, rng1 As Range
Set rng1 = Range("A1:BB1")
arr = Range("a2:BB" & [a65536].End(xlUp).Row).Value '减去黄色区域
Application.ScreenUpdating = False
With CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
temp = arr(i, 1)
If temp <> "" Then
If Not .exists(temp) Then
.Add temp, Range("a" & i + 1).Resize(1, 54)
Else
Set .Item(temp) = Union(.Item(temp), Range("a" & i + 1).Resize(1, 54))
End If
End If
Next i
k = .keys
t = .Items
On Error Resume Next
For i = 0 To .Count - 1
If Len(Sheets(k(i)).Name) > 0 Then '判断工作表存在
资源评论
- z3h2018-03-05没鸟用,莫下载。
- bjlvxl2019-06-26管用呀。 已经根据代码试验成功。
sclxzy
- 粉丝: 0
- 资源: 2
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- Win64OpenSSL-3-3-0.exe
- 课高分程设计-基于C++实现的民航飞行与地图简易管理系统-南京航空航天大学
- 航天器遥测数据故障检测系统python源码+文档说明+数据库(课程设计)
- 北京航空航天大学操作系统课设+ppt+实验报告
- 基于Vue+Echarts实现风力发电机中传感器的数据展示监控可视化系统+源代码+文档说明(高分课程设计)
- 基于单片机的风力发电机转速控制源码
- 基于C++实现的风力发电气动平衡监测系统+源代码+测量数据(高分课程设计)
- 毕业设计- 基于STM32F103C8T6 单片机,物联网技术的太阳能发电装置+源代码+文档说明+架构图+界面截图
- 基于 LSTM(长短期记忆)(即改进的循环神经网络)预测风力发电厂中风力涡轮机产生的功率+源代码+文档说明
- 基于stm32f103+空心杯电机+oled按键+运动算法
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功