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

　　EXCEL默認(rèn)的工作表一般有三個(gè)。常常會(huì)遇到需要?jiǎng)h除掉空的不用的刪工作表。這個(gè)操作除了一步步手動(dòng)，還可以通過(guò)宏來(lái)快速批量處理。今天，學(xué)習(xí)啦小編就教大家在Excel中進(jìn)行VBA編程序用宏刪除空工作表的操作方法。

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

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

　　打開VBA編輯器，插入一個(gè)模塊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í)行該宏

　　兩個(gè)空白的表被批量刪除了。