excel - 如何在 vba 中进行自定义 vlookup？

Question

嗨，我这些天正在学习 vba。我试图制作一个用户定义的 Vlookup 函数。现在我知道有一个默认的 vlookup 功能可以使用，但只是为了清除我想做的事情。所以这是我的代码，但它给了我一个值错误。我曾尝试调试，但调试在 if 语句之后以某种方式停止。

Option Explicit
Function vlookup_a(x As Range, y As Range, z As Integer) As Variant
    Dim nr As Integer, i As Integer
    nr = y.Rows.Count

    i = 1
    Do While vlookup_a <> y(i, z)
        If y(i, 0) = x.Value Then
            vlookup_a = y(i, z)
            Exit Function
        Else
            i = i + 1
        End If

    Loop
End Function

标签： excelvba