例题描述
某文件目录里有多个企业资产负债表,其中一个如下图所示:

现在需要从这些资产负债表中提取某些数据进行财务分析,目标表如下图所示:

第1列是需要提取的数据名称,各资产负债表中的数据分别依次提取到后面的列中。由于货币资金科目各企业报表中名称不一致,所以需要模糊查找,只要名称中含有“货币”即可。
实现步骤
1、 运行集算器
可去润乾官网下载职场版,同时下载一个免费授权就够了,首次运行时会提示加载。
2、 编写脚本

把代码列出来看得清楚点

A1 定义数据文件保存的目录变量dir
A2 打开目标汇总文件“财务分析.xlsx”为Excel对象
A3 列出目录中所有的资产负债表文件(以zc开头的)
D3 定义要提取的数据名称序列
A4 循环目录中的资产负债表
B4 打开当前循环的资产负债表为Excel对象
B5 循环要提取的数据项目
C5 循环当前资产负债表的每一行
D5 循环当前资产负债表的每一列
E5 读取当前行列的单元格内容
E6-F8 如果单元格内容匹配当前数据项,则读出它右边第2个单元格内容,填入目标报表Excel对象的相应单元格,然后结束C5开始的循环,继续查找下一项数据。
A9 把汇总好数据的目标Excel对象A2保存到目标文件。
3、 按F9运行这段程序,打开目标文件财务分析.xlsx,可以看到本文开头所要求的财务数据。
【附件】 cwfx.zip