如何根据Excel中的单元格值删除工作表？

如果您的工作簿中包含多个工作表，并且需要根据特定单元格的内容删除某些工作表，VBA可以帮助您自动完成此任务。例如，您可能希望删除所有在A1单元格中包含特定单词或短语的工作表。本指南将向您展示如何使用VBA快速识别并删除这些工作表。

使用VBA代码根据单元格值删除工作表

使用VBA代码根据单元格值删除工作表

在这里，我将为您介绍一段代码，这段代码可以删除所有指定单元格具有特定值的工作表，请按照以下步骤操作：

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到 模块窗口中。

VBA代码：根据单元格值删除工作表：

Sub deletesheetbycell()
'Updateby Extendoffice
    Dim shName As String
    Dim xName As String
    Dim xWs As Worksheet
    Dim cnt As Integer
    shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
                                    "", , , , , 2)
    Application.DisplayAlerts = False
    cnt = 0
    For Each xWs In ThisWorkbook.Sheets
        If xWs.Range("A1").Value = shName Then
            xWs.delete
            cnt = cnt + 1
        End If
    Next xWs
    Application.DisplayAlerts = True
    MsgBox "Have deleted " & cnt & " worksheets.", vbInformation, "Kutools for Excel"
End Sub

注意：在上述代码中，A1 是包含要删除工作表依据的特定文本的单元格。

3. 然后按 F5 键运行此代码，会弹出一个提示框，提醒您输入要删除工作表所依据的具体值，请参见截图：

4. 点击 确定 按钮后，所有A1单元格中包含“KTE”文本的工作表都会被一次性删除。请参见截图：