使用For Each循环处理数组时修改结果未被记录的技术问题

嘿，我太懂你这种卡一小时的感觉了！你的问题核心是没搞清楚VBA里For Each遍历数组的本质——它遍历的是元素的副本，不是原数组的直接引用！所以你给j赋值""的时候，只是改了那个临时的副本，原数组里的元素根本没被改动，最后Join自然还会保留那些本该被移除的词。

具体问题拆解 #

当你写For Each j In i时，VBA会把数组i里的每个元素复制一份给变量j，你对j做的任何修改都只停留在这个副本上，原数组i的对应位置完全没变化。这就是为啥你看着j变成空了，但最终结果不对的原因——你改的根本不是原数组里的内容！

修正后的代码 #

要解决这个问题，我们改用索引式的For循环（For ... To ... Next）来遍历数组，这样就能直接访问并修改原数组的元素位置，而不是操作副本：

Dim i As Variant
Dim j As Integer
Dim k As Variant
Dim tempArr As Variant

For Each i In keywordToProcess
    ' 拆分字符串到临时数组，避免混淆原变量i
    tempArr = Split(i, " ")
    
    ' 处理复数：用索引直接修改数组元素
    For j = LBound(tempArr) To UBound(tempArr)
        tempArr(j) = RemovePrurals(tempArr(j))
    Next j
    
    ' 移除忽略关键词：通过索引直接修改原数组的对应位置
    For j = LBound(tempArr) To UBound(tempArr)
        For Each k In ignoreArr
            If tempArr(j) = k Then
                tempArr(j) = ""
                Exit For ' 找到匹配后跳出内层循环，提升效率
            End If
        Next k
    Next j
    
    ' 合并数组回字符串
    i = Join(tempArr, " ")
Next i

关键修改点说明 #

• 用For j = LBound(tempArr) To UBound(tempArr)替代For Each j In i：tempArr(j)直接指向数组的元素位置，修改会直接作用于原数组。
• 新增tempArr临时变量：把拆分后的数组单独存储，避免原变量i的类型混淆（原代码中i既是keywordToProcess的元素，又是拆分后的数组，容易出问题）。
• 添加Exit For：找到匹配的忽略关键词后立即跳出内层循环，减少不必要的遍历。

小补充 #

如果坚持想用For Each，其实可以使用对象类型的数组（比如String()），但需要额外的处理逻辑，远不如索引循环直接直观。在需要修改数组元素的场景下，索引循环是更稳妥的选择。

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