在指定位置的Excel单元格中插入Word

Question

在excel中我有两列A，B，C，D和E.在A列的每一行中都有一个段落。在列B，C，D和E中，在列A的每个单元格前面有四个不同的单词。我想将列B，C，D和E中的这4个不同的单词放入列中的段落中一个细胞。但是，在整个段落中，所有这四个词应该是相等的。例如，1个字应该在该段的开头。在整个段落中，这三个词的其余部分应该是相等的。

我通过应用“TRIM”功能删除了前导和尾随空格。该段由多行组成，包含换行符和多个子段落。

注意：如果解决方案灵活适用于更多的单词，例如7,8或9个单词，那么它会很棒。

Answer 1

以下代码可能有所帮助。这是UDF。

Function InsertWord(Source As String, InsWord As String, Pos As Integer)
    Dim arr() As String
    arr = Split(Source, " ")
    wordCount = UBound(arr)
    If wordCount < 1 Or (Pos - 1) > wordCount Or Pos < 0 Then
        InsertWord = Source
    Else
        arr(Pos - 1) = arr(Pos - 1) & " " & InsWord
        InsertWord = Join(arr, " ")
    End If
End Function

见图片参考：