Volver a la línea con un concatenar

¿El último también lo pongo?

Lo siento, intenté con y sin: con eso da error ^^ y sin eso me da el mismo resultado que cuando pongo el chr(10)

Atentamente

gracias :) había entendido el & pero si no pones nada después no puede funcionar :/ de todas formas a mí no me funciona ^^"
Atentamente

En realidad, lo que quiero es concatenar en una celda, las celdas llenas del rango seleccionado. Los datos se agrupan en una celda separados por un ";"". estaba perfecto ^^.
Sin embargo, se me ha pedido que los datos estén separados por un retorno de línea, del estilo:

tema1
tema2
tema3
todo eso en una celda ^^.

No sé si he sido claro, dime si no has entendido :)
Atentamente

en lugar de: tema1; tema2; tema3

Y normalmente hay un 3 después del último "Topic"

Hola,

via55 ya propuso esta idea, pero a mí no me funciona (CAR(10)=Chr(10)) creo ^^".

Atentamente

que usted utiliza CAR en una fórmula o CHR en la función, es el formato de la celda que recibe el resultado de lo que hablaba.
Este formato es indispensable cuando se utiliza CAR(10) en una fórmula, no lo es cuando se utiliza chr(10) en una macro, pero en una función personalizada, no lo sé.
Pero bueno, usted seguramente ya lo ha intentado;
saludos.

Ah el formateo! Lo siento, entendí mal ^^" Ya he formateado la celda correspondiente (como ustedes y Mike me lo dijeron) y eso da el resultado de arriba con esta macro:

Function Concatener1(Plage As Range) As String
Dim C As Range
Dim Texte As String
For Each C In Plage
If C <> "" Then
Texte = Texte & vbCrLf & C.Value
End If
Next C
If Len(Texte) > 0 Then Concatener1 = Left(Texte, Len(Texte) - 2)
End Function


Pero eso elimina la mitad del último valor y hay un espacio entre la parte superior de la celda y el primer dato.

... de hecho, funciona aparentemente correctamente si se quita & vbCrlf
ya que:
Texto = Texto & C.Value & chr(10)
eso es todo lo que puedo decir
buena suerte
cordialmente

¡Ah, sí! ^^ ¡Muchas gracias! ^^

Atentamente

¡Muchas gracias! ;)