AB列对比找差异，快速数值查找

xunjingrui

AB列对比找差异，快速数值查找，已完成

良良

公式解法，数组三键，下拉。
D2=IFERROR(INDEX(A:A,SMALL(IF(ISNA(VLOOKUP(T(IF({1},A$2:A$9)),B:B,1,)),ROW($2:$9),4^8),ROW(A1)))&"","")
E2=IFERROR(INDEX(B:B,SMALL(IF(ISNA(VLOOKUP(T(IF({1},B$2:B$19)),A:A,1,)),ROW($2:$19),4^8),ROW(A1)))&"","")
F2=IFERROR(INDEX(A:A,SMALL(IF(ISTEXT(VLOOKUP(T(IF({1},A$2:A$9)),B:B,1,)),ROW($2:$9),4^8),ROW(A1)))&"","")

jiaxianwa

良良 发表于 2022-12-7 19:23
公式解法，数组三键，下拉。
D2=IFERROR(INDEX(A:A,SMALL(IF(ISNA(VLOOKUP(T(IF({1},A$2:A$9)),B:B,1,)),R ...

老师厉害，大牛

pc087

jeff_ps2009

pc087 发表于 2022-12-9 09:07

PQ，学习了~

lhgcore

来个jsa的，还得9个字

Again123456

为什么插入不了代码？

1. let A=Range("a2:a"+Cells(Rows.Count,1).End(xlUp).Row).Value2.flat();
   
2.         let B=Range("b2:b"+Cells(Rows.Count,2).End(xlUp).Row).Value2.flat();
   
3.         let AB=[];
   
4.         for(let i=0;i<A.length;i++){
   
5.                 for(let j=0;j<B.length;j++){
   
6.                         if(A[i]==B[j]){
   
7.                                 AB.push(A[i]);
   
8.                                 A.splice(i,1,null);
   
9.                                 B.splice(j,1,null);
   
10.                                 break
    
11.                         }
    
12.                 }
    
13.         }
    
14.         A=A.filter(v=>v!=null);
    
15.         B=B.filter(v=>v!=null);
    
16.         Range("d1").CurrentRegion.ClearContents();
    
17.         Range("d1:f1").Value2=["A独有","B独有","AB共有"];
    
18.         Range("d2").Resize(A.length,1).Value2=A.map(v=>[v]);
    
19.         Range("e2").Resize(B.length,1).Value2=B.map(v=>[v]);
    
20.         Range("f2").Resize(AB.length,1).Value2=AB.map(v=>[v]);

复制代码

今铭昔

wodewan

lhgcore 发表于 2022-12-9 16:46
来个jsa的，还得9个字

喜欢这种代码风格，层次分明，自执行函数、原型对象、this，在这一题里用的恰到好处，赞一个！

495153973

lhgcore 发表于 2022-12-9 16:46
来个jsa的，还得9个字

我电脑提示最后22至30行代码不在函数内，无法运行