It er plagsom for deg å se etter de tomme regneark og fjerne dem én etter én, men med følgende VBA-kode, kan du enkelt slette alle tomme regneark samtidig.
1. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen vinduet
VBA. Slette alle tomme regneark
Sub DeleteBlankWorksheets () 'Update 20130830Dim Ws Som WorksheetOn Error Resume NextApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseFor Hver Ws programmet. regneark Hvis Application.WorksheetFunction.CountA (Ws.UsedRange) = 0 Then Ws.Delete End IfNextApplication.ScreenUpdating = TrueApplication.DisplayAlerts = TrueEnd Sub3. Deretter trykker du F5-tasten, og alle de tomme regneark slettes samtidig.