北京
乾学院 32 号会员
2 回帖  •  917 浏览  • 
     ...

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

 
excel处理(107) 记录拆分(2) 一行扩展成多行(8)

 

例题描述

有如下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可以看到生成的目标表格。

 

 

【附件】 txl.zip

 


excel处理(107) 记录拆分(2) 一行扩展成多行(8)