求助大神，如何通过2个字典，将对应的金额，填充对应处

dnvjfdeuff

求助大神，如何通过2个字典，将对应的金额，填充对应处。

ykcbf1100

没看懂。黄色单元格也没数据啊。
为啥要用二个字典呢？

shiruiqiang

好好猜呗

dnvjfdeuff

ykcbf1100 发表于 2024-5-2 21:21
没看懂。黄色单元格也没数据啊。
为啥要用二个字典呢？

大神说明我思路出了问题，请大神指点

yynrzwh

工作簿2.zip (51.52 KB, 下载次数: 11)

2024-5-2 22:39 上传

点击文件名下载附件

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim d As Object
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     With Worksheets("sheet1")
   
7.         c = .Cells(2, .Columns.Count).End(xlToLeft).Column
   
8.         arr = .Range("aj2").Resize(7, c - 35)
   
9.         For j = 1 To UBound(arr, 2)
   
10.             xm = arr(1, j) & "+" & arr(3, j)
    
11.             d(xm) = arr(7, j)
    
12.         Next
    
13.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
14.         c = .Cells(30, 1).End(xlToRight).Column
    
15.         arr = .Range("a30").Resize(r - 29, c)
    
16.         For i = 2 To UBound(arr)
    
17.             For j = 4 To UBound(arr, 2)
    
18.                 xm = arr(i, 2) & "+" & arr(1, j)
    
19.                 If d.exists(xm) Then
    
20.                     arr(i, j) = d(xm)
    
21.                 End If
    
22.             Next
    
23.         Next
    
24.         .Range("a30").Resize(r - 29, c) = arr
    
25.     End With
    
26. End Sub
    

复制代码

chxw68

一个字典就够了。

dnvjfdeuff

yynrzwh 发表于 2024-5-2 22:39

谢谢大神指导

dnvjfdeuff

chxw68 发表于 2024-5-3 07:01
一个字典就够了。

谢谢大神指导

dnvjfdeuff

yynrzwh 发表于 2024-5-2 22:39

大神，数据统计出来有误，把工时统计到研发小计那里去了