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或其它方式。
: 謝謝