求查询代码，速度越快越好，代码越简单越好

caiyu93 · 发表于 2023-10-17 20:36

zpy2 · 发表于 2023-10-18 08:05

xkx590 发表于 2023-10-17 17:59
谢谢高手帮忙，但用ＳＱＬ查询有的版本不能用。

select * from Sheet2 left join Sheet1 using(编号)

【在线sql-左连接-Excel批量查询编号-哔哩哔哩】 https://b23.tv/I9CwVs1

试试在线sql

xkx590 · 发表于 2023-10-18 08:19

caiyu93 发表于 2023-10-17 20:36

谢谢高手帮忙

飞天篮球猪 · 发表于 2023-10-18 08:19

limonet 发表于 2023-10-17 17:58
Sub Limonet()
Dim StrSQL$, Cn As Object
Set Cn = CreateObject("ADODB.connection")

大佬，[Sheet1$A:D]a 此处的a表有没有行数限制，比如A1:D65536，超过65536行就会报错？

limonet · 发表于 2023-10-18 08:34

飞天篮球猪发表于 2023-10-18 08:19
大佬，[Sheet1$A:D]a 此处的a表有没有行数限制，比如A1:D65536，超过65536行就会报错？

没有限制，不会报错。

lizhipei78 · 发表于 2023-10-18 10:17

jiangxiaoyun · 发表于 2023-10-18 11:09

vlookup就挺快的。

cyq4896 · 发表于 2023-10-18 15:05

参与一下..

titi012 · 发表于 2023-10-18 15:33

感觉二分法最快！
我自己测试的，如果数据达到一万行，要查询的也是一万行，用普通循环来查询要大约10秒，二分法0.2秒完成。

Sub 二分法()
Dim StarTime As Date
StarTime = Timer
Dim aR As Long, bR As Long
Dim aArr, bArr, cArr()
Dim x As Long, y As Long, i%, N%
With Sheet1
.Range("A:D").Sort key1:=Range("A1"), order1:=1, Header:=xlYes
aR = .Cells(99999, 1).End(xlUp).Row
bR = .Cells(99999, 8).End(xlUp).Row
aArr = .Range("A1:D" & aR).Value
bArr = .Range("H1:H" & bR).Value
.Range("I2:K" & bR).ClearContents
End With
ReDim cArr(2 To bR, 1 To 3)
For y = 2 To bR
m = Round(aR - 1 + 0.5, 0)
N = 1
x = m / 2
Do While aArr(x, 1) <> bArr(y, 1)
N = N + 1
If aArr(x, 1) < bArr(y, 1) Then
x = Round(x + m / (2 ^ N), 0)
Else
x = Round(x - m / (2 ^ N), 0)
End If
Loop
For i = 1 To 3
cArr(y, i) = aArr(x, i + 1)
Next i
Next y
Sheet1.Range("I2").Resize(bR - 1, 3) = cArr
MsgBox "共用时" & Format(Timer - StarTime, "0.000000") & "秒!" & Chr(10) & "查了" & bR - 1 & "条数据。"
End Sub

复制代码

飞天篮球猪 · 发表于 2023-10-18 16:53

本帖最后由飞天篮球猪于 2023-10-18 17:09 编辑

凑个热闹，非主流解法，SPL(润乾数速)，简洁高效，供参考。

或者：

		自动登录	找回密码
密码			免费注册

[已解决] 求查询代码，速度越快越好，代码越简单越好