VBA实践技巧精粹006:批量删除未指定的工作表

问题提出:如何批量删除不需要的工作表?

解决方案:首先需要选定不能删除的工作表,统计出个数,将其移至工作簿所有工作表的最前边,利用统计的个数设置循环操作,逐一删除未选定的工作表.

代码:

Sub 批量删除工作表()
    Dim n As Integer, i As Integer
    n = ActiveWindow.SelectedSheets.Count '统计当前窗口选择的工作表数量
    ActiveWindow.SelectedSheets.Move before:=Worksheets(1) '选择的工作表移至最前面
    Application.DisplayAlerts = False '不显示警告信息
    For i = Worksheets.Count To n + 1 Step -1 '从最后一个工作表开始逐个删除剩余工作表
        Worksheets(i).Delete
    Next i
    Application.DisplayAlerts = True
End Sub

43 Things： Excel, Excel VBA, VBA, 爱好者, 程序设计, 工作表, 循环
BuzzNet： Excel, Excel VBA, VBA, 爱好者, 程序设计, 工作表, 循环
del.icio.us： Excel, Excel VBA, VBA, 爱好者, 程序设计, 工作表, 循环
Flickr： Excel, Excel VBA, VBA, 爱好者, 程序设计, 工作表, 循环
IceRocket： Excel, Excel VBA, VBA, 爱好者, 程序设计, 工作表, 循环
LiveJournal： Excel, Excel VBA, VBA, 爱好者, 程序设计, 工作表, 循环
Technorati： Excel, Excel VBA, VBA, 爱好者, 程序设计, 工作表, 循环

 今天你 菊子曰了么？