Usando o teclado

Selecione todas as linhas ocultas para excluir.
Pressione Ctrl + 9.
Vá para o comando especial

Selecione qualquer célula dentro do intervalo que contém linhas ocultas.
No menu inicial, selecione Localizar e selecionar> Ir para especial.
Selecione a opção Espaços em branco.
Selecione OK.
Clique com o botão direito.
Em qualquer uma das linhas selecionadas, clique com o botão direito e escolha Excluir no menu de contexto.
Remover linhas ocultas inteiras usando a caixa de diálogo Localizar e Substituir

Selecione qualquer célula que contenha linhas ocultas.
Pressione o atalho Ctrl + H para iniciar a caixa de diálogo Localizar e Substituir.
Clique no botão Opções>> e verifique se o menu suspenso Examinar mostra a pasta de trabalho inteira. Caso contrário, selecione-o.
Digite ^~ na caixa de texto Localizar.
Deixe a caixa Substituir por texto vazia.
Clique em Encontrar tudo.
Selecione tudo.
Clique no botão Substituir tudo.
Método UDF para excluir linhas ocultas
Selecione qualquer célula.
Na guia Fórmulas, selecione Definir Nome.
Insira Delete_Rows na caixa de texto Nome.
Na caixa de texto Refere-se a, digite a seguinte fórmula.

`Função pública Delete_Rows() como Boolean Dim ws como planilha para cada ws em ThisWorkbook.Worksheets If Not ws.Visible Then Application.DisplayAlerts =False ws.Visible =True ws.Delete 'Application.DisplayAlerts =True ElseIf ws.Visible =xlSheetVisible Então o próximo foi Delete_Rows =True End Function`

Clique em OK.
Selecione as linhas visíveis que não contêm linhas ocultas e clique em F5 para abrir a caixa de diálogo Ir para.
Na lista suspensa Especial, selecione a opção Fórmulas e clique em OK.
Pressione Ctrl + C.
Selecione qualquer célula.
Pressione Ctrl + H para iniciar a caixa de diálogo Localizar e Substituir.
Clique no botão Opções>>.
Selecione Por valores na lista suspensa Pesquisar.
Clique em OK.
Clique com o botão direito na célula ativa e selecione Colar especial no menu de contexto.
Em Colar, escolha Fórmulas.
Clique em OK.
Clique no botão Substituir tudo.
Salve sua pasta de trabalho com um nome de arquivo diferente para manter um backup.