提取编码

ddz79101

老师，我希望根据单元格后半部的票号提取编码。请老师指点。谢谢

袁勇

=IF(F5=F4,"",LOOKUP(1,0/FIND(库存!D$2:D$10,F5),库存!F$2:F$10))

liulang0808

liulang0808

供参考。。。。。。

ddz79101

袁勇 发表于 2025-1-10 10:57
=IF(F5=F4,"",LOOKUP(1,0/FIND(库存!D$2:D$10,F5),库存!F$2:F$10))

谢谢老师！提取成功

ddz79101

liulang0808 发表于 2025-1-10 11:13
供参考。。。。。。

谢谢老师！运行成功

wang-way

1. function main(){
   
2.         sht1=ThisWorkbook.Worksheets.Item('库存');
   
3.         ar=sht1.Range('a1').CurrentRegion.Value2;
   
4.         d={}; k='';
   
5.         ar.forEach(r=>{d[r[3]]=r[5]});
   
6. 
   
7.         sht2=ThisWorkbook.Worksheets.Item('项目');
   
8.         lastRow=sht2.Cells(sht2.Rows.Count,6).End(3).Row;
   
9.         for(let i=5;i<=lastRow;i++){
   
10.                 s=sht2.Cells(i,6).Value2;
    
11.                 if(k!=s.match(/\d+$/)[0]){
    
12.                         k=s.match(/\d+$/)[0];
    
13.                         sht2.Cells(i,13).Value2=d[k];
    
14.                 }       
    
15.         }
    
16.        
    
17. }

复制代码

gwjkkkkk

gwjkkkkk

请参考附件，，，

ddz79101

gwjkkkkk 发表于 2025-1-10 20:08
请参考附件，，，

谢谢老师！运行成功