求教，Excel表格问题

wxinchun92

VBA在合适不过了

紧急追踪

收藏了，谢谢

nathan6498

学习学习

2012mulinsen

都是高手啊

lotus136

过来学习学习

xsg123456

1. function collectAll(){
   
2. let path = ThisWorkbook.Path,
   
3. files = ["语文","数学","英语"],
   
4. obj = {}
   
5. files.forEach(name =>{
   
6. let wb = Application.Workbooks.Open( path + `\\${name}.xlsx`)
   
7. let tmp = wb.Sheets("Sheet1").Range("a2").CurrentRegion.Value2.slice(1)
   
8. tmp.forEach(v => {
   
9. let key = [v[0] , v[1] , v[3]]
   
10. obj[key] = obj[key]? [...obj[key],v[2]] : [v[2]]
    
11. key = [v[5] , v[6] , v[8]]
    
12. obj[key] = obj[key]? [...obj[key],v[7]] : [v[7]]
    
13. key = [v[10] , v[11] , v[13]]
    
14. obj[key] = obj[key]? [...obj[key],v[12]] : [v[12]]
    
15. })
    
16. wb.Close()
    
17. })
    
18. let res1 = Object.keys(obj).map(v=>v.split(",")),
    
19. res2 = Object.values(obj)
    
20. res1.unshift(["学号","姓名","班号"])
    
21. res2.unshift(files)
    
22. res = res1.map((v,i)=> [v[0],v[1],...res2[i],v[2]]).sort((a,b)=>a[0]-b[0]).filter(v => v[0])
    
23. Range("a2").CurrentRegion.ClearContents()
    
24. Range("a2").Resize(res.length,res[0].length).Value2 = res
    
25. 
    
26. }

复制代码

xsg123456

xsg123456

成绩表.7z (24.33 KB, 下载次数: 14)

2024-1-11 21:46 上传

点击文件名下载附件
下载积分: 无忧币 -2

终于传上了附件
忘记说了,wps下开启宏即可食用

ppll2030

https://www.123pan.com/s/fvglVv-DX2Nv.html
三张成绩表最好统一一列。这样有利于统计、汇总和查漏。
汇总表是根据学号匹配各科成绩的。只要把对应的三科成绩复制到对应的工作表里即可。
如果非要横向三组排列的排版。建议检查无误后，复制一份副本重新排版。

JOINT

谢谢分享

15126222223

ppll2030 发表于 2024-1-11 21:52
https://www.123pan.com/s/fvglVv-DX2Nv.html
三张成绩表最好统一一列。这样有利于统计、汇总和查漏。
汇 ...

你做的思路不错。

xsg123456

给你做 原表不动 新表自动生成  自动总分 排名 的一键版

1. function collectAll(){
   
2. Application.ScreenUpdating = false
   
3. let path = ThisWorkbook.Path,
   
4.      files = ["语文","数学","英语"],
   
5.      obj = {} , res = []
   
6. files.forEach(name =>{
   
7.   let wb = Application.Workbooks.Open( path + `\\${name}.xlsx`)
   
8.   let tmp = wb.Sheets("Sheet1").Range("a2").CurrentRegion.Value2.slice(1)
   
9.   tmp.forEach(v => {
   
10.    let key = [v[0] , v[1]]
    
11.    obj[key] = obj[key]? [...obj[key],v[2]] : [v[2]]
    
12.    key = [v[5] , v[6] ]
    
13.    obj[key] = obj[key]? [...obj[key],v[7]] : [v[7]]
    
14.    key = [v[10] , v[11]]
    
15.    obj[key] = obj[key]? [...obj[key],v[12]] : [v[12]]
    
16.   })
    
17.   wb.Close()
    
18. })
    
19. let res1 = Object.keys(obj).map(v=>v.split(",")),
    
20.   res2 = Object.values(obj).map(v => [...v,v.reduce((p,c) => p*1+c*1)])
    
21. res1.unshift(["学号","姓名"])
    
22. res2.unshift(["语文","数学","英语","总分"])
    
23. res = res1.map((v,i)=> [v[0],v[1],...res2[i]]).sort((a,b)=>b[5]-a[5]).filter(v => v[0])
    
24. res = res.map((v,i) => {
    
25.   if (i == 0) {
    
26.    return [...v,"班级排名"]
    
27.   }else{
    
28.    return [...v,i]
    
29.   }
    
30. })
    
31.     Range("a2").CurrentRegion.ClearContents()
    
32. Range("a2").Resize(res.length,res[0].length).Value2 = res
    
33. Application.ScreenUpdating = true   
    
34. }
    

复制代码

成绩表.7z (24.45 KB, 下载次数: 20)

2024-1-11 23:24 上传

点击文件名下载附件
下载积分: 无忧币 -2

lixiangliuyi

语数外都排版整齐不要分成3版，

然后以语文（随便那个为模板），新建列数学英语成绩
C#引用epplus，写个方法，根据姓名去其他的表中查找对应的成绩并输出在模板对应的成绩栏目，再写个for循环搞定。

likeyouli

xsg123456 发表于 2024-1-11 21:13

这是啥 ？  有的地方像vba，感觉又不是

20121666

likeyouli 发表于 2024-1-11 17:17
你也在县里上班啊，，咱们一样
  我学习vba 就是因为经常罗罗数据，，下边报上来的数据，最麻烦的是报 ...

就是呗，上报信息一点都不规范，主要是不认真，还不听话。

20121666

xsg123456 发表于 2024-1-11 22:56
给你做 原表不动 新表自动生成  自动总分 排名 的一键版

需要慢慢消化，谢谢，主要是不常接触，自己又笨。以后有问题还请多指教。

20121666

lixiangliuyi 发表于 2024-1-12 00:09
语数外都排版整齐不要分成3版，

然后以语文（随便那个为模板），新建列数学英语成绩

基层单位报表就这样的，不是一天两天的事。很难改变。

车丁

学习使用XLOOKUP或VLOOKUP函数，你会发现很多数据都非常方便处理，不过要新版本的OFFICE才支持XLOOKUP。XLOOKUP比VLOOKUP好用，

20121666

ppll2030 发表于 2024-1-11 21:52
https://www.123pan.com/s/fvglVv-DX2Nv.html
三张成绩表最好统一一列。这样有利于统计、汇总和查漏。
汇 ...

文件中只是一个例子，各个单位的报表非常多，看到的只是冰山一角，都这样改一遍不现实。所以才请教各位高手看看有什么简单的解决办法。

zlzx01

好帖！！！！！

ppll2030

20121666 发表于 2024-1-12 09:04
文件中只是一个例子，各个单位的报表非常多，看到的只是冰山一角，都这样改一遍不现实。所以才请教各位高 ...

简单的办法就是统一报表格式。需要数据，就下发一份统一模板填写。
如果你说得上话就这么办，说不上就让说得上话的人去办
在我们单位，数据岗的表格只要不统一，一律发回重做。
影响统计时间的，责任到当地领导。
当然，如果你的例子已经是统一模板，可以考虑用复杂点的vba汇总了。
不管什么办法，都不是万能呢。就比如你的英语表格，是顶行填写的，语文和数学却又留空一行。
填写位置不统一，这个对于自动化也算是个坑了。

20121666

ppll2030 发表于 2024-1-12 09:50
简单的办法就是统一报表格式。需要数据，就下发一份统一模板填写。
如果你说得上话就这么办，说不上就让 ...

主要是我们部门只是配合完成，有些工作是临时的。

xsg123456

likeyouli 发表于 2024-1-12 08:42
这是啥 ？  有的地方像vba，感觉又不是

wps支持vba宏的同时也支持js宏，因此可以跨平台使用，国产linux系统可以运行js宏，我们称他为jsa

xsg123456

20121666 发表于 2024-1-12 08:54
需要慢慢消化，谢谢，主要是不常接触，自己又笨。以后有问题还请多指教。

这种不规范的表，没法子，只有编程对付

tanchenglong

WPS最新版，直接带工作汇总功能，速度更快

123oo456

tanchenglong 发表于 2024-1-12 16:40
WPS最新版，直接带工作汇总功能，速度更快

对基础表格有要求的，这种的实现不了。

123oo456

xsg123456 发表于 2024-1-11 22:56
给你做 原表不动 新表自动生成  自动总分 排名 的一键版

你好，最近一直在研究你给的那段代码，就是前几天解决EXCEL汇总的那段代码，实际工作中遇到问题，如果有学生缺考一门或者两门就会造成无法统计，需要怎么修改呢，还请大佬指教一下。
另外学习wps的js在哪里有资料可以参考学习，纯属个人爱好，解决一些生活中的小问题的，都需要学习什么

maowang

fg

promrhxq

Excel表格   前来学习了

xsg123456

123oo456 发表于 2024-1-21 17:22
你好，最近一直在研究你给的那段代码，就是前几天解决EXCEL汇总的那段代码，实际工作中遇到问题，如果有 ...

js网上一大堆教程，比如菜鸟教程。至于wps 有关api，官网open.wps.cn。您说的情况代码修改在下楼