Insertar columnas automaticamente

04/06/2005 - 09:53 por niputocaso9 | Informe spam
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

Preguntas similare

Leer las respuestas

#1 Fernando Arroyo
04/06/2005 - 12:17 | Informe spam
"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
Respuesta Responder a este mensaje
#2 Megamo
06/06/2005 - 08:02 | Informe spam
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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida