[已解决]求助函数处理太慢如何将INDEX函数转化VB。

redzy

各位大神，小弟先遇到如下问题：利用2个条件在数据库中查找，满足条件后，取其相应值到表中。我已经设置好了公（=INDEX(BOM数据库!C:C,MATCH(P2&C2,BOM数据库!B:B&BOM数据库!E:E,0))）但是随着数据的增多，EXCEL运行速度已经很慢了，甚至有时候死机。求各位大神帮小弟想想办法，谢谢

最佳答案

月排行榜 / 总排行榜

grf1973

2017-5-3 10:50

1. Sub 匹配()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Sheets("BOM数据库").[a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         x = arr(i, 2) & arr(i, 5)
   
6.         d(x) = arr(i, 3)
   
7.     Next
   
8.     With Sheets("出库明细")
   
9.         .[n2:n65536] = ""
   
10.         arr = .Range("a1:p" & .[a65536].End(3).Row)
    
11.         For i = 2 To UBound(arr)
    
12.             x = arr(i, 16) & arr(i, 3)
    
13.             arr(i, 14) = d(x)
    
14.         Next
    
15.         .[n1].Resize(UBound(arr)) = Application.Index(arr, , 14)
    
16.     End With
    
17. End Sub

复制代码

跳转到最佳答案楼层

sjzzhangjun

来学习的

327718098

只是查找吗，要做成事件吗

grf1973

1. Sub 匹配()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Sheets("BOM数据库").[a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         x = arr(i, 2) & arr(i, 5)
   
6.         d(x) = arr(i, 3)
   
7.     Next
   
8.     With Sheets("出库明细")
   
9.         .[n2:n65536] = ""
   
10.         arr = .Range("a1:p" & .[a65536].End(3).Row)
    
11.         For i = 2 To UBound(arr)
    
12.             x = arr(i, 16) & arr(i, 3)
    
13.             arr(i, 14) = d(x)
    
14.         Next
    
15.         .[n1].Resize(UBound(arr)) = Application.Index(arr, , 14)
    
16.     End With
    
17. End Sub

复制代码