用VBA数组实现查找返回一列结果

laoau128

用VBA数组实现查找返回一列结果

宋排骨

设置区域，在VBA种直接调用EXCEL函数vlookup最简单了

laoau128

宋排骨 发表于 2018-11-17 22:59
设置区域，在VBA种直接调用EXCEL函数vlookup最简单了

这个不要用vlookup,  要用数组啊

宋排骨

Sub test()
Dim n%, f%
f = Cells(Rows.Count, 4).End(xlUp).Row
For n = 2 To f
Cells(n, 5) = Range(Cells(2, 1), Cells(Rows.Count, 2).End(xlUp)).Find(Cells(n, 4).Value)(1, 2)

Next

End Sub

宋排骨

这个是最基础的VBA,解决逻辑都很简单，写了3种，方法1和方法2大差不差，只是循环方式不同，都是用find查找后平移。
方法3是调用excel函数库

laoau128

宋排骨 发表于 2018-11-17 23:56
这个是最基础的VBA,解决逻辑都很简单，写了3种，方法1和方法2大差不差，只是循环方式不同，都是用find查找 ...

用数组方法没有写

zopey

Sub test()
Dim arr, k0
k0 = [a1].End(4).Row - 1
arr = [a2].Resize(k0, 2)

Dim brr, k2
k2 = [d1].End(4).Row - 1
brr = [d2].Resize(k2, 2)

For i = 1 To k2
    brr(i, 2) = Application.VLookup(brr(i, 1), arr, 2, 0)
Next

[d2].Resize(k2, 2) = brr

End Sub

laoau128

zopey 发表于 2018-11-18 16:57
Sub test()
Dim arr, k0
k0 = [a1].End(4).Row - 1

只能用数组，不要用vlookp函数，如何写

zopey

laoau128 发表于 2018-11-18 17:45
只能用数组，不要用vlookp函数，如何写

For i = 1 To k2
for j=1 to k0
   if  brr(i, 1) =arr(j,1) then brr(i,2)=arr(j,2):exit for
Next j
Next i