Office 365 就方便囉
假如你的资料在 A1:E4
找一空白处输入
=LET(
a,B1:E1,
b,A2:A4,
c,B2:E4,
d,REDUCE("",SEQUENCE(ROWS(b)),LAMBDA(m,n,VSTACK(m,
REDUCE("",SEQUENCE(COLUMNS(a)),LAMBDA(x,y,
VSTACK(x,IF(INDEX(c,n,y)<>"",HSTACK(INDEX(b,n,1),
INDEX(a,1,y),INDEX(c,n,y)),""))))))),
FILTER(d,INDEX(d,,1)<>"")
)
※ 引述《sampeng0970 (sam)》之铭言：
: 软件:excel
: 版本:36
: https://imgur.com/eJrqkcW
: 变更样式如图，求大神指导VBA或其它方式。
: 谢谢