VBA查找匹配问题

●_純灆sё°

工作中很多数据需要进去查找匹配，用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)

2019-12-9 19:26 上传

点击文件名下载附件

山菊花

请测试。

●_純灆sё°

山菊花 发表于 2019-12-9 20:42
请测试。

感谢老师，在测试中。

●_純灆sё°

山菊花 发表于 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

山菊花

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

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

●_純灆sё°

山菊花 发表于 2019-12-10 17:48
附件已更新，请重新下载。

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

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

●_純灆sё°

山菊花 发表于 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就不判断它，如何修改呢？

山菊花

等于0时也在DRR(i,5)写0数学进去，
等于0就不判断它

取哪个？

●_純灆sё°

山菊花 发表于 2019-12-11 18:12
等于0时也在DRR(i,5)写0数学进去，
等于0就不判断它

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

山菊花

Drr(i, n) = "YES"
改为：
If n > 5 Then
    Drr(i, n) = "YES"
End If