VBA删除第一个sheet后的所有sheet

最新推荐文章于 2025-09-07 23:13:18 发布

原创最新推荐文章于 2025-09-07 23:13:18 发布 · 1.4k 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#vba #excel

编程语言专栏收录该内容

28 篇文章

订阅专栏

本文介绍了一个使用VBA编写的简单程序，该程序可以批量删除Excel工作簿中除第一个工作表之外的所有其他工作表。此脚本适用于需要清理大量Excel文件并保留每个文件的第一个工作表作为记录的情况。

Sub clearSheets()
    Dim worksheets As Sheets
    Dim ws As Worksheet
    Dim idx As Integer
    Set worksheets = ActiveWorkbook.worksheets
    idx = worksheets.Count
    Application.DisplayAlerts = False
    While idx > 1
        Set ws = worksheets.Item(idx)
        ws.Delete
        idx = worksheets.Count
    Wend
    Application.DisplayAlerts = True
End Sub