excel - 对于每个循环在 else 部分失败

Question

我会向你寻求一些帮助。我已经这样做了很多次，但这一次我无法忍受。
我有 ProductID 的列在两张纸中，其中一张有他们的描述，我希望将此描述转移到另一张。如果 ProdID不可用则必须说Not available .作为一个函数

For Each product In Intersect(searcharea.Columns(1).Cells, searcharea.Parent.UsedRange)
    If product.Text = searchedvalue.Text Then
        description = Trim(product.Offset(0, 1).Text)
    Else description = "Not available"
    End If
Next product
productdescription = description

我得到所有的描述不可用。

Answer 1

我用类似的功能重试然后可能会提供与您预期相同的结果，我发现Exit For在循环中非常重要，否则在大多数情况下它总是返回“未找到”，希望对您有所帮助:)

Function test(lookR As Range, selectedRange As Range) As String

Dim lookValue As Range
Dim result As String

For Each lookValue In selectedRange.Cells
    If lookR.Value = lookValue.Value Then
        result = "ok"
        Exit For
    Else
        result = "Not found"
    End If
Next

test = result
End Function

B 列是我输入用户定义函数的地方