Las aplicaciones de MS Office están diseñadas muyinteligentemente y no digo esto solo porque hacen que mi trabajo sea infinitamente más fácil. Lo digo porque es verdad. Hace unos días hicimos una publicación sobre la inserción de videos de YouTube en Office 2013 y notamos que la opción estaba ausente en MS Excel simplemente porque no era necesaria allí. Este es el tipo de inteligencia de la que estoy hablando; saber qué características se necesitan en un tipo específico de aplicación. Se asegura de que nada irrelevante llegue a la oferta final. Dicho esto, me sorprendió descubrir que, donde Excel le permite insertar más filas en una hoja de trabajo, no le permite seleccionar la cantidad de filas que desea agregar. Tiene otras soluciones para lograr esto, como seleccionar el número de filas que desea agregar de las existentes y luego usar la función de inserción. O bien, puede repetir el paso de insertar fila para tantas filas como desee. Es repetitivo, pero si está dispuesto a dedicar cinco minutos, esta pequeña Macro puede encargarse del trabajo por usted.
Como esto requiere una macro, necesitaráguarde su archivo como un archivo de Excel con macro habilitado. Para hacerlo, haga clic en el menú desplegable "Guardar como tipo" en la ventana Guardar como y seleccione "Libro de trabajo habilitado para Excel Marco (* xlsm).
Luego, es hora de escribir la Macro. Vaya a la pestaña Ver y haga clic en Macros para crear una nueva. Póngale el nombre que desee y haga clic en "Crear". La siguiente ventana se abrirá automáticamente.
Lo relevante aquí son los "Sub" y "Sub Sub"líneas. La línea Sub contendrá el nombre de su macro mientras que la Sub Sub marca el final de los comn en esa Macro. Como lo acaba de crear, no debería haber nada entre esas líneas como en la captura de pantalla anterior. Pegue lo siguiente entre estas dos líneas.
Dim CurrentSheet As Object
" Loop through all selected sheets.
For Each CurrentSheet In ActiveWindow.SelectedSheets
" Insert 5 rows at top of each sheet.
CurrentSheet.Range("a1:a5").EntireRow.Insert
Next CurrentSheet
Este código insertará cinco filas desde la parte superior. Se hace referencia en el código como A1: A5. Para editarlo según sus necesidades, necesita editar este rango. El primer valor sirve como referencia de dónde se insertarán las filas. Si lo cambia a A100, las filas se insertarán después de las primeras noventa y nueve filas. Después de establecer el punto de referencia, debe ingresar el número de filas.
Los números de fila están definidos por el rango de celdas A1: A5. Este rango insertará 5 filas. Para encontrar el rango correcto para su número de filas, por ejemplo, le gustaría insertar 25 filas de A99, agregará 25 al punto de referencia para que sea A99 y menos una celda. Es decir. A100 + 99 - 1 = A198. Está agregando filas y no columnas para que solo cambie el número y no la letra de la columna. La macro debe actualizarse cada vez que tiene que insertar filas en masa, pero es solo una pequeña edición y funciona muy bien, por lo que vale la pena el tiempo dedicado.
Macro a través del soporte de Microsoft
Comentarios