Einfügen eines Wortes in Excel-Zelle an der angegebenen Position

Question

In Excel habe ich zwei Spalten A, B, C, D und E. In jeder Zeile der Spalte A gibt es einen Absatz. In den Spalten B, C, D und E gibt es vier verschiedene Wörter vor jeder Zelle der Spalte A. Ich möchte diese vier verschiedenen Wörter, die in den Spalten B, C, D und E stehen, in den in der Spalte vorhandenen Absatz einfügen Eine Zelle. Aber alle diese vier Wörter sollten gleichmäßig im gesamten Absatz verteilt sein. Zum Beispiel sollte 1 Wort am Anfang des Absatzes stehen. Und der Rest der drei Wörter sollte gleichmäßig im gesamten Absatz verteilt sein.

Ich habe die führenden und nachgestellten Leerzeichen entfernt, indem ich "TRIM" -Funktion angewendet habe. Der Absatz besteht aus mehreren Zeilen mit Zeilenumbrüchen und mehreren Unterabsätzen.

Hinweis: Wenn die Lösung für eine größere Anzahl von Wörtern, z. B. 7,8 oder 9 Wörter, flexibel ist, wird es großartig.

Answer 1

Der folgende Code könnte helfen. Dies ist ein 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 

Siehe Bild als Referenz: