Excel - Duda

   
Vista:

Duda

Publicado por Victor (2 intervenciones) el 24/04/2014 20:36:10
Buenas Tardes a todos

De que manera puedo automatizar la insercion de renglones entre lineas

x
x
x
x


x
Renglon en Blanco
x
Renglon en Blanco
x
Renglon en Blanco
x
Renglon en Blanco

Son 15000 registros y no quisieras hacerlos uno a uno.

Saludos y que esten bien
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Luis Carlos

Duda

Publicado por Luis Carlos (13 intervenciones) el 25/04/2014 01:53:20
hola saludos desde Colombia.

bueno pues la forma de hacerlo es muy sencilla solo tienes que grabar una macro y ya esta.

ahora que la grabación de la macro si depende la versión del office que utilices.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Duda

Publicado por Victor vacuna@grupostaff.com (2 intervenciones) el 25/04/2014 01:56:18
Pues ya lo hice a mano....
ahí para la otra

Gracias...

Saludos hasta Colombia desde Mexico
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Duda

Publicado por Cacho R (44 intervenciones) el 25/04/2014 02:30:26
Hola!
Suponiendo que tienes selecionada alguna de las celdas del rango a procesar, una forma de hacerlo es mediante el siguiente código:

Sub Insertar_Filas_en_Blanco()
Dim Q
With Selection.CurrentRegion
Q = .Rows.Count
.Cells(1).EntireColumn.Insert
.Columns(1).Offset(, -1) = "=row()"
.Columns(1).Offset(Q, -1) = "= 0.1 + " & .Cells(1).Offset(, -1).Address(0, 0)
.Cells(1).Offset(, -1).Resize(2 * Q) = .Cells(1).Offset(, -1).Resize(2 * Q).Value
End With
With Selection.CurrentRegion
.Sort .Cells(1), 1, Header:=2
.Cells(1).EntireColumn.Delete
End With
End Sub

Saludos, Cacho R.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar