Una macro de utilidad para aquellos que utilizamos con asiduidad hoja de cálculo, es la que dejo a continuación. La misión de esta macro, es la de borrar todas las filas con la primera celda vacía. Con esta macro se pueden hacer muchas cosas. Simplemente con un poquito de imaginación y con un truco que otro, la cosa se puede extender de una manera bárbara. El código:

{codecitation class=»brush: vb; gutter: true;» width=»500px»}

Sub limpialineasprimeravacia()

oDocument = ThisComponent

oSelectedCells = oDocument.CurrentSelection

oActiveCells = oSelectedCells.RangeAddress

oSheets = oDocument.Sheets

oSheet = oSheets.getByIndex(oActiveCells.Sheet)`active table

For nRow = oActiveCells.EndRow To oActiveCells.StartRow step -1

oCell = oSheet.getCellByPosition(0,nRow)

if oCell.getString()=»» then

oRow = oSheet.getRows().getByIndex(nRow)

`Select the row

ThisComponent.getCurrentController().select(oRow)

`Delete the row from the worksheet

osheet.removeRange(oRow.RangeAddress, com.sun.star.sheet.CellDeleteMode.UP)

end if

Next

end sub