Faz um loop pelas células em uma coluna e concatena

Question

Eu gostaria de pegar todas as células na coluna A:

* bla *

* someWord *

* duas palavras *

* dois & palavras *

* outras palavras *

Faça um loop entre eles e concatene da seguinte forma:

"meu texto personalizado" + "(" "+" * [index1] * ”, * [index1] *”, “* [index2] *”, * * [index2] * ”,“ * [index3] * "," * [Index3] * "+") ”

(e tem um botão que, ao clicar (), cola o resultado em alguma célula, digamos B1)

(cada [índice] é repetido porque o primeiro é sem espaço, o segundo é com espaço entre **).

Faço isso facilmente com Javascript em um documento HTML, mas não sei nada sobre macros VBA ou Excel.

Qualquer ajuda é apreciada.

    

Answer 1

tente algo como:

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