有时候，我们想快速删除工作簿中的一些工作表，但保留指定名称的工作表。如下图

1

所示，删除工作簿中除名称为“

Sheet1

”、“

Sheet2

”和“完美

Excel

”外的所有工作表。

 

图

1

 

VBA

代码如下：

Sub

删除指定工作表之外的工作表

()

    Dim strWorksheetAs String

    Dim i AsLong

    Dim wks AsWorksheet

   

   "

要保留的工作表名

   "

注意最后的逗号分隔符

   strWorksheet = "Sheet1,Sheet2,

完美

Excel,"

   

   Application.DisplayAlerts = False

   

   "

遍历工作表

    For Eachwks In ThisWorkbook.Worksheets

       "

检查工作表名是否在字符串中

       "

注意后面的逗号分隔符

        IfInStr(1, strWorksheet, wks.Name & ",") = 0 Then

           wks.Delete

        End If

    Next wks

   

   Application.DisplayAlerts = True

End Sub

• 【实用】这些东西用了大半辈子，才发现自己一直都用错了
• 2018中国程序员研究报告
• 2018年程序员报告：七成未婚，四成单身，上海收入最高
• 【海裕百特冠名】锂空气电池未来或颠覆电池领域 工业实用化路还
• 飘窗｜把你家的飘窗变成收纳处 更实用
• 实用 | 原来微信还能这么玩，幸亏知道得早！
• 高中语文实用类文本题型考点大汇总，拯救不会答题的你
• Windows 10学院之初中 如何卸载程序
• 11X11米农村现代别墅，4室3厅性价比超高，布局实用不比城里差！
• 涨姿势!还是这些买二手房选小区技巧实用!