Concatenar celdas conservando el estilo

Hola, espero que este código te sirva:

vF = Range("A1").End(xlDown).Row
For I = 1 To vF
v1 = Len(Range("A" & I).Value)
v2 = Len(Range("B" & I).Value)
Range("C" & I).Value = Range("A" & I).Value & Range("B"
& I).Value
Range("C" & I).Characters(Start:=1,
Length:=v1).Font.FontStyle = "Normal"
Range("C" & I).Characters(Start:=v1 + 1,
Length:=v2).Font.FontStyle = "Negrita"
Next I

Hola a todos!

Necesito mostrar en UNA celda el nombre (celda c1) y
apellidos (celda c2) de una persona.

El problema está en que el nombre debe salir en negrita,
entonces cuando asigno a esa celda el valor =concatenar
(c1;c2) me pierde el estilo del nombre, y o pongo los

dos

en negrita o ninguno. ¿Hay alguna forma de copiar texto
conservando el estilo?

Muchas gracias
.

Muy bueno el código José Luis, lo paso nuevamente con dos pequeñas modificaciones, ya que pega los nombres (sin espacio intermedio)
y al modificar esto no colocaba en negrita la última letra.

vF = Range("A1").End(xlDown).Row
For I = 1 To vF
v1 = Len(Range("A" & I).Value)
v2 = Len(Range("B" & I).Value)
Range("C" & I).Value = Range("A" & I).Value & " " & Range("B" & I).Value 'espacio entre nombres
Range("C" & I).Characters(Start:=1, Length:=v1).Font.FontStyle = "Normal"
Range("C" & I).Characters(Start:=v1 + 2, Length:=v2 + 1).Font.FontStyle = "Negrita" 'aumentar para que tome todas las letras
Next I

Suerte
Nilda Beatriz Díaz
MS - MVP
Desde el tercer planeta a partir del Sol

"-José Luis-" escribió en el mensaje news:02e901c3426b$14d89ce0$
Hola, espero que este código te sirva:

vF = Range("A1").End(xlDown).Row
For I = 1 To vF
v1 = Len(Range("A" & I).Value)
v2 = Len(Range("B" & I).Value)
Range("C" & I).Value = Range("A" & I).Value & Range("B"
& I).Value
Range("C" & I).Characters(Start:=1,
Length:=v1).Font.FontStyle = "Normal"
Range("C" & I).Characters(Start:=v1 + 1,
Length:=v2).Font.FontStyle = "Negrita"
Next I

Hola a todos!

Necesito mostrar en UNA celda el nombre (celda c1) y
apellidos (celda c2) de una persona.

El problema está en que el nombre debe salir en negrita,
entonces cuando asigno a esa celda el valor =concatenar
(c1;c2) me pierde el estilo del nombre, y o pongo los

dos

en negrita o ninguno. ¿Hay alguna forma de copiar texto
conservando el estilo?

Muchas gracias
.