如何利用VBA获取数据

桥边折柳赠佳人 · 发表于 2024-8-7 21:50

如附件：Sheet（“扫码区”）A；F列有很多单号需要查询对应的【品号，数量，重量，】，在Sheet（“半成品出库查询”）E3我一次只能输入一个单号进行查询，如果Sheet（“半成品出库查询”）E3进行空白查询能全部加载出来数据然后进行查找也能找到，但是这样查找的话数据太多（70W+单号信息emmm...），需要很久才能加载出来。如何在Sheet（“半成品出库查询”）中一次性只查询Sheet（“扫码区”）A；F列的单号对应的数据并填充到Sheet（“扫码区”）A；F列对应的单号后面

桥边折柳赠佳人 · 发表于 2024-8-7 21:52

@ykcbf1100，大佬你看看我这个有什么解决方法吗？你之前给的代码我只能在全部单号加载出来之后才能把数据复制过去

3190496160 · 发表于 2024-8-8 09:38

看半天，一头雾水，数据源是哪个工作表？

ykcbf1100 · 发表于 2024-8-8 09:41

桥边折柳赠佳人发表于 2024-8-7 21:52
@ykcbf1100，大佬你看看我这个有什么解决方法吗？你之前给的代码我只能在全部单号加载出来之后才能把数 ...

我先看一下。

ykcbf1100 · 发表于 2024-8-8 09:57

桥边折柳赠佳人发表于 2024-8-7 21:52
@ykcbf1100，大佬你看看我这个有什么解决方法吗？你之前给的代码我只能在全部单号加载出来之后才能把数 ...

说真的，我还真看不懂你的需求。
我就再猜一次吧。

ykcbf1100 · 发表于 2024-8-8 09:58

猜一个吧。

Sub ykcbf() '//2024.8.8
Set d = CreateObject("Scripting.Dictionary")
With Sheets("半成品出库查询")
arr = .[a5].Resize(, 10)
s = arr(1, 1)
d(s) = ""
End With
With Sheets("扫码区")
r = .Cells(Rows.Count, 1).End(3).Row
For i = 2 To r
s = .Cells(i, 1)
If d.exists(s) Then
For j = 2 To 4
.Cells(i, j) = arr(1, j)
Next
End If
Next
r = .Cells(Rows.Count, "f").End(3).Row
For i = 2 To r
s = .Cells(i, "f")
If d.exists(s) Then
For j = 2 To 4
.Cells(i, j + 5) = arr(1, j)
Next
End If
Next
End With
Set d = Nothing
MsgBox "OK！"
End Sub

复制代码

桥边折柳赠佳人 · 发表于 2024-8-8 11:58

3190496160 发表于 2024-8-8 09:38
看半天，一头雾水，数据源是哪个工作表？

是从数据库SQL10.10.9.51引用的

桥边折柳赠佳人 · 发表于 2024-8-8 22:33

ykcbf1100 发表于 2024-8-8 09:58
猜一个吧。

大佬我加你QQ了你同意下详情我告诉你

桥边折柳赠佳人 · 发表于 2024-8-8 22:34

3190496160 发表于 2024-8-8 09:38
看半天，一头雾水，数据源是哪个工作表？

大佬你有VX或QQ吗我+你诉求详情

ykcbf1100 · 发表于 2024-8-9 07:20

桥边折柳赠佳人发表于 2024-8-8 11:58
是从数据库SQL10.10.9.51引用的

数据库引用的？那就算了，数据库我不会。

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