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

Excel 是一个用于组织和分析数据的有效工具，您可能偶尔需要根据预定的条件从工作簿中删除特定的工作表。本教程将向您展示如何自动删除与某些单元格值条件匹配的工作表。

手动删除工作表可能需要一段时间，尤其是在处理包含大量工作表的大型工作簿时。为了根据特定单元格值删除工作表，我们可以使用 Excel 中的 VBA（Visual Basic for Applications）编程语言。

根据单元格值删除工作表

在这里，我们将首先创建一个 VBA，然后使用它来完成任务。因此，让我们来看一个简单的过程，了解如何在 Excel 中根据单元格值删除工作表。

步骤 1

考虑任何具有多个工作表的 Excel 工作簿。

首先，右键单击任何工作表名称，然后选择“查看代码”以打开 VBA 应用程序。然后单击“插入”，选择“模块”，并将以下代码复制到文本框中。

右键点击 > 查看代码 > 插入 > 模块 > 复制。

代码

Sub deletesheetbycell()
   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:", "Delete based value", _
                                    "", , , , , 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, "Delete based value"
End Sub

步骤 2

现在将工作表另存为宏启用模板，然后单击 F5 运行模块。然后在提示中输入输入文本，然后单击“确定”以完成任务。您将看到一个确认提示。

保存 > F5 > 输入文本 > 确定。

结论

在本教程中，我们使用了一个简单的示例来演示如何在 Excel 中根据单元格值删除工作表，以突出显示特定数据集。

更新于: 2023年7月10日

248 次查看

启动您的 职业生涯

通过完成课程获得认证

开始
广告