ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 3362|回复: 29

[求助] [特殊字典查询]根据数据源表中数据,在查询表对应行利用字典查询并插入行合并单元格

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-9-28 15:39 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
1.根据劳务数据表,格式如下 劳务数据表.jpg
2.想实现涉及到的内容有:在查询表中(格式如下)
查询表.jpg
对应行数据,名称作为关键字段,利用字典查询对应的劳务单位和金额。如果一个名称存在多个劳务单位,则在该行数据下方插入一行,填入后,合并部分列单元格。
3.最终实现目标表如下
最终实现目标表.jpg
          附件如下: 利用字典查询多行数据.rar (14.57 KB, 下载次数: 8)


TA的精华主题

TA的得分主题

发表于 2020-9-28 16:49 | 显示全部楼层
测试.rar (32.84 KB, 下载次数: 8)
image.png
image.png

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-9-28 16:59 | 显示全部楼层

感谢,确实能够实现要求。另外,想请教下,如果用字典,可否实现同样的功能,不用SQL,谢谢

TA的精华主题

TA的得分主题

发表于 2020-9-28 17:25 | 显示全部楼层
lele400024 发表于 2020-9-28 16:59
感谢,确实能够实现要求。另外,想请教下,如果用字典,可否实现同样的功能,不用SQL,谢谢

可以啊,ado的两表交集可以用数组替代,后面一样

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-9-28 17:27 来自手机 | 显示全部楼层
语虚何以言知 发表于 2020-9-28 17:25
可以啊,ado的两表交集可以用数组替代,后面一样

能不能帮忙写下代码,谢谢

TA的精华主题

TA的得分主题

发表于 2020-9-28 17:33 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 语虚何以言知 于 2020-9-28 17:45 编辑
lele400024 发表于 2020-9-28 17:27
能不能帮忙写下代码,谢谢

你自己先尝试写吧

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-9-28 17:44 来自手机 | 显示全部楼层
语虚何以言知 发表于 2020-9-28 17:33
我学ado就是为了处理表间关系代码简洁些

今天研究了一下午,就是没弄明白如果用字典,怎么利用key中的多个item查询到对应行中去。论坛也基本上是导出全部key或者item,还有对item汇总到一行,多行列出来的真没有。

TA的精华主题

TA的得分主题

发表于 2020-9-28 17:46 | 显示全部楼层
lele400024 发表于 2020-9-28 17:44
今天研究了一下午,就是没弄明白如果用字典,怎么利用key中的多个item查询到对应行中去。论坛也基本上是 ...

要么用类模块做多个item的字典
要么字典的item是个文本字符串,取item的时候用split分割这个字符串

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-9-28 17:59 来自手机 | 显示全部楼层
语虚何以言知 发表于 2020-9-28 17:46
要么用类模块做多个item的字典
要么字典的item是个文本字符串,取item的时候用split分割这个字符串

谢谢建议,暂时不会类模块。用split看过很多帖子有,但是没有想明白怎么应用到这里面去

TA的精华主题

TA的得分主题

发表于 2020-9-28 18:13 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 语虚何以言知 于 2020-9-28 18:20 编辑
lele400024 发表于 2020-9-28 17:59
谢谢建议,暂时不会类模块。用split看过很多帖子有,但是没有想明白怎么应用到这里面去

测试1.rar (39.46 KB, 下载次数: 14)
时间关系,字典的我就随便写了下,供您参考吧,表间关系还是建议用ado,是专门处理这个的

思路就是将两表读入数组arr和brr

循环arr,再循环brr
如果arr的某个关键字等于brr的关键字,那么构建一个文本字符串,这个就是当前arr的所有元素再加上brr中当前你需要的元素,用-连接装入字典

从字典取key

每个key值循环,key值用split分列为一维数组,依次写入
当然你的数值因为split变为了文本,这个你有时间用再加个循环吧数值部分专为文本



评分

1

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-4-18 23:00 , Processed in 0.045843 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表