Notifications
Clear all

Deletar linhas que se repetem

4 Posts
3 Usuários
0 Reactions
818 Visualizações
(@luiz1609)
Posts: 0
New Member
Topic starter
 

Boa tarde, pessoal!

Alguém sabe algum comando para deletar as linhas destacadas em amarelo na planilha anexa e deixar apenas as linhas relevantes? Elas se repetem ao longo das linhas.

Obrigado,
Luiz

 
Postado : 30/03/2015 10:54 am
(@pfarias)
Posts: 0
New Member
 

Provavelmente, isso deve ter vindo de uma tabela dinâmica.
Então tem que ser na "Munheca"

Mas fica a dica. Faz a seleção na coluna toda e depois pega uma coluna, por exemplo que só tenha numero, e seleciona apenas as letras la no final do filtro.
E depois seleciona todas essas linha pressiona ALT+; e exclui essas linha.

Vê no anexo como ficou

 
Postado : 30/03/2015 11:19 am
(@issamu)
Posts: 0
New Member
 

Uma alternativa é utilizar um código VBA para varrer as linhas e ir apagando as linhas que não interessa.

Desenvolvi o código abaixo que pode te interessar:

Sub Limpar_Dados()

Application.ScreenUpdating = False
    
    Dim rlast As Long
    Dim lCell As Long
    Dim x As Long
    
    If Cells(Rows.Count, 1).Value <> "" Then
        rlast = Cells(Rows.Count, 1).Row
    Else
        rlast = Cells(Rows.Count, 1).End(xlUp).Row
    End If
    
    Range("A6").Activate
    
    Do Until ActiveCell.Row = rlast
        
        If ActiveCell.Value = "" Or _
            Left(ActiveCell.Value, 4) = "----" Or _
            Left(ActiveCell.Value, 4) = "Tota" Or _
            Left(ActiveCell.Value, 4) = "N·me" Or _
            Left(ActiveCell.Value, 4) = "Soma" Or _
            Left(ActiveCell.Value, 4) = "de I" Then
            
            ActiveCell.Rows("1:1").EntireRow.Delete Shift:=xlUp
            
            Else
            ActiveCell.Offset(1, 0).Activate
    
            
        End If
        
Loop
    

Application.ScreenUpdating = True

End Sub
 
Postado : 30/03/2015 12:32 pm
(@luiz1609)
Posts: 0
New Member
Topic starter
 

Obrigado!

 
Postado : 31/03/2015 7:17 am