大量数据匹配用SQL怎么写

Stone_00x

我想把"数据表"中的数据匹配到"查询表"中,用字典比Vlookup快,想学下用SQL怎么写

1. 字典
   
2. Sub testDic()
   
3.     tt = Timer
   
4.    
   
5.     Sheets("查询表").Select
   
6.     maxRow = Cells(Rows.Count, 1).End(xlUp).Row
   
7.     Range("b2").Resize(maxRow - 1, 2).ClearContents
   
8.     arr = Sheets("查询表").Range("a1").CurrentRegion
   
9.     brr = Sheets("数据表").Range("a1").CurrentRegion
   
10.     '将数据表中的数据存入字典
    
11.     Set dic = CreateObject("scripting.dictionary") 'key:编号&字段   item:数据
    
12.     For i = 2 To UBound(brr)
    
13.         For j = 2 To UBound(brr, 2)
    
14.             dic(brr(i, 1) & brr(1, j)) = brr(i, j)
    
15.         Next
    
16.     Next
    
17.     tt1 = Timer
    
18. 
    
19.     '输出数据
    
20.     For i = 2 To UBound(arr)
    
21.         For j = 2 To UBound(arr, 2)
    
22.             If dic.exists(arr(i, 1) & arr(1, j)) Then
    
23.                 arr(i, j) = dic(arr(i, 1) & arr(1, j))
    
24.             End If
    
25.         Next
    
26.     Next
    
27.    
    
28.     Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
29.    
    
30.     MsgBox "读取耗时: " & Format(tt1 - tt, "0.0秒") & Chr(13) & "输出耗时: " & Format(Timer - tt1, "0.0秒")
    
31. 
    
32. End Sub
    
33. 
    

复制代码

1. 用SQL怎么写呢?
   
2. Sub testSQL()
   
3.     tt = Timer
   
4.     Sheets("查询表").Select
   
5.     maxRow = Cells(Rows.Count, 1).End(xlUp).Row
   
6.     Range("b2").Resize(maxRow - 1, 2).ClearContents
   
7.    
   
8.     Set cnn = CreateObject("ADODB.Connection")
   
9.     cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
   
10.     ThisWorkbook.FullName & ";Extended Properties='Excel 12.0;HDR=yes'"
    
11.     '------------------------------------------------------------------------------------
    
12. '    strSQL = "怎么写SQL语句"
    
13.    
    
14.     '------------------------------------------------------------------------------------
    
15.     Range("E2").CopyFromRecordset cnn.Execute(strSQL)
    
16.     cnn.Close: Set cnn = Nothing
    
17.    
    
18.     MsgBox "耗时: " & Format(Timer - tt, "0.0秒")
    
19.    
    
20. End Sub

复制代码

dsmch

1. SELECT a.编号, b.字段1, b.字段2
   
2. FROM [查询表$] as a left join [数据表$] as b
   
3. on a.编号=b.编号

复制代码

mmwwdd

试着写了一下，怎么这么慢

mmwwdd

mmwwdd

就是顺序没保证

dsmch

1. SELECT a.编号,b.字段1,b.字段2
   
2. FROM [查询表$a1:a10001] as a,[数据表$a1:c10001] as b
   
3. where a.编号=b.编号

复制代码