再次舔着脸求助大佬, 还是vba大数据匹配提速问题

幽默的熊

各位大佬好!

  小弟学习了各位大佬给的方式方法, 受益匪浅, 在此再试表示感谢!!

这次是提速问题, 表二数据匹配到表一里, 我用的是vba字典数组方式, 效果很好,但是还是希望更快速一点
原始数据每个表都是几十万行, 我现在的方法用时107秒, 希望大佬们给与指点, 提速一下, 因为需要匹配的表格有点多
附件如下

zpy2

每个表都是几十万行, 这么大的数据量，感觉要上数据库

limonet

关键字：out join

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    t = Timer
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    StrSQL = "Select b.额 From [表一$]a Left Join [表二$]b On a.号=b.号"
    Range("U2").CopyFromRecordset Cn.Execute(StrSQL)
    MsgBox Timer - t
End Sub

kevinchengcw

竟然一个匹配的都没有

1. Sub test()
   
2. Dim Dic, Arr, Arrt, N&, T#
   
3. T = Timer
   
4. Set Dic = CreateObject("scripting.dictionary")
   
5. With ThisWorkbook
   
6.   Arr = .Worksheets("表二").[a1].CurrentRegion.Value
   
7.   For N = LBound(Arr) + 1 To UBound(Arr)
   
8.     Dic(Arr(N, 1)) = Arr(N, 8)
   
9.   Next N
   
10.   With .Worksheets("表一")
    
11.     Arrt = .Range("e2:e" & .Cells(.Rows.Count, 5).End(3).Row).Value
    
12.     For N = LBound(Arrt) To UBound(Arrt)
    
13.       Arrt(N, 1) = Dic(Arrt(N, 1))
    
14.     Next N
    
15.     .[u2].Resize(UBound(Arrt)).Value = Arrt
    
16.   End With
    
17. End With
    
18. Set Dic = Nothing
    
19. Debug.Print Timer - T
    
20. End Sub

复制代码

幽默的熊

limonet 发表于 2024-7-30 13:18
Sub limonet()
    Dim Cn As Object, StrSQL$
    t = Timer

数据库一点也不知道啊, wps可以吗?

limonet

幽默的熊 发表于 2024-7-30 14:20
数据库一点也不知道啊, wps可以吗?

用原来的，或换个方式。

幽默的熊

zpy2 发表于 2024-7-30 12:40
每个表都是几十万行, 这么大的数据量，感觉要上数据库

一个80万, 一个40万, 一个20万, 剩下6个的几万, 不用数据库可行吗?

天道酬勤y

幽默的熊 发表于 2024-7-30 14:21
一个80万, 一个40万, 一个20万, 剩下6个的几万, 不用数据库可行吗?

也不多 ,看后需增加的大不大