将多列同类项整理到一列
例题描述和简单分析
有Excel文件Book1.xlsx，数据如下所示：
| A | B | … | H | I | … | |
| 1 | 4/1/2021 | 4/1/2021 | … | 4/2/2021 | 4/2/2021 | … |
| 2 | AAA | BBB | … | AAA | BBB | … |
| 3 | 6 | 9 | … | 9 | 10 | … |
| 4 | 8 | 6 | … | 10 | 7 | … |
| 5 | 3 | 2 | … | 2 | 3 | … |
| … | … | … | … | … | … | … |
需要将多列同类项整理到一列，结果如下所示：
| A | B | C | D | … | |
| 1 | AAA | 时间 | BBB | 时间 | … |
| 2 | 6 | 4/1/2021 | 9 | 4/1/2021 | … |
| 3 | 8 | 4/1/2021 | 6 | 4/1/2021 | … |
| … | … | … | … | … | … |
| 8 | 9 | 4/2/2021 | 10 | 4/2/2021 | … |
| 9 | 10 | 4/2/2021 | 7 | 4/2/2021 | … |
| … | … | … | … | … | … |
解法及简要说明
在集算器中编写脚本p1.dfx，如下所示：
| A | |
| 1 | =file("Book1.xlsx").xlsimport@w() |
| 2 | =transpose(A1).group(~(2)) |
| 3 | =A2.(~.conj(~.m(3:).select(~).(~|A2.~.~(1)))) |
| 4 | =transpose(A3).(~.conj()) |
| 5 | =A2.conj(~.~(2)|"时间") |
| 6 | =file("result.xlsx").xlsexport@w([A5]|A4) |
简要说明：
A1 Excel读成序列的序列
A2 转置A1，按第二列（类别）分组
A3 遍历每组（类别），合并每天的数与当天日期组成的序列
A4 转置A3，合并每行序列
A5 拼表头
A6 表头并数据的结果导出至result.xlsx
http://club.excelhome.net/thread-1587358-1-1.html
