A veces, puede obtener una hoja de trabajo de otra persona y necesita algo de espacio para trabajar con la información proporcionada. Por ejemplo, puede resultarle útil agregar algunas filas en blanco entre cada una de las filas originales en una tabla de datos. Si bien esto se puede hacer con bastante facilidad utilizando el menú Insertar, puede volverse tedioso rápidamente, especialmente si tiene una mesa grande que desea desplegar.

La siguiente macro le ayudará enormemente en esta situación. Todo lo que necesita hacer es seleccionar la primera fila en la tabla de datos. Cuando ejecuta la macro, le pregunta cuántas filas en blanco desea insertar entre las filas originales. Cuando proporciona un número, la macro recorre la tabla y comienza a insertar filas en blanco. La macro se detiene cuando se detecta la primera celda en blanco después de la tabla original.

Sub SpreadOut()

Dim iBlanks As Integer     Dim J As Integer

iBlanks = InputBox("How many blank rows?", "Insert Rows")

ActiveCell.Offset(1, 0).Select     While ActiveCell.Value > "" And iBlanks > 0         For J = 1 To iBlanks             Selection.EntireRow.Insert         Next J         ActiveCell.Offset(iBlanks + 1, 0).Select     Wend End Sub

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2344) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

enlace: / excelribbon-Spreading_Out_a_Table [Extendiendo una mesa].