设计人员的好帮手，表格汇总、查找（免费）

vbcad · 发表于 2016-7-23 09:02:00

电子表格查找数据，常用的是用函数，比如用VLOOKUP函数，但是函数找数据不方便，也不能模糊查找，所有写了这个程序，用于两个电子表格之间的数据自动查找、将找到的数据填写（或汇总）到另一表格。
原始版本的源代码：

14zxradqu5l.jpg

表格查找使用方法：1、先打开要查找（填写）的表格与数据来源表格。
2、打开本软件（如果是先打开的软件，后打开的表格，请按一下刷新按钮）
3、设置好两个表格对应的关键列，设置好查找条件、找到后的动作，点击开始即可
在查找条件中，如果设置了“相同匹配”则需要在配置文件中的【相同字】中增加。
比如：常见的“回路1”，有的写成“回路I”、“回路一”等等，那么在相同字中做如下设置
回路1 =回路一
回路I =回路一
如果设置了忽略字，则需要在配置文件中增加要忽略的字如“1#机”，“1号机”
可以把“#”和“号”都添加，就可以了
有的表格中数字1全角为“１"看起来一一样，实际是不同的字，设置“忽略全角字符”就可以了。
条件设置中的”数字“选项是对于表中的”15443“，”00015443“这样的纯数字匹配。
replace是VB中的替换字符函数，这个是查找中关键函数，用于去掉空格、替换相同字、忽略字。
UCASE函数是将小写字母转换为大写
第二版中有按拼音查找功能，实现这个功能费了很大劲，但实际中并没有什么作用。
找到数据后，可以设置颜色标记（这个最常用），勾选要标记的表，然后选择好颜色，那么只要找到的表就会标记颜色（注意不要选白色或自动）
如果是要将数据表中找到的数据填入当前表就设置对应的列即可。如果是多列，请用”；“分开，将数据表中的”e;f“列数据填入”g;f“。分号请用英文，用空格也可以。汇总数据也是一样，但必须用分号隔开，空格列是不汇总只统计数量的。
可以完成分类汇总的功能。可以将各类分类字段做一张表，然后使用汇总，就可以将数据表中的数据汇总出来（支持带表头的多维表）。
如查找表为
序号单位类别甲类乙类1部门1
2部门2
3部门3
可以自动将数据表中数据按此表匹配写入。
使用“写入找到的数量”功能，可以帮助你找到重复的数据

nkiiat1y2cz.PNG

数据汇总的方法，需要打开一个模板表，然后添加要汇总的文件，如果两个表格的结构一样，可以选择按行汇总，如果不一样，可以选择按名称汇总。

dev2foc03rb.PNG

多个数据文件复制到一张表方法与汇总差不多

0fa44zg4aft.PNG

数据分发是用当前工作表中的数据去批量生成一个个的文件，可以是表格也可以是WORD。
如果你用的是WPS，请切换一下WPS模式

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复