Concatenar datos celdas Excel

[floog]

Hola
lo que pretendo es concatenar datos de una columna de 20 filas en otra celda. Las 20 celdas pueden estar vacias o con texto. Lo que pretendo es que me concatene los datos hasta que encuentre una celda vacia. Alguna idea?
Sldos

[ARICARRARO]

Primero deberías postear el código que llevas.

Una ayuda:

Código VBA:

Option Explicit
Dim cadena As String
Dim i As Integer
 
Private Sub UserForm_Initialize()
For i = 1 To 21
cadena = " " + ActiveSheet.Range("B" + CStr(i)).Value
ListBox1.AddItem cadena
Next i
End Sub
 

Lo que hace este código es mostrarme los datos de una columna en un ListBox.

Podrías intentar hacer un algoritmo:

Código pseudocódigo:

Si  celdaVacia == True entonces
   # llenar celda
...
...
 

[jchuk]

Hola,

No sé si es exactamente lo que pides, pero te pongo una solución fácil, suponiendo que tus datos estén en la columna A, desde A1, para hacer la concatenación pondrías esta fórmula en B2 y arrastrarías la misma hacia abajo al resto de celdas:

Código:

=SI(A2="";"";B1&A2)

De este modo, antes de una celda vacía siempre tendrás el resultado de concatenar todas las anteriores que contenían valor.

En la primera celda de resultados, según mi ejemplo B1, pondrías simpremete =A1

Saludos.