将竖列内容分组后变为横排显示

fs5267

如附件表格中的内容，内容与内容之间相隔的有空行，空行的数量也是不一定的。每个订单号的起始字符是“#”，想要把表1的内容整理到表2中，表2是想要的最终的显示方式：第一：所有相隔的空行都不要，内容要连惯。第二：以带有#字符的订单号为准另起一行。第三：每个订单的内容的数量不一定相同，有的内容有四项，有的内容有七项，想要把第个订单的最后两项内容从M列开始排列。

另外，这个怎么打赏。我这总是问问题，大家帮助了我，我想感谢一下。找不着打赏的选项

liulang0808

vba处理的供参考

fs5267

liulang0808 发表于 2025-4-1 10:58
vba处理的供参考

必须用vba吗？用公式可以不?复杂一点也行。

wp231957

苏小亓

1. =LET(a,SCAN(0,REGEXTEST(A1:A67,"#\d+$"),LAMBDA(x,y,IF(y,INT(x)+y,x+y+(1-y)%))),DROP(PIVOTBY(INT(a),ROUND(MOD(a,1),2),A1:A67&"",CONCAT,,0,,0),1,1))

复制代码

能力有限只能做这样的。

无关岁月

火车来了

1. =LET(a,TOCOL(IF(A1:A67="",x,A1:A67),3),b,SCAN(0,LEFT(a)="#",SUM),DROP(REDUCE("",UNIQUE(b),LAMBDA(x,y,VSTACK(x,LET(n,FILTER(a,y=b),TOROW(VSTACK(DROP(n,-4),EXPAND("",16-ROWS(n),,""),TAKE(n,-4))))))),1))

复制代码

紫川文秀

=LET(arr,TEXTSPLIT(TEXTJOIN("|",,FILTER(A:A,A:A<>"")),,"#"),brr,"#"&FILTER(arr,arr<>""),IF(RIGHT(brr)="|",LEFT(brr,LEN(brr)-1),brr))

yzfsz

生堆出来的
=LET(X,VSTACK(SCAN(0,IF(LEFT(TOROW(A:A,3),1)="#",1,0),LAMBDA(a,b,a+b)),TOROW(A:A,3)),FILTER(CHOOSEROWS(X,2),CHOOSEROWS(X,1)=ROW()))

你是那块小饼干

=LET(T,SCAN(0,Sheet1!A1:A67,LAMBDA(X,Y,IF(ISNUMBER(FIND("#",Y)),X+1,X))),REDUCE("",UNIQUE(T),LAMBDA(_X,_Y,VSTACK(_X,TOROW(FILTER(Sheet1!A1:A67,(_Y=T)*(Sheet1!A1:A67<>""),""))))))

快乐王子238

加我13797169385给你公式