Använda tangentbordet
Markera alla dolda rader att radera.
Tryck på Ctrl + 9.
Gå till specialkommando
Välj valfri cell inom intervallet som innehåller dolda rader.
Från hemmenyn väljer du Sök och välj> Gå till special.
Välj alternativet Blanks.
Välj OK.
Högerklicka.
Högerklicka på någon av de markerade raderna och välj Ta bort från snabbmenyn.
Ta bort hela dolda rader med hjälp av dialogrutan Sök och ersätt
Välj valfri cell som innehåller dolda rader.
Tryck på Ctrl + H genväg för att öppna dialogrutan Sök och ersätt.
Klicka på knappen Alternativ>> och kontrollera om rullgardinsmenyn Sök i visar Hela arbetsboken. Om inte, välj det.
Skriv ^~ i textrutan Hitta vad.
Lämna textrutan Ersätt med tom.
Klicka på Hitta alla.
Välj Alla.
Klicka på knappen Ersätt alla.
UDF-metod för att ta bort dolda rader
Välj valfri cell.
Välj Definiera namn på fliken Formler.
Ange Delete_Rows i textrutan Namn.
Skriv följande formel i rutan Refererar till.
`Public Function Delete_Rows() As Boolean Dim ws As Worksheet For Every ws In ThisWorkbook.Worksheets If Not ws.Visible Then Application.DisplayAlerts =False ws.Visible =True ws.Delete 'Application.DisplayAlerts =True ElseVisibles ws. Sedan nästa ws Delete_Rows =True End Function`
Klicka på OK.
Välj de synliga raderna som inte innehåller dolda rader och klicka på F5 för att få fram dialogrutan Gå till.
Från rullgardinsmenyn Special, välj alternativet Formler och klicka på OK.
Tryck på Ctrl + C.
Välj valfri cell.
Tryck på Ctrl + H för att öppna dialogrutan Sök och ersätt.
Klicka på knappen Alternativ>>.
Välj Efter värden från rullgardinsmenyn Sök.
Klicka på OK.
Högerklicka på den aktiva cellen och välj Klistra in special från snabbmenyn.
Under Klistra in väljer du Formler.
Klicka på OK.
Klicka på knappen Ersätt alla.
Spara din arbetsbok med ett annat filnamn för att behålla en säkerhetskopia.
