打開VBE編輯器新建模塊并添加VBA代碼，如下圖：

操作方法：

按ALT F11組合鍵打開VBE編輯器，選中任意一個(gè)工作表名點(diǎn)擊右鍵，然后選擇“插入——模塊”，在模塊中粘貼以下代碼：

Sub 批量刪除工作表()

    Dim sh As Object

    Application.DisplayAlerts = False '關(guān)閉提示，否則每刪除一個(gè)非空工作表，都會(huì)出現(xiàn)提示

    For Each sh In ThisWorkbook.Sheets

        With sh

            If Application.WorksheetFunction.CountIf(Range('A2:A31'), .Name) > 0 Then

                .Delete

            End If

        End With

    Next sh

    Application.DisplayAlerts = True '開啟提示

End Sub

添加一個(gè)用于執(zhí)行VBA代碼的按鈕，并指定要執(zhí)行的代碼

最終效果如下：

我們今天分享的批量刪除工作表的指定名稱的單元格區(qū)域是已經(jīng)被寫死的（A2：A31），我們是否可以優(yōu)化代碼讓它在點(diǎn)擊按鈕的時(shí)候彈出一個(gè)選擇框選擇單元格區(qū)域然后再去刪除呢？想要學(xué)習(xí)更多Excel知識(shí)就請(qǐng)繼續(xù)關(guān)注吧.................

第280天的堅(jiān)持，離365天的小目標(biāo)還剩85天

我的Excel，天天與你不見不散