求一道公式

lg747699 · 发表于 2024-5-28 08:42

mykitami · 发表于 2024-5-28 08:52

=REDUCE({"类目","人员"},A3:A5,LAMBDA(x,y,VSTACK(x,IF({1,0},y,UNIQUE(TEXTSPLIT(OFFSET(y,,1)&"/"&OFFSET(y,,2),,"/",1))))))

hugeinfo · 发表于 2024-5-28 08:55

本帖最后由 hugeinfo 于 2024-5-28 08:57 编辑

=REDUCE({"类目","人员"},A3:A5,LAMBDA(x,y,LET(a,TEXTSPLIT(TEXTJOIN("/",,OFFSET(y,,1,,2)),,"/"),VSTACK(x,HSTACK(IF(SEQUENCE(ROWS(a)),y),a)))))

lg747699 · 发表于 2024-5-28 08:57

mykitami 发表于 2024-5-28 08:52
=REDUCE({"类目","人员"},A3:A5,LAMBDA(x,y,VSTACK(x,IF({1,0},y,UNIQUE(TEXTSPLIT(OFFSET(y,,1)&"/"&OFFSE ...

谢谢。奈何公式太复杂了。

E学子 · 发表于 2024-5-28 09:07

本帖最后由 E学子于 2024-5-28 09:11 编辑

=REDUCE({"类目","人员"},A3:A5,LAMBDA(x,y,VSTACK(x,IFNA(HSTACK(y,UNIQUE(TEXTSPLIT(TEXTJOIN("/",,OFFSET(y,,1,,2)),,"/",1))),y))))

复制代码

hugeinfo · 发表于 2024-5-28 09:08

=TEXTSPLIT(TEXTJOIN(";",,A3:A5&"|"&SUBSTITUTE(BYROW(B3:C5,LAMBDA(x,TEXTJOIN("/",,x))),"/",";"&A3:A5&"|")),"|",";")

无关岁月 · 发表于 2024-5-28 09:21

VBA参与一下

hl.7z (17.63 KB, 下载次数: 0)
屏幕截图 2024-05-28 092000.png

mykitami · 发表于 2024-5-28 09:47

lg747699 发表于 2024-5-28 08:57
谢谢。奈何公式太复杂了。

估计这个题目不太好做出简单的公式

edwin11891 · 发表于 2024-5-28 09:48

hugeinfo 发表于 2024-5-28 09:08
=TEXTSPLIT(TEXTJOIN(";",,A3:A5&"|"&SUBSTITUTE(BYROW(B3:C5,LAMBDA(x,TEXTJOIN("/",,x))),"/",";"&A3:A5& ...

没有去重，不过最后再去重，跟先去重才组合，效果也是一样的，即 Unique(公式。。。)亦可。

1786024734 · 发表于 2024-5-28 10:54

=UNIQUE(TEXTSPLIT(CONCAT(SUBSTITUTE("/"&B3:B5&TEXT(C3:C5,";!/@"),"/"," "&A3:A5&"/")),"/"," ",1))

复制代码

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

[求助] 求一道公式

评分

评分

评分

评分

评分