对比两张sheet数据 自动筛选出变化项放入第三章sheet

信任abc

求助各位大师：

A列&B列为唯一值，即只会出现一次“1甲”、“1乙”。
用sheet2对比sheet1，找出不同的项，然后汇总至sheet3

sheet1：


sheet2:（黄色部分是为了提醒有变化）


sheet3：（绿色单元格为最终需要的效果）


附EXCEL，请教各位大师是否能用EXCEL解决这个问题呢？

edwin11891

看似简单，操作起来结果拉了个火车：

1. =LET(sha,Sheet1!A2:B10,shb,Sheet2!A2:B11,sRc,VSTACK(FILTER(sha,TAKE(sha,,1)<>""),FILTER(shb,TAKE(shb,,1)<>"")),s,BYROW(sRc,CONCAT),a,REDUCE(A1:F1,UNIQUE(s),LAMBDA(x,y,VSTACK(x,LET(ta,IFERROR(FILTER(OFFSET(sha,,2,,2),y=BYROW(sha,CONCAT)),{"",""}),tb,IFERROR(FILTER(OFFSET(shb,,2,,2),y=BYROW(shb,CONCAT)),{"",""}),tc,IF(CONCAT(ta)<>CONCAT(tb),HSTACK(REGEXP(y,"."),ta,tb),""),tc)))),FILTER(a,TAKE(a,,1)<>""))

复制代码

edwin11891

将重复使用算法定义成函数，公式稍短点：

1. =LET(sha,Sheet1!A2:B10,shb,Sheet2!A2:B11,sRc,VSTACK(FILTER(sha,TAKE(sha,,1)<>""),FILTER(shb,TAKE(shb,,1)<>"")),s,BYROW(sRc,CONCAT),a,REDUCE(A1:F1,UNIQUE(s),LAMBDA(x,y,VSTACK(x,LET(fx,LAMBDA(xx,IFERROR(FILTER(OFFSET(xx,,2,,2),y=BYROW(xx,CONCAT)),{"",""})),ta,fx(sha),tb,fx(shb),tc,IF(CONCAT(ta)<>CONCAT(tb),HSTACK(REGEXP(y,"."),ta,tb),""),tc)))),FILTER(a,TAKE(a,,1)<>""))

复制代码

00JTR00

power query

信任abc

edwin11891 发表于 2024-10-15 20:37
看似简单，操作起来结果拉了个火车：

我先试试 谢谢大师！

信任abc

edwin11891 发表于 2024-10-15 20:37
看似简单，操作起来结果拉了个火车：

您好，为什么我用您这个公式就显示报错呢？是我EXCEL版本问题吗？

edwin11891

信任abc 发表于 2024-10-15 22:32
您好，为什么我用您这个公式就显示报错呢？是我EXCEL版本问题吗？

版本低了，另外你这是EXCEL，需要将WPS专属的REGEXP函数替换为下面的方法，同时避免序号超过1位数字时出错：

1. =LET(sha,Sheet1!A2:B10,shb,Sheet2!A2:B11,sRc,VSTACK(FILTER(sha,TAKE(sha,,1)<>""),FILTER(shb,TAKE(shb,,1)<>"")),s,BYROW(sRc,CONCAT),a,REDUCE(A1:F1,UNIQUE(s),LAMBDA(x,y,VSTACK(x,LET(fx,LAMBDA(xx,IFERROR(FILTER(OFFSET(xx,,2,,2),y=BYROW(xx,CONCAT)),{"",""})),ta,fx(sha),tb,fx(shb),tc,IF(CONCAT(ta)<>CONCAT(tb),HSTACK(LEFT(y,2*LEN(y)-LENB(y)),RIGHT(y,LENB(y)-LEN(y)),ta,tb),""),tc)))),FILTER(a,TAKE(a,,1)<>""))

复制代码

相应地，为避免序号超过1位数字时出错，WPS版的公式也稍作修改为：

1. =LET(sha,Sheet1!A2:B10,shb,Sheet2!A2:B11,sRc,VSTACK(FILTER(sha,TAKE(sha,,1)<>""),FILTER(shb,TAKE(shb,,1)<>"")),s,BYROW(sRc,CONCAT),a,REDUCE(A1:F1,UNIQUE(s),LAMBDA(x,y,VSTACK(x,LET(fx,LAMBDA(xx,IFERROR(FILTER(OFFSET(xx,,2,,2),y=BYROW(xx,CONCAT)),{"",""})),ta,fx(sha),tb,fx(shb),tc,IF(CONCAT(ta)<>CONCAT(tb),HSTACK(REGEXP(y,{"(\d+)","[一-龟]+"}),ta,tb),""),tc)))),FILTER(a,TAKE(a,,1)<>""))

复制代码

mjm04

信任abc 发表于 2024-10-15 22:32
您好，为什么我用您这个公式就显示报错呢？是我EXCEL版本问题吗？

版本低了，EXCEL 要M365才有正则函数；并且 与 WPS 的函数名称不一样，需要换名字