批量删除工作表 | ExcelOffice【微信公众号：水星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

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

'恢复屏幕更新

Excel.Application.ScreenUpdating = True

'公式自动重算

Excel.Application.Calculation = xlCalculationAutomatic

'恢复弹窗提示

Excel.Application.DisplayAlerts = True

End Sub

[……]

阅读全文>>>

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

感谢你的支持，我将持续地写出更好的文章。

热门文章

最近文章

微信公众号