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

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

本帖最后由 vbcad 于 2016-7-25 18:52 编辑

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

原始版本的源代码：初版原码

表格查找使用方法：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

可以自动将数据表中数据按此表匹配写入。

使用“写入找到的数量”功能，可以帮助你找到重复的数据

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

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

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

CAD小学徒 · 发表于 2016-7-23 09:11

好东西，试试怎么用。。。。

zzyong00 · 发表于 2016-7-23 22:18

帮顶。。。

ggosgg · 发表于 2016-7-31 09:26

这是个好东西。谢谢无私共享源码

vbcad · 发表于 2016-8-7 22:10

发错板块了，请斑竹帮忙移动到电子表格版块。

wyy623 · 发表于 2017-9-28 19:26

这是个好东西。谢谢无私共享源码

pengfei2010 · 发表于 2017-10-7 17:37

回帖是一种美德！感谢楼主的无私分享谢谢

菜鸟初来乍到 · 发表于 2023-3-20 00:15

帮顶起来顶起来

萧萧生 · 发表于 2023-3-21 13:15

好东西，试试怎么用

zhangkui9070 · 发表于 2023-7-29 09:32

感谢分享，正好用到

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源