Excel VBA Iterator Function定义报错及For Each遍历失败求助

你的核心问题是混淆了VBA和VB.NET的语法：VBA本身不支持Iterator关键字，也无法直接使用.NET的泛型System.Collections.Generic.IEnumerable(Of String)类型，这就是IDE标记红色、编译报错的根本原因。

具体问题拆解 #

1. Iterator Function是VB.NET专属语法，VBA没有这个关键字，IDE无法识别，直接标记错误。
2. System.Collections.Generic.IEnumerable(Of String)是.NET框架的泛型集合接口，VBA基于COM环境运行，不支持这类.NET专属类型。
3. 额外细节：你提供的无迭代版本函数名是FindFuzy（少了一个z），而迭代版本是FindFuzzy，如果调用时用了错误的函数名，也会触发"Sub or Function not defined"错误。

替代解决方案（避免ReDim数组） #

要在VBA里实现可迭代的模糊匹配结果，同时避免频繁ReDim数组，推荐使用Collection对象——它支持动态添加元素，且原生兼容For Each遍历：

Function FindFuzzy(sInp As String) As Collection
    Dim result As New Collection
    Dim cell As Range
    Dim matches As Long, charsFound As Long
    ' 其他变量声明...

    ' 模糊匹配逻辑示例（替换为你的实际判断逻辑）
    For Each cell In Sheet1.Range("A1:A100")
        ' 示例匹配条件：单元格内容包含输入文本（不区分大小写）
        If InStr(1, cell.Value, sInp, vbTextCompare) > 0 Then
            result.Add cell.Value ' 直接将匹配项加入集合
        End If
    Next cell

    Set FindFuzzy = result ' 返回Collection对象
End Function

调用示例：

Sub TestFindFuzzy()
    Dim match As Variant
    Dim fuzzyResults As Collection
    
    Set fuzzyResults = FindFuzzy("test")
    
    For Each match In fuzzyResults
        Debug.Print match ' 遍历输出所有匹配项
    Next match
End Sub

进阶：自定义迭代器类（复杂场景） #

如果需要更灵活的迭代逻辑（比如按需生成匹配项而非一次性收集），可以创建实现IEnumerable接口的自定义类，但步骤较繁琐：

1. 插入类模块并命名为FuzzyMatchEnumerator，实现IEnumerator接口的MoveNext、Reset方法和Current属性。
2. 再创建类模块FuzzyMatches，实现IEnumerable接口的GetEnumerator方法，返回上述枚举器。
3. 在FindFuzzy函数中初始化并返回FuzzyMatches对象。

不过对于大多数模糊匹配场景，使用Collection已经足够简单高效，无需复杂的自定义类实现。

内容的提问来源于stack exchange，提问作者In Hoc Signo