删除多余的工作表

删除指定的工作表，依次从后面删除工作表、删除一段工作表。代码如下。

Sub 删除工作表()
'
' 删除工作表 宏
' 从最后开始删除
'
' 快捷键: Ctrl+d
'
'    Sheets(Sheets.Count).Select
'    ActiveWindow.SelectedSheets.Delete
    
' 核心语句
'    Sheets(Sheets.Count).Delete


' 分区间删除
    a = 10
    Application.DisplayAlerts = False
    
    For i = a To Sheets.Count
        Sheets(a).Delete
        
    Next
    
    Application.DisplayAlerts = True
    
End Sub

1、删除指定的工作表，核心语句

Sheets(index).Delete

# index是工作表的索引号，excel从1开始。或者输入“indexname”，以具体的工作表名来代替。

2、删除最后的工作表

Sheets(Sheets.Count).Delete
# Sheets.Count代表工作薄中最后的一张工作表。

3、删除指定位置之后的工作表

a = 10　　　# 假设从第10个工作薄开始删除，包括第10个　　　　　　　　　　　　　
Application.DisplayAlerts = False　　# 为了避免反复确认删除，这里关闭确认删除的弹窗
    
For i = a To Sheets.Count　　　　　　　# 默认是step=1
    Sheets(a).Delete
Next
    
Application.DisplayAlerts = True　　# 恢复弹窗状态
    

 

转载于:https://www.cnblogs.com/smartmsl/p/10973346.html