Código para concatenar celdas mediante comas en excel
Este es el código que uso para concatenar celdas que funciona a la perfección pero me gustaría que al coger el contenido de la penúltima celda no le ponga un ", " sino un "y ". Si me pueden ayudar, gracias.
Function CONCATENARCELDAS(rango As Range)
For Each celda In rango.Cells
If celda.Value <> "" Then
resultado = resultado & ", " & celda.Value
End If
Next celda
resultado = Right(resultado, Len(resultado) - 2)
CONCATENARCELDAS = resultado
End Function
Respuesta de Programar Excel
1
Por si deseas ahondar en el tema de trabajo con string o texto fíjate en los siguientes links
1 respuesta más de otro experto
Respuesta de Dante Amor
2
Te anexo el código actualizado
Function CONCATENARCELDAS(rango As Range) For Each celda In rango.Cells If celda.Value <> "" Then resultado = resultado & ", " & celda.Value End If Next celda resultado = Right(resultado, Len(resultado) - 2) ult = InStrRev(resultado, ",") If ult > 1 Then resultado = Left(resultado, ult - 1) & " y" & Mid(resultado, ult + 1) End If CONCATENARCELDAS = resultado End Function
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda