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

ms excelmicrosoft technologiescomputers更新于 2024/8/3 19:56:17

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