通过去掉关键字母获得最短字符问题

xtmyd5156

小凡、、、 发表于 2024-12-27 18:39
vba方案，全是判断

大佬好，刚看了代码，
KEY是未知的是需要分析得到的。

wintroop

Power Query 解法，最小长度有多个不同方案或结果时，不同方案的KEY和RESULT去重后用“ 或 ”隔开， 结果见18-31行

xtmyd5156

wintroop 发表于 2024-12-28 10:19
Power Query 解法，最小长度有多个不同方案或结果时，不同方案的KEY和RESULT去重后用“ 或 ”隔开， 结果见 ...

大佬厉害，可惜PQ不会，也不支持，函数或VBA方法可以吗？

edwin11891

玩一玩，受在7楼的SUBSTITUES全部替换方法有瑕疵的影响，结果不太理想，不折腾了。

wintroop

xtmyd5156 发表于 2024-12-28 11:35
大佬厉害，可惜PQ不会，也不支持，函数或VBA方法可以吗？

函数解法见E列，好长啊！运煤专列来了！
E4=LET(a,SEQUENCE(LEN(A4)-1),
b,VSTACK(a,UNIQUE(TOCOL(IF(a<TOROW(a+1),a&"\"&TOROW(a+1),"")))),
c,IFNA(IF(ISNUMBER(b),REPLACE(A4,b,1,""),REPLACE(REPLACE(A4,TEXTAFTER(b,"\"),1,""),TEXTBEFORE(b,"\"),1,"")),A4),
d,MAP(c,LAMBDA(x,REDUCE(,MID(x,SEQUENCE(LEN(x)),1),LAMBDA(y,z,IF(RIGHT(y)=z,LEFT(y,LEN(y)-1),y&z))))),
e,IFNA(IF(ISNUMBER(b),MID(A4,b,1),MID(A4,TEXTBEFORE(b,"\"),1)&IF(TEXTAFTER(b,"\")-TEXTBEFORE(b,"\")=1,"","\")&MID(A4,TEXTAFTER(b,"\"),1)),""),
f,e&" | "&d&" | "&LEN(c)-LEN(d)&" | "&IF(LEN(c)-LEN(d)>=LEN(SUBSTITUTE(e,"\",""))*2,"是","否")&" | "&LEN(d),
g,IF(SUM(--MAP(f,LAMBDA(k,AND(LEN(INDEX(TEXTSPLIT(k," | "),1))=0,INDEX(TEXTSPLIT(k," | "),4)="是",INDEX(TEXTSPLIT(k," | "),5)="0")))),0,
        IF(SUM(--MAP(f,LAMBDA(m,AND(LEN(INDEX(TEXTSPLIT(m," | "),1))=1,INDEX(TEXTSPLIT(m," | "),4)="是",INDEX(TEXTSPLIT(m," | "),5)="1")))),1,
                MIN(MAP(FILTER(f,MAP(f,LAMBDA(n,INDEX(TEXTSPLIT(n," | "),4)="是"))),LAMBDA(s,--INDEX(TEXTSPLIT(s," | "),5)))))),
h,FILTER(f,MAP(f,LAMBDA(t,AND(INDEX(TEXTSPLIT(t," | "),4)="是",INDEX(TEXTSPLIT(t," | "),5)=g&"")))),
i,TEXTJOIN(CHAR(10),,UNIQUE(h)),
i)

我的城市你来过

=REGEXP(B4,"\w")

xtmyd5156

沉默老王王佬给出的解决方法，佩服佩服=LET(a,ROW($1:$12),r,ROW($2:$11),b,TOROW(r),c,MID(A4,a,1),d,TOCOL(IFS(r=b,r,(b-r)=1,r&"+"&b,r<b,r&-b),2),e,REGEXP(MAP(d,LAMBDA(x,CONCAT(REPT(c,BYROW(REGEXP(x,"\d+")-a,AND))))),"(.)(?R)*\1",2),f,LEN(e),g,MAP(d,LAMBDA(y,TEXTJOIN(IF(COUNT(-y),"\",""),,INDEX(c,REGEXP(y,"\d+"))))),h,TAKE(SORTBY(HSTACK(g,e,f),f+LEN(g)),1),IF(OR(h<8),h,HSTACK("",A4,12)))

cjh-01

太牛了，做个记号

xtmyd5156

是的，这个王佬神一样的存在

wj65134

xtmyd5156 发表于 2025-3-21 21:24
沉默老王王佬给出的解决方法，佩服佩服=LET(a,ROW($1:$12),r,ROW($2:$11),b,TOROW(r),c,MID(A4,a,1),d,TOCO ...

再精简一下，总觉得有点勉强，某些特殊情况下不一定正确

1. =LET(a,ROW($1:$12),b,TOROW(a),c,TOCOL(IFS(a=b,a,b-a=1,a&"+"&b,1,a&-b)),r,REGEXP(MAP(c,LAMBDA(x,CONCAT(REPT(MID(A4,a,1),BYROW(REGEXP(x,"\d+")-a,AND))))),"(.)(?R)*\1",2),l,LEN(r),k,MAP(c,LAMBDA(y,TEXTJOIN(REPT("",COUNT(-y)),,MID(A4,REGEXP(y,"\d+"),1)))),j,TAKE(SORTBY(HSTACK(k,r,l),l+LEN(k)/1.5),1),IF(OR(j<8),j,HSTACK("",A4,12)))

复制代码