数据量太大，运行太卡，想用VBA代替vlookup，急救

ilysunny · 发表于 2015-11-14 21:53

本帖最后由 ilysunny 于 2015-11-14 22:04 编辑

“出厂”工作簿A列内容，去“BOM”工作簿A列查找一样内容单元格，然后调取“BOM”对应C/D/E/F/G/H/I列内家到“出厂”工作簿 C/D/E/F/G/H/I 单元格中。
“出厂”A列内容每添加一条，自动执行调取对应的 C/D/E/F/G/H/I 值。

数据量每天约5千条，用VLOOKUP，只要源数据有变动，整个表卡死。想请各位老师帮忙解答，非常感谢！

Chip_Kenny · 发表于 2015-11-14 22:54

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.ScreenUpdating = 0
Application.EnableEvents = 0
Dim arr, r&, d As Object
r = Target.Row
Set d = CreateObject("scripting.dictionary")
arr = Sheets("BOM").[a1].CurrentRegion
For i = 2 To UBound(arr)
d(arr(i, 1)) = Array(arr(i, 3), arr(i, 4), arr(i, 5), arr(i, 6), arr(i, 7), arr(i, 8), arr(i, 9))
Next
Range("c" & r).Resize(1, 7) = d(Cells(r, 1).Value)
Application.ScreenUpdating = 1
Application.EnableEvents = 1
End If
End Sub

ilysunny · 发表于 2015-11-16 22:25

Chip_Kenny 发表于 2015-11-14 22:54
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.ScreenUp ...

太强大了，非常感谢！
d(arr(i, 1)) = Array(arr(i, 3), arr(i, 4), arr(i, 5), arr(i, 6), arr(i, 7), arr(i, 8), arr(i, 9))
这句怎么理解呢？

Chip_Kenny · 发表于 2015-11-17 07:05

將一維數組載入字典, 請在壇中參看字典用法。

一指禅62 · 发表于 2015-11-17 10:11

借助列表

表面处理总表.zip (330.01 KB, 下载次数: 86)

ilysunny · 发表于 2016-1-3 11:05

如果是两个工作簿的判断条件，要根据A列+B列值，结合来判断调取数据呢？
比如“BOM” 表内 A列是5CG021BL611 ，对应B列是5CB051BL561, 合并A列和B列变成5CG021BL611/5CB051BL561,
“出厂”工作簿也是根据A列B列结合去“bom" 工作簿查找取对应各列值。

※矾风※ · 发表于 2016-11-27 13:23

Chip_Kenny 发表于 2015-11-14 22:54
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.ScreenUp ...

过来学习到！谢谢

kszcs · 发表于 2016-11-27 14:41

下来看看，谢谢

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

[求助] 数据量太大，运行太卡，想用VBA代替vlookup，急救

评分

评分