如何根据某列内容整理选用不同的其它列

zoomafia

例题描述

有如下Excel文件book1.xlsx，红色字体行是一对夫妻的记录，FIRST NAME中用&分隔，男性在前女性在后。其它行中DOB和HEALTH有值的是男性，男性的DOB1和HEALTH1为空，女性正好与男性相反。

现在需要把数据转换成如下格式：夫妻拆分成两条记录，增加SEX列保存性别，删除DOB1和HEALTH1列，它们的值分别存入DOB和HEALTH。

实现步骤

1、 运行集算器

2、 编写脚本：

把代码列出来看得清楚点：

	A
1	=file("E:/txl/book1.xlsx").xlsimport@t()
2	=A1.derive("M":SEX)
3	=A2.news(#2.split@t("&");'LAST NAME',~:'FIRST NAME', CITY,PHONE,if(#==2,"F",SEX):SEX,if(#==2,DOB1,DOB):DOB,if(#==2,HEALTH1,HEALTH):HEALTH,DOB1,HEALTH1)
4	=A3.run(if(DOB==null && HEALTH==null,(SEX="F",DOB=DOB1,HEALTH=HEALTH1)))
5	=A4.new(#1,#2,#3,#4,#5,#6,#7)
6	=file("E:/txl/book2.xlsx").xlsexport@t(A5)

A1 读入book1.xlsx文件数据，选项@t表示首行是列标题

A2 增加一列SEX，初始值为M

A3 循环A2的每一行，用&拆分第2列FIRST NAME(选项@t表示拆分后删除两端空白)，拆出几个值则把当前行扩展为几行。每行保持原有的列并复制列值，拆分出的值(用~表示)作为新的FIRST NAME。如果是拆分出的第2个值，则令SEX为F，DOB取DOB1的值，HEALTH取HEALTH1的值。

A4 循环A3的每一行，如果DOB和HEALTH的值都为null，说明当前行是女性，则令SEX为F，DOB取DOB1的值，HEALTH取HEALTH1的值。

A5 取A4的第1到第7列

A6 把A5保存到文件book2.xlsx

3、 按F9运行程序，运行结束后打开book2.xlsx可以看到生成的目标表格。