Excel批量刪除工作表

一、VBA基礎知識

VBA（Visual Basic for Applications）是一種用於自動化文件操作的編程語言，可以在Microsoft Office等應用程序中使用。在Excel中，VBA可以用來自動執行複雜的任務，例如批量刪除工作表。

在VBA中，要刪除一個工作表，可以使用「Worksheets.Delete」方法。可以使用循環語句來循環刪除多個工作表。以下是一個簡單示例代碼：

Sub DeleteWorksheets()

    Dim i As Integer
    
    For i = 1 To 5
    
        Worksheets("Sheet" & i).Delete
    
    Next i
    
End Sub

在上面的代碼中，循環從1到5，依次刪除名為「Sheet1」、「Sheet2」、「Sheet3」、「Sheet4」、「Sheet5」的工作表。

二、使用名稱範圍刪除工作表

在VBA中，可以通過名稱範圍來選擇要刪除的工作表。以下代碼演示了如何使用名稱範圍來刪除多個工作表：

Sub DeleteWorksheetsByName()

    Dim ws As Worksheet
    
    Dim wsNameArray() As Variant
    
    wsNameArray = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")
    
    For Each wsName In wsNameArray
    
        Set ws = Worksheets(wsName)
        
        Application.DisplayAlerts = False
        
        ws.Delete
        
        Application.DisplayAlerts = True
        
    Next wsName
    
End Sub

在上面的代碼中，先定義一個名為「wsNameArray」的變數，其中包含要刪除的工作表名稱。循環遍歷「wsNameArray」，將每個名稱分配給名為「ws」的工作表變數。然後通過「Worksheets(wsName)」語句來選擇要刪除的工作表。在刪除工作表之前，需要設置「Application.DisplayAlerts」屬性為False，以防止彈出刪除確認提示框。刪除完成後，將「Application.DisplayAlerts」恢復為True。

三、使用關鍵字刪除工作表

除了使用名稱範圍，還可以使用關鍵字來刪除工作表。以下代碼演示了如何使用關鍵字來刪除多個工作表：

Sub DeleteWorksheetsByKeyword()

    Dim ws As Worksheet
    
    Application.DisplayAlerts = False
    
    For Each ws In Worksheets
    
        If InStr(ws.Name, "Sheet") > 0 Then
        
            ws.Delete
        
        End If
        
    Next ws
    
    Application.DisplayAlerts = True
    
End Sub

在上面的代碼中，先設置「Application.DisplayAlerts」屬性為False。然後循環遍歷所有工作表，每次將一個工作表分配給名為「ws」的工作表變數。通過使用「InStr」函數來檢查工作表名稱是否包含關鍵字「Sheet」。如果包含，則刪除該工作表。最後將「Application.DisplayAlerts」屬性恢復為True。

四、使用用戶輸入刪除工作表

在上面的代碼中，要刪除的工作表名稱或關鍵字是硬編碼在代碼中的。當需要刪除其他工作表時，需要修改代碼。為了提高代碼的靈活性，可以使用用戶輸入來確定要刪除的工作表。以下是一個示例代碼：

Sub DeleteWorksheetsByUserInput()

    Dim ws As Worksheet
    
    Dim wsToDelete As String
    
    wsToDelete = InputBox("請輸入要刪除的工作表名稱：")
    
    Application.DisplayAlerts = False
    
    For Each ws In Worksheets
    
        If ws.Name = wsToDelete Then
        
            ws.Delete
        
        End If
        
    Next ws
    
    Application.DisplayAlerts = True
    
End Sub

在上面的代碼中，使用「InputBox」函數來提示用戶輸入要刪除的工作表名稱。然後通過循環遍歷所有工作表，檢查工作表名稱是否與用戶輸入相匹配。如果匹配，則刪除該工作表。

五、使用圖形用戶界面刪除工作表

在Excel中，還可以使用圖形用戶界面（GUI）來刪除工作表。以下是一些示例GUI操作：

1. 在工作表選項卡上右鍵單擊要刪除的工作表，然後選擇「刪除」。
2. 在「開始」選項卡上的「單元格」組中，單擊「刪除工作表」按鈕。
3. 在「開發人員」選項卡上的「工作表操作」組中，單擊「刪除工作表」按鈕。

這些GUI操作可以幫助用戶輕鬆刪除工作表，而無需編寫VBA代碼。