[已解决]dsmch老师，可否帮我解决这样的问题，谢谢。

新一

还有疑问，如果我的单价表中，如附件B7的名称，它是以类形，规划单价的，如我的总工序表中如C5的名称和D5的工序，我知道它的单价是单价表B7这一类的单价，我可以手动输入单价，但现在这份表中，VBA会帮我自动更新单价，所以更新了，总工序表的单价就没了，可否解决这样的问题，谢谢。

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-5 08:59

………………

跳转到最佳答案楼层

dsmch

1. Sub 单价()
   
2. Dim arr, brr, d, i&, zf$
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheets("单价表").Range("a1").CurrentRegion
   
5. brr = Range("a1:d" & Range("c65536").End(xlUp).Row)
   
6. For i = 5 To UBound(arr)
   
7.     If arr(i, 2) = "" Then arr(i, 2) = arr(i - 1, 2)
   
8.     If arr(i, 7) = "" Then arr(i, 7) = arr(i - 1, 7)
   
9.     zf = arr(i, 7) & "," & arr(i, 8)
   
10.     d(zf) = arr(i, 9)
    
11.     zf = arr(i, 2) & "," & arr(i, 3)
    
12.     d(zf) = arr(i, 4)
    
13. Next
    
14. For i = 3 To UBound(brr)
    
15.     zf = brr(i, 3) & "," & brr(i, 4)
    
16.     If d.exists(zf) Then Cells(i, "g") = d(zf)
    
17. Next
    
18. End Sub
    

复制代码

数组输入改为单元格输入

dsmch

………………

新一

非常感谢