Como excluir uma linha?

[elio]

Estou tentando excluir varias linhas de uma coluna selecionada como no Excel (no Excel nos clicamos no F5 e depois nos clicamos _ em branco _ e depois nos clicamos em excluir.
qual o procedimento que devo fazer???
obrigado

[schiavinatto]

Ola @elio, estas linhas estão totalmente em branco ? Se sim, tenho uma macro que faz.

[Amaral]

Você quer utilizar uma macro?

[schiavinatto]

@ELIO, se for para toda linha em BRANCO:

'================================================|
Sub RemoverLinhasEmBranco
' observação: Remove Linhas em Branco de toda planilha ativa
'================================================|
' Macro que remove linhas em branco em uma planilha          '
' Desenvolvida incialmente por Noelson Duarte em 02/06/2005. '
' Alterada por Francival Lima em 01/03/2008                  '
'---------------------------------------------------------'
Dim oDoc As Object
Dim oControlador As Object
Dim oPlan As Object
Dim oCursor As Object
Dim vEnd As Object
Dim oExt As Object
Dim oLinhas As Object
Dim nTotal As integer 'As Object
Dim nFlags As Boolean 'As Object
oDoc = thisComponent
'End Sub
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

´
Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.