JSA匹配问题

hmy16888

以前VBA可以做数据内容匹配，现在换成国产WPS的JSA搞不懂了。


sheet“需要匹配内容”的E列（黄色部分）是空白的，每个表大概有几千行。我想根据sheet“匹配标准”E列（绿色部分）的对应内容，自动将对应的识别条码号放入“需要匹配内容”的E列（黄色部分）。谢谢大佬！

JSA匹配.rar (10.84 KB, 下载次数: 16)

2024-10-13 15:18 上传

点击文件名下载附件

yangqianming

小白练习一下。

JSA匹配.rar (12.89 KB, 下载次数: 4)

2024-10-13 19:28 上传

点击文件名下载附件

yangqianming

这样快点儿。

1. function pp() {
   
2.     let arr = Sheets('需要匹配内容').Range('b3:d' + Sheets('需要匹配内容').Range('b3').End(xlDown).Row).Value();
   
3.     let guize = Sheets('匹配标准').Range('b3:e' + Sheets('匹配标准').Range('e3').End(xlDown).Row).Value();   
   
4.     let guizeMap = new Map();
   
5.     guize.forEach(e => {
   
6.         let key = e[0] + e[1] + e[2];
   
7.         if (!guizeMap.has(key)) {
   
8.             guizeMap.set(key, e[3]);
   
9.         }
   
10.     });   
    
11.     arr.forEach(ar => {
    
12.         let key = ar[0] + ar[1] + ar[2];
    
13.         if (guizeMap.has(key)) {
    
14.             ar.push(guizeMap.get(key));
    
15.         }
    
16.     });   
    
17.     Sheets('需要匹配内容').Range('b3').Resize(arr.length, arr[0].length).Value2 = arr;
    
18. }

复制代码

lizhipei78

小白练习一下

lizhipei78

就你这个题，一个VLOOKUP搞定了啦，何必大动刀子，VLOOKUP十万数据秒出

sdytsxd991122

yangqianming 发表于 2024-10-13 19:41
这样快点儿。

第一行改一下后，再运行代码看看

grf1973

JSA又好久没用了，练练手。

Again123456

yangqianming 发表于 2024-10-13 19:41
这样快点儿。

开始找题练手了啊

yangqianming

Again123456 发表于 2024-10-14 15:24
开始找题练手了啊

我就从您哪儿学习了点儿基础，看到您原来代码里面我似懂非懂的就试试看，不行我这进展太慢。谢谢您不厌其烦的指导！

yangqianming

sdytsxd991122 发表于 2024-10-14 14:47
第一行改一下后，再运行代码看看

对，匹配不到就歇菜了！感谢提醒！