修改代码

ddz79101

gwjkkkkk 发表于 2024-6-3 21:40
。。。。。。。。。

老师！花用完看了。后补额

ddz79101

chxw68 发表于 2024-6-3 21:44
修改好了。

谢谢老师！代码运行成功！还是个双向的。谢谢！花用完了。后补

quqiyuan

ddz79101 发表于 2024-6-3 21:09
谢谢老师！运行成功！可以再帮忙看看，没有提取到的涂色，现有代码方向烦了。

不知道是不是这个意思，供参考

ddz79101

quqiyuan 发表于 2024-6-3 22:03
不知道是不是这个意思，供参考

谢谢老师！代码成功运行！花没有了，后补

ykcbf1100

ddz79101 发表于 2024-6-3 21:10
谢谢老师！运行成功！可以再帮忙看看，没有提取到的涂色，现有代码方向烦了。

小改一下即可。

LIUZHU

开个张吧，今天才开始写代码

LIUZHU

JSA代码，WPS有效

1. function 匹配(){
   
2.         const obj=Sheets.Item("票").Range("d2:i855").Value2.reduce((obj,[a,,,b,c,d])=>{
   
3.                 return obj[a]=[b,c,d],obj;
   
4.         },{});
   
5.         let res=Sheets.Item("中心").Range("d2:d43").Value2.map(([x])=>obj[x]);
   
6.         Range("f2").Resize(res.length,res[0].length).Value2=res;
   
7. }

复制代码

LIUZHU

附件，WPS打开，运行JS宏

阿白0

直接用函数公式不就行了么？
=VLOOKUP($D6,票!$D$1:$I$855,MATCH(中心!G$1,票!$D$1:$I$1,0),FALSE)

ddz79101

阿白0 发表于 2024-6-4 17:00
直接用函数公式不就行了么？
=VLOOKUP($D6,票!$D$1:$I$855,MATCH(中心!G$1,票!$D$1:$I$1,0),FALSE)

谢谢老师！