数据分列求助

cnmlgb9998 · 发表于 2024-3-28 13:07

PQ 专长。。。。。。。。。。。。。

cnmlgb9998 · 发表于 2024-3-28 13:08

PQ 专长。。。。。。。。。。。。。

cnmlgb9998 · 发表于 2024-3-28 16:22

PQ 一步到位！！！！！！！！！！！！！！！

l346035379 · 发表于 2024-3-28 19:08

cnmlgb9998 发表于 2024-3-28 16:22
PQ 一步到位！！！！！！！！！！！！！！！

大佬求代码

一杯绿茶来了 · 发表于 2024-3-28 19:38

=LET(s,SCAN(0,A1:A1739,LAMBDA(x,y,IF(RIGHT(y)="号",x+1,x))),a,UNIQUE(s),DROP(REDUCE("",a,LAMBDA(x,y,IFNA(HSTACK(x,FILTER(A1:A1739,s=y)),""))),,1))
365公式

edwin11891 · 发表于 2024-3-28 20:21

一杯绿茶来了发表于 2024-3-28 19:38
=LET(s,SCAN(0,A1:A1739,LAMBDA(x,y,IF(RIGHT(y)="号",x+1,x))),a,UNIQUE(s),DROP(REDUCE("",a,LAMBDA(x,y, ...

写了个完全一样的公式，除了“号”-“订单号”，也是因为考虑通用性，比如“订单号”换成“一班”、“二班”时可用。

l346035379 · 发表于 2024-3-28 21:15

一杯绿茶来了发表于 2024-3-28 19:38
=LET(s,SCAN(0,A1:A1739,LAMBDA(x,y,IF(RIGHT(y)="号",x+1,x))),a,UNIQUE(s),DROP(REDUCE("",a,LAMBDA(x,y, ...

谢谢大佬指点

swl4561255 · 发表于 2024-3-29 08:16

Sub test()
ar = [A1].End(4).Row
For i = 1 To ar
10:
If Cells(i, 1) = "订单号" Then
For j = i + 1 To ar
If Cells(j, 1) = "订单号" Then
m = m + 1
Cells(i, 1).Resize(j - i, 1).Copy Sheets("sheet2").Cells(1, m)
i = j
GoTo 10
End If
Next
End If
Next
End Sub

复制代码

l346035379 · 发表于 2024-3-30 07:49

swl4561255 发表于 2024-3-29 08:16

谢谢大佬的代码

你是那块小饼干 · 发表于 2024-3-30 22:12

=DROP(LET(T,SCAN(0,A1:A1739,LAMBDA(X,Y,IF(Y="订单号",X+1,X))),
_T,UNIQUE(T),
REDUCE("",_T,LAMBDA(_X,_Y,IFNA(HSTACK(_X,FILTER(A1:A1739,_Y=T,"")),"")))),,1)

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 数据分列求助