老师们，求救啊

ZHANG88888888

A2输入(ZILAIO)表格A列下的内容时，（DNAPIN）表格B列标题下就显示（ZILAIO）D列下的内容。

A2输入(ZILAIO)表格B列下的内容时，（DNAPIN）表格B列标题下就显示（ZILAIO）E列下的内容,(因为ZILAOB列下的内容有相同的，需要将他对应的都引用到DNAPING表格B列中。

紫色海水

1. var c = Sheets.Item("ZILIAO").Cells;
   
2. var r = c.Item(65536,1).End(3).Row;
   
3. var m = new Map();
   
4. for(var i=2;i<=r;i++){
   
5.         var str = c.Item(i,2).Value2;
   
6.         var str2 = c.Item(i,5).Value2
   
7.         if(!m.has(str)){
   
8.                 m.set(str,[str2]);
   
9.         }else{
   
10.                 m.get(str).push(str2);
    
11.         }
    
12. }
    
13. var c1 = Sheets.Item("DNAPIN").Cells;
    
14. var brr = m.get(c1.Item(2,1).Value2).reduce(function(x,y){
    
15.         if(x.indexOf(y) === -1){
    
16.                 x.push(y)
    
17.         }
    
18.         return x
    
19. },[])
    
20. for(var i=0;i<brr.length;i++){
    
21.         c1.Item(i+2,2).Value2 = brr[i];
    
22. }
    

复制代码

紫色海水

代码在审核   

LIUZHU

这东西用公式解决即可，但是建议增加一个辅助列

LIUZHU

1. function Workbook_SheetChange(Sh,rg){
   
2.         if (Sh.Name!="DNAPIN") return;
   
3.         if (rg.Address(0,0)!="A2") return;
   
4.         let findstr=rg.Value2;
   
5.         let arr=new Array();
   
6.         arr=ThisWorkbook.Sheets.Item("ZILIAO").UsedRange.Value2;
   
7.         let hwarr=new Array(["货位+色号"])
   
8.         let hsarr=new Array(["货位+色号"]);
   
9.         for (ar of arr){
   
10.                 if (ar[0]==findstr) hwarr.push([ar[3]]);
    
11.                 if (ar[1]==findstr) hsarr.push([ar[4]]);
    
12.         }
    
13.         Range("b:b").ClearContents();
    
14.         if (hwarr.length>1){
    
15.                 Sh.Range("b1").Resize(hwarr.length,1).Value2=hwarr;
    
16.         }else if(hsarr.length>1){
    
17.                 Sh.Range("b1").Resize(hsarr.length,1).Value2=hsarr;
    
18.         }
    
19. }

复制代码

LIUZHU

附件在此，请测试

ZHANG88888888

大神啊，麻烦帮忙解答一下

ZHANG88888888

紫色海水 发表于 2022-6-30 16:13

大神啊，谢谢你，但能不能横向显示结果，我想问你这是VBA吗，还是JS，我不太懂。VBA可以跟JS一起用吗？可以给我VBA吗？

紫色海水

ZHANG88888888 发表于 2022-6-30 17:42
大神啊，谢谢你，但能不能横向显示结果，我想问你这是VBA吗，还是JS，我不太懂。VBA可以跟JS一起用吗？可 ...

这是JSA
你可以看看你的版本是否支持JSA
如果不支持，可以在VBA专区向其他老师求助

scnc001

ZHANG88888888 发表于 2022-6-30 17:42
大神啊，谢谢你，但能不能横向显示结果，我想问你这是VBA吗，还是JS，我不太懂。VBA可以跟JS一起用吗？可 ...

你发的是JS区，别人当然用JS解答啦。。。