课表的行列处理问题

Meteor-渣渣

痛痛痛痛 发表于 2024-9-23 11:35
亲，代码提供给下啊。容易敲错

不好意思，我回答问题从来不复制公式，只截图

痛痛痛痛

苏小亓 发表于 2024-9-23 11:22

结果一个公式搞定的，有没有？

pjiang

。。。。。。。。，，，，，，，，，，，，，，，，，，，，，，

祝洪忠-

=HSTACK(TOCOL(REPTARRAY(B1:H1,5),,1),TOCOL(REPTARRAY(A2:A6,,7),,1),TOCOL(B2:H6,,1))

=HSTACK(TOCOL(IF(B2:H6<>"",B1:H1,a),3,1),TOCOL(IF(B2:H6<>"",A2:A6,a),3,1),TOCOL(IF(B2:H6<>"",B2:H6,a),3,1))

你是那块小饼干

1. =DROP(REDUCE("",B1:H1,LAMBDA(X,Y,VSTACK(X,IFNA(HSTACK(Y,$A$2:$A$6,OFFSET(Y,1,,5,)),Y)))),1)

复制代码

1. =LET(T,DROP(REDUCE("",B1:H1,LAMBDA(X,Y,VSTACK(X,IFNA(HSTACK(Y,$A$2:$A$6,OFFSET(Y,1,,5,)),Y)))),1),FILTER(T,INDEX(T,,3)<>"",""))

复制代码

潇洒不风流

多个公式组合，不像上面大神一个公式搞定

我要成为专家

这个时候365或者wps最新版就能方便快捷的解决这个问题，VBA甚至都不如新函数

结果1

1. =LET(s,TOCOL(REPTARRAY(B1:H1,5),,1),t,TOCOL(REPTARRAY(A2:A6,,7),,1),u,TOCOL(B2:H6,,1),HSTACK(s,t,u))

复制代码

结果2

1. =LET(m,B2:H6="",s,TOCOL(IF(m,1/0,B1:H1),2,1),t,TOCOL(IF(m,1/0,A2:A6),2,1),u,TOCOL(IF(m,1/0,B2:H6),2,1),HSTACK(s,t,u))

复制代码

痛痛痛痛

我要成为专家 发表于 2024-9-23 17:52
这个时候365或者wps最新版就能方便快捷的解决这个问题，VBA甚至都不如新函数

结果1

小花送完，明日送小花花！

一杯绿茶来了

=HSTACK(TEXTSPLIT(CONCAT(TOCOL(B1:H1&"/"&A2:A6&",",,1)),"/",",",1),TOCOL(B2:H6,,1))
=LET(s,HSTACK(TEXTSPLIT(CONCAT(TOCOL(B1:H1&"/"&A2:A6&",",,1)),"/",",",1),TOCOL(B2:H6,,1)),FILTER(s,CHOOSECOLS(s,3)<>""))

忙到飞起

=LET(a,HSTACK(TOCOL(IF(B2:H6<"一",B1:H1)),TOCOL(IF(B2:H6<"一",A2:A6)),TOCOL(B2:H6)),SORTBY(a,MATCH(TAKE(a,,1),B1:H1,FALSE)))   结果1；

=LET(a,HSTACK(TOCOL(IF(B2:H6<>"",B1:H1,""),1),TOCOL(IF(B2:H6<>"",A2:A6,""),1),TOCOL(B2:H6,1)),SORTBY(a,MATCH(TAKE(a,,1),B1:H1,FALSE)))    结果2.