Página 1 de 1

Excluir linhas com critério

Enviado: 12 Jun 2021 às 00:18
por Durrio
Boa noite.

Na planilha anexa, na aba "investimento" preciso excluir as linhas que não contêm valores entre os meses de janeiro e julho. Fiz isso selecionando os blocos de linhas que atendem esse critério e excluindo-as e o resultado está na aba " investimentos (2). Deu um trabalhão e terei que fazer isso em outras planilhas com muito mais linhas. Há alguma forma mais prática de fazer isso?

Desde já agradeço.

Re: Excluir linhas com critério

Enviado: 12 Jun 2021 às 10:34
por osvaldomp
solução manual
1. selecione qualquer célula do intervalo A1:O1
2. menu Dados | Filtro
3. clique na setinha de cada uma das colunas C a I, desmarque Selecionar Tudo e marque Vazias, OK
4. exclua as linhas visíveis, remova o Filtro

solução via macro
Código: Selecionar todos
Sub ExcluiLinhasVazias()
 Dim k As Long
  On Error Resume Next
  ActiveSheet.ShowAllData
  On Error GoTo 0
  For k = 3 To 9
   [A1:O1].AutoFilter k, "="
  Next k
  Range("A2:A" &  Cells(Rows.Count, 1).End(3).Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete
  ActiveSheet.ShowAllData
End Sub

Re: Excluir linhas com critério

Enviado: 13 Jun 2021 às 22:47
por Durrio
Obrigado Osvaldo.

Utilizei a opção manual e deu certo.