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

cjc209 · 发表于 2024-1-29 19:24

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

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

yangqianming · 发表于 2024-1-30 19:02

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

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

Again123456 · 发表于 2024-1-30 21:21

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

yangqianming · 发表于 2024-1-31 09:47

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

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

Again123456 · 发表于 2024-1-31 21:44

本帖最后由 Again123456 于 2024-1-31 22:43 编辑

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 · 发表于 2024-1-31 21:45

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

拆分.7z (14.28 KB, 下载次数: 7) 加了注释，不知能不能看懂

yangqianming · 发表于 2024-2-1 10:29

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

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

		自动登录	找回密码
密码			免费注册

[求助] 按学校班级拆分数据到独立工作簿

评分

评分