Pergunte aqui
1

Como excluir uma linha?

perguntadas 2018-02-17 12:39:43 +0100

imagem do gravatar de elio

updated 2018-02-17 21:46:09 +0100

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

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

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

imagem do gravatar de SchiavinattoSchiavinatto ( 2018-02-17 21:33:38 +0100 )editar

Você quer utilizar uma macro?

imagem do gravatar de AmaralAmaral ( 2019-02-21 15:02:26 +0100 )editar

1 Resposta

0

respondidas 2019-02-21 15:58:30 +0100

@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 Descrição da imagem a esquerda da resposta, para finalizar a pergunta.

editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-02-17 12:39:43 +0100

Lidas: 113 vezes

Última atualização: Feb 21