Insertar columnas automaticamente

"megamo" escribió en el mensaje news:

Hola a todos

Tengo una columna con mas de mil celdas. Necesito insertar 4 filas en
blanco entre una celda y la otra. ¿Como puedo hacerlo automaticamente?

Gracias

Mira si te sirve:

Sub prueba()
Dim i As Long
Application.ScreenUpdating = False
With Worksheets("Hoja1") 'Sustituir Hoja1 por el nombre de la hoja
For i = 1 To .[A65536].End(xlUp).Row * 5 Step 5 'Suponiendo que la columna sea la A
.Range("A" & i + 1).Resize(4).EntireRow.Insert
Next i
End With
Application.ScreenUpdating = True
End Sub

Como siempre que se hacen cambios masivos, es recomendable hacer una prueba con una copia de la hoja.
Un saludo.


Fernando Arroyo
MS MVP - Excel

Gracias Fernando, era lo que buscaba.
"Fernando Arroyo" escribió en el mensaje
news:
"megamo" escribió en el mensaje
news:

Hola a todos

Tengo una columna con mas de mil celdas. Necesito insertar 4 filas en
blanco entre una celda y la otra. ¿Como puedo hacerlo automaticamente?

Gracias

Mira si te sirve:

Sub prueba()
Dim i As Long
Application.ScreenUpdating = False
With Worksheets("Hoja1") 'Sustituir Hoja1 por el nombre de la hoja
For i = 1 To .[A65536].End(xlUp).Row * 5 Step 5 'Suponiendo que la
columna sea la A
.Range("A" & i + 1).Resize(4).EntireRow.Insert
Next i
End With
Application.ScreenUpdating = True
End Sub

Como siempre que se hacen cambios masivos, es recomendable hacer una prueba
con una copia de la hoja.
Un saludo.


Fernando Arroyo
MS MVP - Excel