Este fórum está sendo desativado

[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.

[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

[Durrio]

Obrigado Osvaldo.

Utilizei a opção manual e deu certo.