如何把查找函数转换成VBA？

yancjm · 发表于 2014-10-18 14:43

一个跨工作表查找的公式，因为资料多，用函数影响运行速度，请大家看看可不可以用VBA来实现？
=IF(ISERROR(INDEX(替代料設置!$C:$C,MATCH(E3,替代料設置!$A:$A,))),E3,INDEX(替代料設置!$C:$C,MATCH(E3,替代料設置!$A:$A,)))

该贴已经同步到 yancjm的微博

liulang0808 · 发表于 2014-10-18 15:12

对公式不了解，对vba知道一点
真不知道怎么修改
帮顶吧

蓝桥玄霜 · 发表于 2014-10-18 15:32

Sub lqxs()
Dim Arr, i&, d
Set d = CreateObject("Scripting.Dictionary")
Sheet11.Activate
Arr = Sheet13.[a1].CurrentRegion
For i = 2 To UBound(Arr)
d(Arr(i, 1)) = Arr(i, 3)
Next
Arr = [a2].CurrentRegion
For i = 2 To UBound(Arr)
If d.exists(Arr(i, 5)) Then
Arr(i + 1, 7) = d(Arr(i, 5))
Else
Arr(i + 1, 7) = Arr(i, 5)
End If
Next
[a2].CurrentRegion = Arr
End Sub

复制代码

蓝桥玄霜 · 发表于 2014-10-18 15:35

请见附件。

yancjm · 发表于 2014-10-18 15:47

蓝桥玄霜发表于 2014-10-18 15:35
请见附件。

这句有问题， Arr(i + 1, 7) = Arr(i, 5)
运行时错误'9'，下标越界

yancjm · 发表于 2014-10-18 15:51

改成 Arr(i , 7) = Arr(i, 5)
就OK了，谢谢

/wx萧湘剑雨 · 发表于 2014-10-18 21:43

Sub test()
Dim arr1, s, arr2(1 To 1000, 1 To 1), x&, y&, k&
arr1 = Sheets("替代料設置").Range("a1").CurrentRegion
For x = 2 To UBound(arr1, 1)
On Error Resume Next
s = Application.WorksheetFunction.VLookup(Sheets("替代料設置").Range("a" & x), Sheets("替代料設置").Range("b:c"), 2, False)
If s <> "" Then
k = k + 1
arr2(k, 1) = s
s = ""
Else
k = k + 1
arr2(k, 1) = arr1(x, 1)
End If
Next x
Sheets("原料展開").Range("h3").Resize(k, 1) = arr2
End Sub

/wx萧湘剑雨 · 发表于 2014-10-18 21:45

附件。。。。。。。。

yancjm · 发表于 2014-10-19 09:58

非常感謝你的幫忙！！

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

[求助] 如何把查找函数转换成VBA？

最新热点 /1