"某生产日报表如下： [图片] 现根据日报统计，目标结果如下： [图片] 难点分析：本例中要将“不良分类（AC 列）”的数据拆分到多行多列中，如日报第一条数据： [图片] 拆分后要形成 3 条 .."

lisongbo
乾学院 29 号会员
768 浏览 • 3 年前

如何利用有规则的字串将一行扩展成多行

Excel处理

excel处理(107)

某生产日报表如下：

现根据日报统计，目标结果如下：

难点分析：

本例中要将“不良分类（AC 列）”的数据拆分到多行多列中，如日报第一条数据：

拆分后要形成 3 条记录，其中前两条：

代码表为：

第三条记录形成规则为日报中 W 列（如下图）不为空时新增一条记录

其他还有若干要求，具体查看前面截图中的“统计要求”。

使用集算器实现步骤：

1. 安装运行集算器

可去润乾官网下载职场版，同时下载一个免费授权就够了，首次运行时会提示加载。

2. 编写脚本

脚本列出来看下：

	A	B	C	D
1	=file("44/ 统计表实现.xls").xlsimport@t(;,2:).select(工单号码)	=file("44/ 统计表实现.xls").xlsimport@t(;"不良代码",2:)	=create(行号, 生产订单, 作业号, 良品, 废品, 废品原因, 作业类型 1, 作业时间 2, 单位 2, 作业时间 3, 单位 3, 确认内文)
2	for A1	if a=A2. 不良分类	=a.split()	=C2.group@o(isdigit (~)).(~.concat())
3			for D2.group((#-1)\2)	=B1.select@1(原因说明 ==C3(1)). 代码
4				>C1.insert(0,null,A2. 工单号码,null,null,C3(2),if(D3,D3,C3(1)),null,if(#C3==1,A2. 喷油机器工时),null,if(A2. 是否为待返工单!="是" && #C3==1,A2. 生产工时),null,null)
5		if A2._23	>C1.insert(0,null,A2. 工单号码,null,null,null,null,null,null,null,null,null,A2. 来料编号 +"报废，"+A2._23)
6	=file("44 结果表.xls").xlsexport@t(C1)