用 Excel 上另一个单元格中的另一个单词替换一个单元格中一个句子中的 2 或 3 个单词

Question

我正在寻找解决方案，我在这里找到了它

replacing many words every one with alternative word

但现在我使用的是从该帖子下方的链接中获得的替代代码，它区分大小写。

Function SubstituteMultipleCS(text As String, old_text As Range, new_text As Range)
Dim i As Single
For i = 1 To old_text.Cells.Count
    Result = Replace(text, old_text.Cells(i), new_text.Cells(i))
    text = Result
Next i
SubstituteMultipleCS = Result
End Function

我用它来制作德语 Anki 卡片，所以我需要用 ___ 替换一些单词。如果它们在一起，它可以处理一个单词或一堆单词，但是......

问题如下： 有些动词变位有一个句子结构，当我必须把主要动词放在名词之后，把属于动词的助词放在最后。像这样的

如图所示，动词“schaute an”并没有被新词代替，因为“schaute”在原句中与“an”是分开的。

有没有办法解决这个问题？

谢谢。

Answer 1

这是您可以使用的公式（适用于您当前的示例数据：

C2中的公式：

=IFERROR(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(" "&SUBSTITUTE(B2,"."," ")&" "," "&FILTERXML("<t><s>"&SUBSTITUTE(A2," ","</s><s>")&"</s></t>","//s[position() = 1]")&" ",D2,1),IFERROR(" "&FILTERXML("<t><s>"&SUBSTITUTE(A2," ","</s><s>")&"</s></t>","//s[position() = 2]")&" ",""),D2,1),IFERROR(" "&FILTERXML("<t><s>"&SUBSTITUTE(A2," ","</s><s>")&"</s></t>","//s[position() = 3]")&" ",""),D2,1))&".","")

嵌套替换的优点是，如果您有一个可能出现多个的句子，我们可以告诉函数仅替换第一次出现。不知道它是否防水。