实现逆向VLOOKUP的代码哪里有问题了，

marry3049

想实现SHEET1中的日期通过SHEET2中的数据源实现逆向VLOOKUP功能，写的代码有问题，哪位老师帮忙修改下，不胜感激

笑着...两年过去

这是数组了，VBA不支持这样写，可以用match先获取到行号，然后cells(去取值就好了

liulang0808

楼主可以考虑使用find，或者字典之类的

帅GUO

Function VVLOOKUP(SR As String, ar As Range, n As Integer)
Dim R
    Set R = ar.Find(SR, , , 1)
        If Not R Is Nothing Then
        VVLOOKUP = R.Offset(, -1).Value
        End If
End Function

marry3049

楼上老师可以帮忙修改下代码吗，我试过用 myDocument2.Cells(i,1) = Application.WorksheetFunction.Index(myDocument1, Application.WorksheetFunction.Match(myDocument1.Cells(i,2), myDocument4, 0), 1)，出来的结果总是同样的日期，不对的。因为我是依葫芦画瓢了别人的代码，具体逻辑不是太懂。

marry3049

帅GUO 发表于 2020-12-2 12:28
Function VVLOOKUP(SR As String, ar As Range, n As Integer)
Dim R
    Set R = ar.Find(SR, , , 1)

你好，我试过了，用不起来

renkangjizhen

Sub 宏8()
Dim i&, d, arr, m&, n&
Sheet2.Select
i = [a65536].End(3).Row
arr = Range([a2], Cells(i, 2))
Set d = CreateObject("scripting.dictionary")
For m = 1 To UBound(arr)
d(arr(m, 2)) = arr(m, 1)
Next
Sheet1.Select
[a2:a5000].ClearContents
For n = 2 To [b65536].End(3).Row
Cells(n, 1) = d(Cells(n, 2).Value)
Next
End Sub

marry3049

renkangjizhen 发表于 2020-12-2 13:09
Sub 宏8()
Dim i&, d, arr, m&, n&
Sheet2.Select

试过了，可以运行，结果正确，非常感谢！！！

帅GUO

marry3049 发表于 2020-12-2 13:01
你好，我试过了，用不起来

怎么试的呀？

marry3049

帅GUO 发表于 2020-12-2 14:43
怎么试的呀？

复制黏贴啊，没法运行。