☰

Recorrer celdas en una columna y concatenar

tag-icon • tag-icon microsoft-excel vba macros
Recorrer celdas en una columna y concatenar

Me gustaría tomar todas las celdas de la columna A:

*bla*

*Alguna palabra*

*dos palabras*

*dos palabras*

*otras palabras*

Recorrelos y concatena de la siguiente manera:

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

(y tener un botón que, al hacer clic(), pega el resultado en alguna celda, digamos B1)

(cada [índice] se repite porque el primero no tiene espacio, el segundo tiene espacio entre **).

Lo hago bastante fácilmente con Javascript en un documento HTML, pero no sé nada sobre VBA o macros de Excel.

Se agradece cualquier ayuda.

Respuesta1

prueba 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

Subtítulo final

información relacionada