VBA Excel：用户定义函数

Question

已修复：查看 user3964075 的评论

需要以下我的简单代码的帮助： 它基本上是 vlookup 的不同版本，您还可以在其中指定要查找的行。

asda(fval, rng, fcol, rcol)

fval 是用户正在寻找的内容

rng是范围

fcol 是 vlookup 默认的，设置为 1，现在用户可以选择使用哪一列作为搜索的基础

rcol是找到匹配时返回的列

见下面的代码：

Function asda(fval As Range, rng As Range, fCol As Integer, rCol As Integer)

    Dim row As Variant

    For Each row In rng.Rows
        If fval.Value = rng.Columns(fCol).Rows(row).Value Then
            result = rng.Columns(rCol).Rows(row).Value
            GoTo found
        End If
    Next

found:
    asda = result

End Function

问题：它不起作用，我不知道为什么。 由于我想使用其他人的代码，我想从我的开始并修复它。

为将来阅读此内容的任何人提供固定代码：

Function asda(fval As Range, rng As Range, fCol As Integer, rCol As Integer)
Dim row As Variant
Dim rowc As Integer

rowc = 1
For Each row In rng.Rows
    If fval.Value = rng.Cells(rowc, fCol).Value Then
        result = rng.Cells(rowc, rCol).Value
        Exit For
    End If
    rowc = rowc + 1
Next

asda= result

结束函数

Answer 1

第一个解释请看 cmets。

当您使用 row 作为变量时，您无法从 Range 类 调用 Row 属性，因此我将其更改为 RowV 以使用RowV.row。

编译已经说过的内容：

Function asda(fval As Range, rng As Range, fCol As Integer, rCol As Integer)

    Dim RowV As Range

    For Each RowV In rng.Rows
        If fval.Value <> rng.Cells(RowV.row, fCol).Value Then
        Else
            asda = rng.Columns(rCol).Rows(RowV.row).Value
            'Exit For
            Exit Function
        End If
    Next RowV

    asda = "Value not found"

End Function