哥哥们，怎么使起讫桩号可以按间隔自动拆分

全都是已注册

哥哥们，怎么使起讫桩号可以按间隔自动拆分

我走我流

仅供 can k  =TEXTJOIN("-",,TEXT(TEXT(LEFT(SUBSTITUTE(SUBSTITUTE($B$1,"K",),"+",),6)+ROW(A1)*{0,500},"[<"&RIGHT(SUBSTITUTE(SUBSTITUTE($B$1,"K",),"+",),6)&"]0;"""&RIGHT(SUBSTITUTE(SUBSTITUTE($B$1,"K",),"+",),6)&""""),"K000+000"))

象山海鲜

1. =LET(a,--MID(TEXTSPLIT(SUBSTITUTE(B1,"+",),"~"),2,9),MAKEARRAY(-INT(NPV(-2,-a)/B3),1,LAMBDA(x,y,TEXT(@a+(x-1)*B3,"K0+000~")&TEXT(MEDIAN(a,@a+x*B3),"K0+000"))))

复制代码

1007890405

=TEXT(SEQUENCE(((MID(B1,11,3)&MID(B1,15,3))-(MID(B1,2,3)&MID(B1,6,3)))/B3+1,1,(MID(B1,2,3)&MID(B1,6,3)),B3)&TEXT(SEQUENCE(((MID(B1,11,3)&MID(B1,15,3))-(MID(B1,2,3)&MID(B1,6,3)))/B3+1,1,(MID(B1,2,3)&MID(B1,6,3))+B3,B3),  "[<"&(MID(B1,11,3)&MID(B1,15,3))&"]0;"&""""&(MID(B1,11,3)&MID(B1,15,3))&"""" ),"K000+000-K000+000")
哈哈，凑数来了，不知道为什么比楼上大神多那么多

良良

D1=IF(ROW(A1)>ROUND(NPV(-2,--MID(SUBSTITUTE(SUBSTITUTE(B$1,"K",),"+",),{1,8},6))/500,),"",TEXT(LEFT(SUBSTITUTE(SUBSTITUTE(B$1,"K",),"+",),6)+500*(ROW(A1)-1),"K000+000")&"~"&TEXT(MIN(LEFT(SUBSTITUTE(SUBSTITUTE(B$1,"K",),"+",),6)+500*ROW(A1),RIGHT(SUBSTITUTE(SUBSTITUTE(B$1,"K",),"+",),6)),"K000+000"))

橒♂蝣

辅助列D9:G9:104 450 104 950,公式D10,下拉=
"K"&$D9+(IF(E9+500>1000,1,0))&"+"&MOD($E9+500,1000)&"-K"&$F9+(IF(G9+500>1000,1,0))&"+"&MOD($G9+500,1000)

全都是已注册

我走我流 发表于 2023-7-15 12:08
仅供 can k  =TEXTJOIN("-",,TEXT(TEXT(LEFT(SUBSTITUTE(SUBSTITUTE($B$1,"K",),"+",),6)+ROW(A1)*{0,500}, ...

超过500了有问题

全都是已注册

象山海鲜 发表于 2023-7-15 12:24

感谢，可以实现，谢谢

alan57

1. =LET(_a,TEXTSPLIT(B1,{"K","+"},"~",1),_b,TEXTSPLIT(B1,_a),_c,SUM(TAKE(_a,,1)*{-1;1})+1,_d,SEQUENCE(_c,,@TAKE(_a,,1),1),_e,IF({1,0},_d,@TAKE(_a,,-1)),_f,IF({1,0},_d,@TAKE(_a,,-1)+B3),_g,VSTACK(DROP(_e,1),DROP(_f,-1)),_g1,VSTACK(TAKE(_a,1),SORT(--VSTACK(_g,_g),{1,2}),TAKE(_a,-1)),_h,WRAPROWS(TOCOL(_g1),4),BYROW(_h,LAMBDA(x,TEXTJOIN(x,0,_b))))

复制代码

硬凑的，变化后也能得到结果。还是海鲜版主的简洁，主要我是小菜看不懂版主的公式。

ggmmlol

桩号展开是外线工程常见问题。365版可以解决，但公式仍繁琐，低版本或WPS就更麻烦了。所以，编写一个自定义函数，来解决此问题。
该函数有3个参数：起、止桩号值和间隔值。返回结果：一维数组

自动编桩号.rar (12.39 KB, 下载次数: 10)

2023-7-17 00:48 上传

点击文件名下载附件