跨表查询-字典应用问题

1989362031

各位大哥，
根据【商品名称】，点击【按钮】，查找【商品名称】对应的【销售价格】（商品价格在sheet3），然后把结果返回到sheet2 对应的【I例】。

求方法，很久没写字典了，很生疏求代码，谢谢！

LIUZHU

1. function 查找价格(){
   
2.         let arr=ThisWorkbook.Sheets.Item("sheet3").Range("g1").CurrentRegion.Value2;
   
3.         let newarr=ThisWorkbook.Sheets.Item("Sheet2").Range("g1").CurrentRegion.Value2;
   
4.         let obj=new Object();
   
5.         for (let ar of arr){
   
6.                 obj[ar[0]]=ar[1];
   
7.         }
   
8.         for (let ar of newarr){
   
9.                 ar[2]=obj[ar[0]] || undefined;
   
10.         }
    
11.         ThisWorkbook.Sheets.Item("Sheet2").Range("g1").CurrentRegion.Value2=newarr;
    
12. }

复制代码

紫色海水

1. var c1 = Sheets.Item("sheet3").Cells,c2 = Sheets.Item("Sheet2").Cells;
   
2. var r1 = c1.Item(65536,7).End(3).Row,r2 = c2.Item(65536,7).End(3).Row;
   
3. var m = new Map();
   
4. for(var i=2;i<=r1;i++){
   
5.         m.set(c1.Item(i,7).Value2,c1.Item(i,8).Value2);
   
6. }
   
7. for(var i=2;i<=r2;i++){
   
8.         c2.Item(i,9).Value2 = m.get(c2.Item(i,7).Value2)
   
9. }

复制代码

紫色海水

11111