Como remover linhas em branco no CALC

49 Flares Twitter 11 Facebook 36 LinkedIn 0 Google+ 2 Filament.io 49 Flares ×

Como remover linhas em branco no LibreOffice CALC

Hoje precisei eliminar várias linhas em branco numa planilha no LibreOffice Calc 4.1. Trabalho chato este.

Procurando no “oráculo de Deus” acabei achando o link do site Seja Livre com esta dica pronta: um macro que elimina as linhas!

Ali esta todo o passo-a-passo de como incluir a macro no seu CALC. Mas…

… ao executar encontrei vários erros de sintaxe. Deu uma fuçada e depois de eliminar os erros, posto abaixo o código. Basta copiar e colar.

LibreOffice Calc

Copie e cole este macro no seu CALC

REM  *****  BASIC  *****

Sub Main

REM Macro que remove linhas em branco em uma planilha.
REM Desenvolvida incialmente por Noelson Duarte em *02/06/2005*.
REM Alterada por Francival Lima em 01/03/2008
'
oDoc = thisComponent
'Retorna o Documento aberto.
oControlador =oDoc.getCurrentController()
'Retorna o controlador do Documento aberto.
oPlan = oControlador.getActiveSheet()
'Retorna a planilha ativa.
oCursor = oPlan.createCursor()
'Cria um cursor
oCursor.gotoEndOfUsedArea(False)
vEnd = oCursor.getRangeAddress()
oExt = oPlan.getCellRangeByPosition(0,0,vEnd.EndColumn,vEnd.EndRow)
oLinhas = oExt.getRows()
nTotal = oLinhas.getCount() - 1
nFlags = com.sun.star.sheet.CellFlags.VALUE OR _
com.sun.star.sheet.CellFlags.DATETIME OR _
com.sun.star.sheet.CellFlags.STRING OR _
com.sun.star.sheet.CellFlags.ANNOTATION OR _
com.sun.star.sheet.CellFlags.FORMULA
For i = nTotal To 0 Step -1
   oExtLin = oPlan.getCellRangeByPosition(0, i, vEnd.EndColumn, i)
   oCelulasNaoVazias = oExtLin.queryContentCells(nFlags)
   If oCelulasNaoVazias.getCount() = 0 Then
      oLinhas.removeByIndex(i, 1)
   End If
Next i

End Sub

Sugestões e comentários, estamos ai! Use o CALC com mais alegria agora.

Related Posts Plugin for WordPress, Blogger...

Maudy T. Pedrão

Programador Visual, webdesigner e diretor da WD-me e entusiasta linux há 7 anos. Ganhador do prêmio TOPBLOG 2010 na categoria "Tecnologia" - escolha do júri acadêmico e TOP3 2011 pelo voto popular, na mesma categoria. Fez entrevistas para TV (Olhar Digital) e Rádio (CBN) falando sobre Linux/Ubuntu.

More Posts - Website - Twitter - Facebook - Google Plus

2 comentários

  1. Ontem precisei de exatamente o contrário, necessitava inserir uma linha em branco entre cada duas linhas preenchidas, em uma planilha com 800 rows preenchidas. Cada vez mais amo o “Find and Replace”. Com pouco esforço esta ferramenta fez o serviço :D
  2. Funcionou muito bem. Obrigado pela dica.

Poste um Comentário

Você pode usar as seguintes tags HTML:
<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>