求助，如何用VBA/SQL做到函数Vlookup的功能

twc354

在加工数据的时候，经常需要用到数据匹配，但是函数匹配非常慢，能不能用sql语句做到快速匹配呢？比如我需要将表1中的涅槃访问时间根据账户名匹配到表2中的涅槃访问时间，应该怎么做呢，代码应该怎么写？

ddghan

内置函数运行速度要比自定义函数快，没必要画蛇添足

kzg2013

'SQL 方法
Sub MATCHDATA1()
Dim S As String

Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
S = "[" & Sheets(1).Name & "$]"
S1 = Sheets(1).Cells(1, 3)
With CN
.Provider = "MICROSOFT.ACE.OLEDB.12.0"
.ConnectionString = "EXTENDED PROPERTIES=EXCEL 8.0;" & "DATA SOURCE=" & ActiveWorkbook.FullName
.Open
End With

  For K = 2 To Sheets(2).Range("A1048576").End(xlUp).Row


SQ = "SELECT*FROM" & S & "WHERE " & S1 & "='" & Sheets(2).Cells(K, 1) & "'"


RS.Open SQ, CN, 3, 1
  If RS.RecordCount >= 1 Then
   Sheets(2).Cells(K, 2) = RS.Fields(3)
  End If
   Set RS = Nothing
Next K

CN.Close
Set CN = Nothing


End Sub

'另外一种方法
Sub MATCHDATA()

Dim SH1 As Object
Dim SH2 As Object
Set SH1 = Sheets(1)
Set SH2 = Sheets(2)
For K = 2 To SH1.Range("A1048576").End(xlUp).Row
For K1 = 2 To SH2.Range("A1048576").End(xlUp).Row
If SH1.Cells(K, 3) = SH2.Cells(K1, 1) Then
    SH2.Cells(K1, 2) = SH1.Cells(K, 4)
End If
Next K1
Next K


End Sub

wang-way

上面两种方案只是实现了效果，但是效率应该比较低。用sql一次查询还要按顺序比较麻烦，循环查又慢。个人觉得字典+数组才比较快。

lucifer-lan

字典+数组

恩
有点儿意思
谢谢

李公子2017

111111111111111111111