求教，Excel表格问题

xsg123456

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

1. function main(){
   
2.         //主程序
   
3.         let  files = ["语文","数学","英语"]
   
4.         let data = sjqx(files).map(v=>(v.splice(4,1),v))
   
5.         data.unshift(["学号","姓名","得分","座号","科目"])
   
6.         let res = flhz(data)
   
7.         Range("a1").ClearContents()
   
8.         Range("a1").Resize(res.length,res[0].length).Value2 = res
   
9.        
   
10. }
    
11. 
    
12. 
    
13. function flhz(data){
    
14.         //分类汇总
    
15.         let [rowN,colN,row,col,res] = [0,0,{},{},[]]
    
16.         data.forEach((cur) =>{
    
17.                 if(!row[cur[1]]){
    
18.                         row[cur[1]] = rowN ++
    
19.                         res.push([cur[0],cur[1],cur[3]])
    
20.                 }
    
21.                 if(!col[cur[4]]) {
    
22.                         col[cur[4]] = 3 + colN ++
    
23.                         res[0][col[cur[4]]] = cur[4]
    
24.                         res[row[cur[1]]][col[cur[4]]]= cur[2]
    
25.                 } else{
    
26.                         res[row[cur[1]]][col[cur[4]]]= cur[2]
    
27.                 }
    
28.                
    
29.         })
    
30.         res = res.map(v=>(v[3]=v[6]+v[4]+v[5],v)).sort((a,b)=>b[3]-a[3])
    
31.         return res
    
32. }
    
33. 
    
34. function readLine(arr){
    
35.         //一行重复数据切割
    
36.         let tmp = []
    
37.         while(arr.length>0){
    
38.                 if (arr.length>5) {
    
39.                         tmp.push(arr.splice(0,5))
    
40.                 }else{
    
41.                         tmp.push(arr.splice(0))
    
42.                 }
    
43.         }
    
44.         return tmp
    
45. }
    
46. 
    
47. function sjqx(files){
    
48.         //数据清洗
    
49.         let path = ThisWorkbook.Path
    
50.         let data =[]
    
51.         files.forEach(name =>{
    
52.                 let wb = Application.Workbooks.Open( path + `\\${name}.xlsx`)
    
53.                 let tmp = wb.Sheets("Sheet1").Range("a2").CurrentRegion.Value2.slice(1)
    
54.                 tmp = tmp.map(v => readLine(v)).flat().filter(v => v[0])
    
55.                 tmp = tmp.map (v => [...v,name])
    
56.                 data.push(...tmp)
    
57.                 wb.Close()               
    
58.    })
    
59.    return data
    
60. }
    

复制代码

无犹启动

学习学习

此生有求

大神还是多，以后有不懂有指望了

hehuiying

谢谢分享