☰

Percorra as células em uma coluna e concatene

tag-icon • tag-icon microsoft-excel vba macros
Percorra as células em uma coluna e concatene

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

*bla*

*alguma palavra*

*duas palavras*

*duas palavras*

*outras palavras*

Faça um loop por eles e concatene da seguinte maneira:

“meu texto personalizado” + “(”+“*[index1]*”,” * [index1] * ”, “*[index2]*”,”* [index2] *”, “*[index3]*”, ”* [índice3] *” + “)”

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

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

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

Qualquer ajuda é apreciada.

Responder1

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

Finalizar sub

informação relacionada