Durchlaufen Sie die Zellen in einer Spalte und verketten Sie sie

Question

Ich möchte alle Zellen der Spalte A nehmen:

*bla*

*irgendein Wort*

*zwei Wörter*

*zwei Wörter*

*andere Worte*

Durchlaufen Sie sie und verketten Sie sie wie folgt:

„mein benutzerdefinierter Text“ + „(“+“*[index1]*“,” * [index1] * ”, „*[index2]*“,”* [index2] *”, „*[index3]*“,”* [index3] *” + “)”

(und haben Sie eine Schaltfläche, die bei Klick() das Ergebnis in eine Zelle einfügt, beispielsweise B1)

(jeder [Index] wird wiederholt, da der erste ohne Leerzeichen und der zweite mit einem Leerzeichen zwischen ** ist).

Mit Javascript in einem HTML-Dokument geht das ganz einfach, von VBA oder Excel-Makros kenne ich mich allerdings nicht aus.

Jede Hilfe wird geschätzt.

Answer 1

versuchen Sie etwas wie:

Sub generateString()

Range("A1").End(xlDown).Select
For i = 1 To ActiveCell.Row
    Range("A" & i).Select
    strString = strString & " " & Selection
Next i

MsgBox strString

End Sub