按学校班级拆分数据到独立工作簿

cjc209

Again123456

拆分.7z (13.91 KB, 下载次数: 7)

2024-1-29 20:58 上传

点击文件名下载附件
1

.......

yangqianming

Again123456 发表于 2024-1-29 21:00
.......

厉害，可惜数据拆分保存后原来的表没有了。

Again123456

原来的表还在原来的位置啊？数据都是另存的

yangqianming

Again123456 发表于 2024-1-30 21:21
原来的表还在原来的位置啊？数据都是另存的

这个厉害拆分速度快，可惜我看不懂，要有个详细注释就好了！

Again123456

yangqianming 发表于 2024-1-31 09:47
这个厉害拆分速度快，可惜我看不懂，要有个详细注释就好了！

function 拆分(){
let path = ThisWorkbook.Path
let arr = Range("a1").CurrentRegion.Value2
let head = arr.shift()
let obj = arr.reduce((pre,cur) => (pre[cur[0]+cur[1]] = pre[cur[0]+cur[1]]? pre[cur[0]+cur[1]].concat([cur]) :[cur],pre),{})
for (let key in obj){
  Cells.ClearContents()
  let res =(obj[key].unshift(head),obj[key])
  Range("a1").Resize(res.length,res[0].length).Value2 = res
  ActiveWorkbook.SaveAs(`${path}\\${key}.xls`)
}
}

Again123456

yangqianming 发表于 2024-1-31 09:47
这个厉害拆分速度快，可惜我看不懂，要有个详细注释就好了！

拆分.7z (14.28 KB, 下载次数: 7)

2024-1-31 21:44 上传

点击文件名下载附件

加了注释，不知能不能看懂

yangqianming

Again123456 发表于 2024-1-31 21:45
加了注释，不知能不能看懂

你研究的深，我的确看不明白，至少我知道要学习的太多，慢慢摸索吧！谢谢你！