判断条件是G列&H列，和G列&I列，是否相同做判断依据，填写相应内容

shenzhenyang

J列判断，根据G列产品代码和I列赎回款在G列和H列从上到下有相同的一笔判断回款，没有相同显示理财中

I列赎回的款对应G列和H列，显示赎回款

产品代码存在相同的。条件是G列&H列，和G列&I列，是否相同做判断依据

麻烦老师用字典判断帮忙下，谢谢

蓝桥玄霜

赎回的例子：

shenzhenyang

蓝桥玄霜 发表于 2023-3-16 16:38
赎回的例子：

蓝老师你好，
I列这里的赎回记录，如果在G&H列没找到对应，提示没有买入记录，谢谢老师帮我加上这个，感谢。

shenzhenyang

蓝桥玄霜 发表于 2023-3-16 16:38
赎回的例子：

1. Sub lqxs()
   
2. Dim Arr, i&, x$, y$, d1
   
3. Dim d, k, t, n%
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. Set d1 = CreateObject("Scripting.Dictionary")
   
6. Sheet1.Activate
   
7. [j5:j5000].ClearContents
   
8. Arr = [a4].CurrentRegion
   
9. For i = 5 To UBound(Arr)
   
10.     x = Arr(i, 7) & "|" & Arr(i, 8)
    
11.     y = Arr(i, 7) & "|" & Arr(i, 9)
    
12.     If Arr(i, 7) <> "" And Arr(i, 8) <> "" Then d(x) = i '+ 3
    
13.     If Arr(i, 7) <> "" And Arr(i, 9) <> "" Then d1(y) = i ' + 3
    
14. Next
    
15. k = d.keys: t = d.items
    
16. 
    
17. For i = 0 To UBound(k)
    
18.     If d1.exists(k(i)) Then
    
19.         n = d1(k(i))
    
20.         Cells(n, 10) = "赎回款"
    
21. 
    
22.         Cells(t(i), 10) = "已回款"
    
23. 
    
24.     Else
    
25. 
    
26.         Cells(t(i), 10) = "理财中"
    
27.     End If
    
28. Next
    
29. 
    
30. kk = d1.keys: tt = d1.items
    
31. For i = 0 To UBound(kk)
    
32.    If d.exists(kk(i)) Then
    
33.         nn = d1(kk(i))
    
34.         Cells(nn, 10) = "赎回款"
    
35. Else
    
36.         Cells(tt(i), 10) = "没有这笔赎回款"
    
37. 
    
38. 
    
39.     End If
    
40. Next
    
41. 
    
42. End Sub

复制代码

老师改了是可以实现，能不能帮忙代码整合下，谢谢老师