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

DataPeak

于 2021-12-17 10:56:06 发布

阅读量1.3k

点赞数 2

分类专栏：编程语言文章标签： vba excel

本文链接：https://blog.csdn.net/MagicalProgrammer/article/details/121991507

版权

编程语言专栏收录该内容

28 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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