¿Cómo inserto un encabezado para cada persona? Dejando 1 espacio en blanco antes de cada encabezado.
¿Cómo coloco un encabezado a cada persona?
La información está en un listado.
La cantidad de datos no siempre es la misma.
Ejemplo. (Este es el listado al que deseo insertarle un encabezado por cada persona):
A B C D
1 Nombre: Antonio 8
2 Sexo: Mascullino
3 Edad: 10
4 Nombre: Berenice 9
5 Sexo: Femenino
6 Nombre: Carlos 10
7 Edad: 30
8 Sexo: Masculino
9 Profesión: Catedrático.
DEBERÍA QUEDAR ASÍ:
A B C D
1
2 DATOS NOMBRE CALIFICACION
3 Nombre: Antonio 8
4 Sexo: Mascullino
5 Edad: 10
6
7 DATOS NOMBRE CALIFICACION
8 Nombre: Berenice 9
9 Sexo: Femenino
10
11 DATOS NOMBRE CALIFICACION
12 Nombre: Carlos 10
13 Edad: 30
14 Sexo: Masculino
15 Profesión: Catedrático.
Nota: No todas las personas tienen la misma cantidad de renglones.
1 respuesta
H o l a:
Te anexo la macro
Sub InsertarEncabezados()
'Por.Dante Amor
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If Left(UCase(Cells(i, "A")), 6) = "NOMBRE" Then
Rows(i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows(i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(i + 1, "A") = "DATOS"
Cells(i + 1, "B") = "NOMBRE"
Cells(i + 1, "C") = "CALIFICACION"
End If
Next
MsgBox "Fin"
End Sub':) 'S aludos. D a n t e A m o r . R ecuerda valorar la respuesta. G racias ':)
