划分字母区间（已结贴）

tchh666

1. =MID(LEFT(A$2,SMALL(MMULT(1-ISERR(FIND(LEFT(MID(A$2,ROW($1:33)+COLUMN(A:Z),1)&0),LEFT(A$2,ROW($1:33)))),Z1:Z26+1)*33+ROW($1:33),ROW(A1))),SUM(LEN(B$1:B1))-2,33)

复制代码

03版本火车。。

象山海鲜

tchh666 发表于 2023-8-19 10:02
03版本火车。。

没思路，挖下墙角

1. =MID(LEFT(A$2,SMALL(MMULT(DDB(ROW($2:34),FIND(LEFT(MID(A$2,ROW($1:33)+COLUMN(A:Z),1)&0),A$2&0),1,1),Z1:Z26+33)+ROW($1:33),ROW(A1))),SUM(LEN(B$1:B1))-2,33)

复制代码

丢丢表格

象山海鲜 发表于 2023-8-19 18:13
没思路，挖下墙角

你们都喜欢 历遍法？？


那我也来做一个。。。。
=MID(LEFT(A$2,SMALL(MMULT(N(FIND(LEFT(MID(A$2,ROW($1:40)+COLUMN(A:Z),1)&1),A$2&1)<ROW($2:41)),Z1:Z26+77)+ROW($1:40),ROW()-1)),SUM(LEN(B$1:B1))-2,40)

象山海鲜

丢丢表格 发表于 2023-8-20 09:29
你们都喜欢 历遍法？？

腻害，思路又简洁了

cinlo

丢丢表格 发表于 2023-8-20 09:29
你们都喜欢 历遍法？？

刚刚改了一下公式，发现跟老师撞车了。。。哦，还是不太一样！！！2003版本，148字符

1. =MID(LEFT(A$2,SMALL((MMULT(-ISERR(FIND(MID(A$2,COLUMN(A:AM),1),A$2,ROW($2:40))),Z1:Z39-1)<ROW($1:39))*99+ROW($1:39),ROW(A1))),SUM(LEN(B$1:B1))-2,39)

复制代码

zpy2

参与一下，不知道有没有bug.

=filterxml(WEBSERVICE("http://e.anyoupin.cn/eh3/?divideString~" & A2),"/a/b");

<?php
//举例 abacbd;
//$arr[1]="zabacbd";
$strTotalLength=strlen($arr[1]);
$iMaxPosition=0;//历史字符最大位置
$newStr='';
for($i=0;$i<$strTotalLength;$i++){
//echo substr($arr[1],$i,1);
//echo strrpos($arr[1],substr($arr[1],$i,1));
$currentMax= strrpos($arr[1],substr($arr[1],$i,1));//当前字符的在字符串最大位置
if($iMaxPosition<$currentMax){//如果历史最大位置<当前最大位置，则截断产生新字符串
        if($i<=$iMaxPosition){
        //虽然，第二个字符 b的当前最大位置是5大于 历史位置最大值a的2，但是， 自身位置1小于历史位置2 则不截断
        }else{
//否则，截断到新字符串数组,清空保留的字符串       
        $arrResult[]=$newStr;
        $newStr='';
        }
        $iMaxPosition=$currentMax;//更新历史最大位置
}
        $newStr.=substr($arr[1],$i,1);
       
}
$arrResult[]=$newStr;
$out='<a><b>'.implode('</b><b>',$arrResult).'</b></a>';
//print_r($arrResult);
die($out);

橒♂蝣

B1取空，B2下拉=LET(a,SUBSTITUTE($A$2,CONCAT($B$1:B1),""),
x,MID(a,1,MAX(IFERROR(FIND(LEFT(a,1),a,SEQUENCE(LEN(a))),0))),
字符,TRANSPOSE(UNIQUE(MID(x,SEQUENCE(LEN(x)),1))),
字符位置,IFERROR(FIND(字符,a,SEQUENCE(LEN(a))),0),
MID(a,1,MAX(字符位置))
)

橒♂蝣

=LET(a,SUBSTITUTE($A$2,IF(ROW()=2,"",IF(ROW()=3,$B$2,IF(ROW()>3,CONCAT($B1:B$2)))),""),
x,MID(a,1,MAX(IFERROR(FIND(LEFT(a,1),a,SEQUENCE(LEN(a))),0))),
字符,TRANSPOSE(UNIQUE(MID(x,SEQUENCE(LEN(x)),1))),
字符位置,IFERROR(FIND(字符,a,SEQUENCE(LEN(a))),0),
rr,MID(a,1,MAX(字符位置)),rr
)

wj65134

=EXPAND(LET(a,ROW(1:39),b,MID(A2,a,1),c,MAP(b,LAMBDA(x,XMATCH(x,b,,-1))),TEXTSPLIT(CONCAT(b&MAP(a,LAMBDA(y,IF((INDEX(c,y)>y)+(MAX(TAKE(c,y))>y),"",1)))),,1)),12,,"")
为论坛添气氛，吾东施来效颦。

xlllw203

用了365也开火车，惭愧
先贴上，后面看还有没有优化空间。。。

1. =DROP(TEXTSPLIT(CONCAT(DROP(LET(a,LEN(A2),r,MID(A2,SEQUENCE(a),1),b,FIND(r,A2),c,VSTACK(0,a+1-FIND(r,CONCAT(MID(A2,a+1-SEQUENCE(a),1)))),d,MAP(SEQUENCE(a+1),LAMBDA(x,MAX(TAKE(c,x)))),IF(b>d,1&r,r)),-1)),,1),1)

复制代码

缩短一点

1. =TEXTSPLIT(TEXTAFTER(CONCAT(LET(a,SEQUENCE(LEN(A2)),b,MID(A2,a,1),c,MATCH(b,b,),d,VSTACK(0,XMATCH(b,b,,-1)),e,MAP(a,LAMBDA(x,MAX(TAKE(d,x)))),IF(c>e,1&b,b))),1),,1)

复制代码

再短一点

1. =EXPAND(TEXTSPLIT(CONCAT(LET(a,ROW(1:40),b,MID(A2,a,1),IF(MATCH(b,b,)>MAP(a,LAMBDA(x,MAX(TAKE(VSTACK(0,XMATCH(b,b,,-1)),x)))),1&b,b))),,1,1),10,,"")

复制代码

套一个expand防止溢出