如何用VBA替代VLOOKUP函数

yxrlqy · 发表于 2012-10-4 00:34

先收下了，明天好好学习；

sure_198364 · 发表于 2013-10-12 17:30

If j > 4 Then '应数据不对应，加一个判断
                     Cells(Target.Row, j + 1) = s(i, j + 3) '把值复制过来
                  Else
                     Cells(Target.Row, j + 1) = s(i, j + 1) '把值复制过来

这里说的“应数据部对应，加一个判断”是什么意思？

lanming · 发表于 2013-11-1 19:18

真好,又学到一招

孙悟空168 · 发表于 2013-11-9 15:19

不知怎么回事，下载下来只能一次性利用，等到第二次打开VBA就失去效果了

傻女_88 · 发表于 2013-12-26 16:22

5555，刚刚接触，还看不太懂，先存下来，慢慢学

alvinyb · 发表于 2013-12-26 16:24

用find也可以的哇。

Sayidden · 发表于 2014-4-18 14:03

白云2011 发表于 2011-7-30 14:09

弱弱的问一下，你是如何把代码以这种方式粘贴到这个地方的？

小行星B612 · 发表于 2014-10-28 11:33

帮助太大了，十分感谢。

MRHUANGHESIR · 发表于 2015-2-4 14:00

Sub e111112()
Dim arr, arr1, arr2(), arr3
Dim d As Object
arr = Sheet1.Range("A2:J9")
arr1 = Sheet2.Range("A2:J6")
Set d = CreateObject("scripting.dictionary")
For x = 1 To UBound(arr)
d(arr(x, 1)) = arr(x, 2) & "/" & arr(x, 3) & "/" & arr(x, 4) & "/" & arr(x, 5) & "/" & arr(x, 6) & "/" & arr(x, 7) & "/" & arr(x, 8) & "/" & arr(x, 9) & "/" & arr(x, 10)
Next
ReDim arr2(1 To UBound(arr1, 1), 1 To UBound(arr1, 2) - 1)
For Y = 1 To UBound(arr1)
arr3 = Split(d(arr1(Y, 1)), "/")
arr2(Y, 1) = arr3(0)
arr2(Y, 2) = arr3(1)
arr2(Y, 3) = arr3(2)
arr2(Y, 4) = arr3(3)
arr2(Y, 5) = arr3(4)
arr2(Y, 6) = arr3(5)
arr2(Y, 7) = arr3(6)
arr2(Y, 8) = arr3(7)
arr2(Y, 9) = arr3(8)
Next Y
Sheet2.Range("B2").Resize(UBound(arr1, 1), UBound(arr1, 2) - 1) = arr2
End Sub

sunny_8848 · 发表于 2015-2-4 16:26

多谢分享，学习下

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

[求助] 如何用VBA替代VLOOKUP函数

评分