多个工作表按新分类重新拆分并按指定顺序对齐

例题描述

Excel文件1.xlsx中有下图所示的数据，每个区域的数据构成一个Sheet，Sheet编号为a-z。

现在想要把数据变换成如下图的形式，按系统分组，每个系统数据构成一个Sheet，并且没有数据的区域也要列出来。

 此题涉及读取Excell中多Sheet数据、数据分组、数据导出到Excel的多个Sheet、数据补齐等知识。

实现步骤

1、  编写脚本：

	A	B
1	=file("E:/work/1.xlsx").xlsopen()
2	for A1	>B1=B1|A1.xlsimport@t(;A2.stname)
3	=B1.group(系统)	=26.(char(~+96))
4	for A3	=A4.align(B3,区域)
5		=B4.new(B4.max(系统):系统,B3(#):区域,日期)
6		=file("E:/work/2.xlsx").xlsexport@ta(B5;string(B5(1).系统))

A1   打开1.xlsx文件为Excel对象

A2   循环A1中的各个Sheet

B2   读了取各Sheet的数据合并到B1中，选项@t表示首行是列标题

A3   对读取到B1的数据按系统分组

B3   用a-z按顺序组成26个字母序列

A4   循环每个系统分组

B4   把当前组数据的区域字段按照B3中字母a-z的顺序对齐

B5   用B4重新构造一个数据集，用B4中的最大系统值为新的系统值，B3中的当前行号字母为区域字段值，取原日期值为新的日期字段值

B6   把B5导出到2.xlsx中，用系统字段值为Sheet名称，选项@t表示首行输出列标题，a表示追加写入Sheet

2、  运行程序，结束后就可以看到work目录中生成的2.xlsx文件。