如何用vba批量删除excel工作表?

删除excel工作表是vba代码编写中经常会遇到的。

如果要批量删除Excel工作表,可以使用如下的代码:

Sub exceloffice()
    '作者QQ:1722187970,微信:xycgenius,微信公众号exceloffice
    '关闭屏幕更新,加快代码运行速度
    Excel.Application.ScreenUpdating = False
    '公式计算方式改为手动,加快代码运行速度
    Excel.Application.Calculation = xlCalculationManual
    '关闭弹窗提示,使得代码流畅运行
    Excel.Application.DisplayAlerts = False
    Dim oWK As Worksheet
    Dim oWB As Workbook
    Set oWB = Excel.ThisWorkbook
    '循环所有Excel工作表
    For Each oWK In oWB.Worksheets
        '条件判断保留的Excel工作表
        If oWK.Name Like "**" Then
        
        Else
        '不满足条件的就删除
            oWK.Delete
        End If
    Next
    '恢复屏幕更新
    Excel.Application.ScreenUpdating = True
    '公式自动重算
    Excel.Application.Calculation = xlCalculationAutomatic
    '恢复弹窗提示
    Excel.Application.DisplayAlerts = True
End Sub
       

发表评论