Notifications
Clear all

Deletar linhas que se repetem

4 Posts
3 Usuários
0 Reactions
829 Visualizações
(@luiz1609)
Posts: 8
Active 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
(@pfarias)
Posts: 265
Reputable 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

Pietro Farias

Se foi resolvido suas dúvidas, lembre se de marcar o tópico como RESOLVIDO.

ANALISTA X

 
Postado : 30/03/2015 11:19 am
Issamu
(@issamu)
Posts: 605
Honorable 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

Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/

 
Postado : 30/03/2015 12:32 pm
(@luiz1609)
Posts: 8
Active Member
Topic starter
 

Obrigado!

 
Postado : 31/03/2015 7:17 am