Excel - Una macro para insertar filas en blanco

• Problema
• Solución

Problema

Está intentando crear una macro que insertará un conjunto de filas en blanco en una hoja de cálculo existente después de cada entrada. La cantidad de filas necesarias será la misma para cada entrada de la hoja de cálculo, pero deberá cambiarse cada vez que se use.

Aquí hay una muestra ...

Actualmente:

 Título 1
Título 2
Título 3
Título 4 

Después de usar Macro:

 Título 1
Título 2
Título 3
Título 4

La cantidad de fila en blanco puede ir de 20 a 40.

Solución

A1 tiene encabezados.

Entonces prueba esta macro

mantenga su archivo original en un lugar seguro

Primero haga la prueba de macro en los datos experimentales que ha enviado.

 Prueba secundaria ()
Dim j tan largo, r como rango
j = Cuadro de entrada ("escriba el número de filas que se insertarán")
Establecer r = Rango ("A2")
Hacer
Rango (r.Offset (1, 0), r.Offset (j, 0)). EntireRow.Insert
Establecer r = Celdas (r.Row + j + 1, 1)
MsgBox r.Dirección
Si r.Offset (1, 0) = "" Entonces salga de Do
Lazo
End Sub

Gracias a venkat1926 por este consejo.