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

ilysunny

“出厂”工作簿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

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

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

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

一指禅62

借助列表

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

2015-11-17 10:11 上传

点击文件名下载附件

ilysunny

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

※矾风※

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

过来学习到！谢谢

kszcs

下来看看，谢谢