Excel VBA自定义函数仅返回首个匹配结果问题求助

核心问题出在Excel自定义函数（UDF）的执行限制上：

• 当代码作为Sub过程运行时，Excel处于完整的VBA执行环境，FindNext可以正常遍历所有匹配的单元格
• 但作为UDF运行时，Excel会限制函数对工作表的部分操作，导致FindNext无法正确定位到下一个匹配项，循环仅执行一次就终止，因此只返回第一个匹配的结果

修复方案：改用单元格遍历替代Find/FindNext #

直接遍历目标区域的每个单元格进行匹配判断，这种方式在UDF环境下不受限制，能正常获取所有匹配结果。修改后的完整代码如下：

Function WedgeUsadaEn()

Dim myArray() As Variant
Dim x As Long, y As Long, lNumElements As Long
Dim msg As String
Dim cell As Range

With Worksheets("OBQ").Range("C13:C33")
    For Each cell In .Cells
        If cell.Value = "By Wedge" Then
            ReDim Preserve myArray(y)
            myArray(y) = cell.Offset(0, -2).Value
            y = y + 1
        End If
    Next cell
End With

' 处理无匹配项的情况
If y = 0 Then
    WedgeUsadaEn = ""
    Exit Function
End If

lNumElements = UBound(myArray) - LBound(myArray)

' 拼接结果字符串
If lNumElements = 0 Then
    msg = myArray(0)
Else
    For x = LBound(myArray) To UBound(myArray)
        If x < UBound(myArray) Then
            msg = msg & myArray(x) & ", "
        Else
            msg = msg & myArray(x)
        End If
    Next x
End If

WedgeUsadaEn = msg

End Function

额外修复点： #

1. 修正了原代码中匹配项数量判断的错误：原代码判断lNumElements = 1，但单个匹配项时数组的上下标差为0，会导致拼接逻辑异常
2. 增加了无匹配项时返回空值的处理，避免数组未初始化引发的错误

内容的提问来源于stack exchange，提问作者David Suarez