双条件取值

xuminglei2003

求助大神，双条件取值！

xuminglei2003

朱荣兴 发表于 2018-9-30 16:06
Sub huizong()
Set d = CreateObject("scripting.dictionary")
Set dic = CreateObject("scripting.dicti ...

大神，不能同时满足两个条件的单元格值为零，怎么添加

lsc900707

1. Sub gj23w98()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Sheet1.[a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         s = arr(i, 7) & arr(i, 14)
   
6.         d(s) = arr(i, 16)
   
7.     Next
   
8.     brr = [a1].CurrentRegion
   
9.     For i = 2 To UBound(brr)
   
10.         For j = 2 To UBound(brr, 2)
    
11.             s = brr(i, 1) & Format(brr(1, j), "yyyymmdd")
    
12.             If d.exists(s) Then
    
13.                 brr(i, j) = d(s)
    
14.             Else
    
15.                 brr(i, j) = 0
    
16.             End If
    
17.         Next
    
18.     Next
    
19.     [a1].CurrentRegion = brr
    
20. End Sub

复制代码

xuminglei2003

lsc900707 发表于 2018-9-30 16:44

谢谢大神，已完美解决

lsc900707

附件供测试参考：