Excel中進行VBA編程序用宏刪除空工作表的操作方法

Excel中進行VBA編程序用宏刪除空工作表的操作方法

　　EXCEL默認的工作表一般有三個。常常會遇到需要刪除掉空的不用的刪工作表。這個操作除了一步步手動，還可以通過宏來快速批量處理。今天，學(xué)習啦小編就教大家在Excel中進行VBA編程序用宏刪除空工作表的操作方法。

　　Excel中進行VBA編程序用宏刪除空工作表的操作步驟：

　　打開一個工作簿，本例中有三個工作表，工作表名為工資表的有數(shù)據(jù)，其它兩個sheet2和sheet3為空白。

　　打開VBA編輯器，插入一個模塊1。

　　在模塊1中輸入代碼

　　Sub test1()Dim ws As Worksheet Application.DisplayAlerts = False For Each ws In ActiveWorkbook.Worksheets ws.Activate If ActiveWorkbook.Worksheets.Count > 1 Then If IsEmpty(ActiveSheet.UsedRange) Then '如表格為空 ws.Delete '則刪除該表 End If End If Next ws Application.DisplayAlerts = TrueEnd Sub

　　執(zhí)行該宏

　　兩個空白的表被批量刪除了。