跨表提取特定字段数据到新表格

LIUZHU

JSA代码，供参考

1. function 提取(){
   
2.         Workbooks.Open(`${ThisWorkbook.Path}\\数据源.xlsx`);
   
3.         let arr=Range("a1").CurrentRegion.Value2;
   
4.         ActiveWorkbook.Close(false);
   
5.         let obj=arr[0].reduce((dic,x,i)=>(dic[x]=i,dic),{});
   
6.         let bt=Sheets.Item("名单").Range("a2").CurrentRegion.Value2[1];
   
7.         let res=arr.slice(1).reduce((res,x)=>{
   
8.                 let temp=bt.reduce((temp,y,i)=>(temp[i]=x[obj[y]],temp),[]);
   
9.                 temp[0]=x[obj.申请人];                //姓名
   
10.                 return (res.push(temp),res);
    
11.         },[]);
    
12.         Range("a3").Resize(res.length,res[0].length).Value2=res;
    
13. }

复制代码

LIUZHU

网站卡死了吗，不能上传附件了？

LIUZHU

附件，WPS测试

yanglinzi

参与一下。。

cristter

ykcbf1100 发表于 2024-3-28 16:38
参与一下。。。

感谢大神指导！！！！

cristter

fzxba 发表于 2024-3-28 17:15
怎么传不了附件？

感谢提供帮助，大神万岁！！

cristter

fzxba 发表于 2024-3-28 17:15
怎么传不了附件？

感谢大神指导！！！多谢多谢！！！

cristter

xlj310 发表于 2024-3-28 17:24
我也参与一下，思路跟上面版主的差不多，可以说是雷同   我这个做的是通用的。供参考吧~

多谢分享，我也会学习下大神您的这个作品~~~

cristter

LIUZHU 发表于 2024-3-28 17:27
目前是这个效果

多谢大神指导！！！太厉害了。哈哈哈哈

cristter

yanglinzi 发表于 2024-3-28 19:23
参与一下。。

感谢大神相助！！！！小弟感激