如何删除某个工作表之后的工作表？

Question

我的工作簿中有工作表为Test。还有其他工作表。我想删除显示在工作表右侧的工作表，称为“测试”。

如何在VBA中做到这一点？需要一些帮助。

编辑：

Set test= ThisWorkbook.Worksheets("Test")
For i = Sheets.Count To (test.Index + 1) Step -1
    Delete Sheets(i)
Next

Answer 1

考虑：

Sub SheetKiller()
    Dim i As Long
    Dim j As Long
    j = 0
    For i = 1 To Sheets.Count
        If Sheets(i).Name = "Test" Then
            j = i
        End If
    Next i

    If j = 0 Or j = Sheets.Count Then Exit Sub

    Application.DisplayAlerts = False
        For i = Sheets.Count To j + 1 Step -1
            Sheets(i).Delete
        Next i
    Application.DisplayAlerts = True
End Sub