ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 533|回复: 15

[求助] VBA查找匹配问题

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-12-9 19:27 | 显示全部楼层 |阅读模式
工作中很多数据需要进去查找匹配,用VLOOKUP很烦锁,想通过VBA键执行以下操作,小弟开接触VBA,以下复杂的查找匹配实在不会写,请各位老师帮忙写下代码,在此先谢谢了各位老师了。



1,工作簿report_Test中的工作表(DATA)15列&10列的结果跟工作簿(list)的第2列的进行匹配,如果相等的话,将工作簿(list)第9列对应的数据写入到工作表(DATA)第19列,将工作簿(list)第13列对应的数据写入到工作表(DATA)第20列,剩下匹配不到的就将工作表(DATA)中15列跟工作簿(list)的第6列的进行匹配,如果相等的话跟上面一样将工作簿(list)第9列对应的数据写入到工作表(DATA)第19列,将工作簿(list)第13列对应的数据写入到工作表(DATA)第20列


2,工作表(DATA)中13列&12列的结果跟工作表(Time20190829)的第5列的进行匹配,如果相等的话,将工作表(Time 20190829)第6列对应的数据写入到工作表(DATA)第21列,然后工作表(DATA)第21列+工作表(DATA)第16列的结果 写入到工作表(DATA)第22列。


附件如下

Test - 副本.zip (1.86 MB, 下载次数: 17)

TA的精华主题

TA的得分主题

发表于 2019-12-9 20:42 | 显示全部楼层
请测试。

●_純灆sё°_Test - 副本.rar

1.92 MB, 下载次数: 90

评分

参与人数 2鲜花 +4 收起 理由
●_純灆sё° + 2 感谢帮助
iwangyi + 2

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-10 00:01 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-10 16:11 来自手机 | 显示全部楼层
山菊花 发表于 2019-12-9 20:42
请测试。

测试了结果完全正解。
大师能再帮忙加写这段代码吗?

用系统日期减去第16列日期,得出的结果写到W列即第23列,然后判断第23列的数字 ,如果数字在1-30范围就在24列写YES,   在31-60范围在25列写YES,在61-90范围在26列写YES,在90-120范围就在27列写YES,大于120就在28列写YES

TA的精华主题

TA的得分主题

发表于 2019-12-10 17:48 | 显示全部楼层
●_純灆sё° 发表于 2019-12-10 16:11
测试了结果完全正解。
大师能再帮忙加写这段代码吗?

附件已更新,请重新下载。

评分

参与人数 1鲜花 +2 收起 理由
●_純灆sё° + 2 值得肯定

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-11 00:40 | 显示全部楼层
山菊花 发表于 2019-12-10 17:48
附件已更新,请重新下载。

           
版主大大能解释下面这几句吗?这几句看不明白,烦请指点下,谢谢了

            n = (Drr(i, 5) + 29) \ 30 + 5
            If n > 10 Then n = 10
            Drr(i, n) = "YES"

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-11 17:55 来自手机 | 显示全部楼层
山菊花 发表于 2019-12-10 17:48
附件已更新,请重新下载。

    老师,代码中的Drr(i,5)=Date - crr(i,8)时,我工作中的crr(i,8)列的日期会出现比系统日期大,就造成运行出现错误。我想加个判断,如果系统日期减去crr(i,8)列时,crr(i,8)列的日期大于系统日期时则跳过继续执行。
     还有,当系统日期减去crr(i,8)得出的数字刚发等于0时,Yes就写到了DRR(i,5)那去了。等于0时也在DRR(i,5)写0数学进去,等于0就不判断它,如何修改呢?

TA的精华主题

TA的得分主题

发表于 2019-12-11 18:12 | 显示全部楼层
等于0时也在DRR(i,5)写0数学进去,
等于0就不判断它

取哪个?

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-11 18:38 来自手机 | 显示全部楼层
山菊花 发表于 2019-12-11 18:12
等于0时也在DRR(i,5)写0数学进去,
等于0就不判断它


数字等于0时就取空白吧,不取YES,不知道可以吗

TA的精华主题

TA的得分主题

发表于 2019-12-11 18:53 | 显示全部楼层
Drr(i, n) = "YES"
改为:
If n > 5 Then
    Drr(i, n) = "YES"
End If



评分

参与人数 1鲜花 +2 收起 理由
●_純灆sё° + 2 感谢帮助

查看全部评分

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

本版积分规则

关注官方微信,每天学会一个新技能

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

GMT+8, 2020-4-1 09:38 , Processed in 0.114894 second(s), 22 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

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

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

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