insertar filas en blanco

Pedro F. Pardo escribió el 12/06/2012 10:35 :

El martes, 12 de junio de 2012 08:18:25 UTC+1, robinc escribió:

¡ Hola !
Buena tarde

Tengo una lista con mas de 5000 filas y quiero insertar tres filas en blanco
despues de cada 3 filas de las que ya yengo escritas. ¿Como lo hago?

Mediante una macro.

Esta por ejemplo, comienza a partir de donde esté la celda seleccionada
y va insertando tres filas en blanco, hasta que se encuentre una celda en
blanco en la columna A


Sub insertar_lineas()

a = ActiveCell.Row
b = a + 2

Do While Range("A" & a).Value <> ""
Rows(a & ":" & b).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
a = a + 6
b = a + 2
Loop
End Sub

Pedro F. Pardo muchas gracias


Pero Necesito que me ayude modificando la macro ya que adicional a esto las 3 filas que inserte debo de copiar la info de las 3 primeras filas de la columna B y asi sucesivamente hasta que no hayan mas datos, es decir repetir el siguiente procediemiento varias veces.

Sub Macro1()
'
' Macro1 Macro
'

'
Rows("4:6").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B1:B3").Select
Selection.Copy
Application.CutCopyMode = False
Selection.Cut
Range("A4").Select
ActiveSheet.Paste
Rows("10:12").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B7:B9").Select
Selection.Cut
Range("A10").Select
ActiveSheet.Paste
Rows("16:18").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B13:B15").Select
Selection.Cut
Range("A16").Select
ActiveSheet.Paste
Rows("22:24").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B19:B21").Select
Selection.Cut
Range("A22").Select
ActiveSheet.Paste
Rows("28:30").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B25:B27").Select
Selection.Cut
Range("A28").Select
ActiveSheet.Paste
End Sub