Macro para insertar varias filas o columnas

En esta ocasión vamos a ver dos macros que nos servirán para introducir de forma automática un número que determinemos de filas o columnas. Por ello, tanto en un caso como en el otro, cuando ejecutemos la macro nos abrirá un cuadro de diálogo en el que nos pide que le indiquemos el número de filas o columnas a insertar.

Lo mejor de esta macro es que es muy fácil insertar un número elevado de filas o columnas.

Macro para insertar varias filas o columnas en Excel

Macro para insertar varias filas

Esta macro, cuando la ejecutemos nos pedirá el número de filas que queremos añadir. Nos lo pide en un Inputbox. Una vez que lo indicamos y le damos a Aceptar nos insertará las filas desde la misma celda que se encuentra activa.

El código de la macro es el siguiente:

Sub InsertarVariasFilas()
Dim i As Integer
Dim j As Integer
ActiveCell.EntireRow.Select
On Error GoTo Last
i = InputBox(«Indica el número de filas a insertar», «Insertar filas»)
For j = 1 To i
Selection.Insert Shift:=xlToDown, CopyOrigin:=xlFormatFromRightorAbove
Next j
Last: Exit Sub
End Sub

Macro para insertar varias columnas

Esta macro, es similar a la anterior pero afecta a las columnas. Nos pedirá el número de columnas que queremos añadir en un Inputbox. Una vez que lo indicamos y le damos a Aceptar nos insertará las columnas desde la misma celda que se encuentra activa.

El código de la macro es el siguiente:

Sub InsertarVariasColumnas()
Dim i As Integer
Dim j As Integer
ActiveCell.EntireColumn.Select
On Error GoTo Last
i = InputBox(«Indica el número de columnas a insertar», «Insertar columnas»)
For j = 1 To i
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromRightorAbove
Next j
Last: Exit Sub
End Sub