数据查询

lijinlong852

依据《BOM拆解》中父零件到《装配计划》中查找对应日期的数量*对应子零件的用量，可否用VBA实现，数据量大时公式太慢。
请各位老师帮忙，拜托了！

Yalishanda30

附件供参考，
假定你装配计划和BOM拆解的日期都是一一对应的

lijinlong852

Yalishanda30 发表于 2019-6-13 14:36
附件供参考，
假定你装配计划和BOM拆解的日期都是一一对应的

很好！太感谢了！

lsc900707

1. Sub gj23w98()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Sheet2.[a1].CurrentRegion
   
4.     For i = 3 To UBound(arr)
   
5.         For j = 2 To UBound(arr, 2)
   
6.             If InStr(arr(2, j), "周小计") = 0 Then
   
7.                 s = Trim(arr(i, 1) & arr(2, j))
   
8.                 If arr(i, j) > 0 Then d(s) = arr(i, j)
   
9.             End If
   
10.         Next
    
11.     Next
    
12.     Range("e2:aw" & Rows.Count).ClearContents
    
13.     brr = [a1].CurrentRegion
    
14.     For i = 2 To UBound(brr)
    
15.         For j = 5 To UBound(brr, 2)
    
16.             If InStr(brr(1, j), "周小计") = 0 Then
    
17.                 s = Trim(brr(i, 1) & brr(1, j))
    
18.                 If d.exists(s) Then brr(i, j) = d(s) * brr(i, 4)
    
19.             End If
    
20.         Next
    
21.     Next
    
22.     [a:c].NumberFormatLocal = "@"
    
23.     [a1].CurrentRegion = brr
    
24. End Sub

复制代码

lsc900707

参考测试附件：

lijinlong852

lsc900707 发表于 2019-6-14 11:15

老师好：如果我想把SHEET2的一始数据向后移一列，也就是从C列开始，应该如何改呢？

lsc900707

lijinlong852 发表于 2019-6-30 13:49
老师好：如果我想把SHEET2的一始数据向后移一列，也就是从C列开始，应该如何改呢？

可以不修改的。你测试一下就知道！