VBA-刪除sheet

刪除指定的工作表，依次從后面刪除工作表、刪除一段工作表。代碼如下。

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　　# 恢復彈窗狀態