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