> ... Supongo que tendre que intentar aprender algo de VB, aunque solo sea por cabezoneria.no comentas para que o por que necesitas ese tipo de concatenacion que incluya los formatos 'originales' -?-
[en via de mientras]... haz una prueba con la siguiente macro... suponiendo que...
-> en 'D2' necesitas concatenar 'A2' - 'B2' - 'C2'' intercalando un espacio entre cada una...si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
=== en un modulo de codigo 'normal' ===
Sub ConcatenarConFormato()
[d2] = [a2] & " " & [b2] & " " & [c2]
With [d2]
With .Characters(1, Len([a2])).Font
.ColorIndex = [a2].Font.ColorIndex
.Bold = [a2].Font.Bold
.Italic = [a2].Font.Italic
.Name = [a2].Font.Name
.Size = [a2].Font.Size
.Underline = [a2].Font.Underline
End With
With .Characters(Len([a2]) + 2, Len([b2])).Font
.ColorIndex = [b2].Font.ColorIndex
.Bold = [b2].Font.Bold
.Italic = [b2].Font.Italic
.Name = [b2].Font.Name
.Size = [b2].Font.Size
.Underline = [b2].Font.Underline
End With
With .Characters(Len([a2] & [b2]) + 3, Len([c2])).Font
.ColorIndex = [c2].Font.ColorIndex
.Bold = [c2].Font.Bold
.Italic = [c2].Font.Italic
.Name = [c2].Font.Name
.Size = [c2].Font.Size
.Underline = [c2].Font.Underline
End With
End With
End Sub