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

Question

我的工作簿中有 Test 的工作表。还有其他工作表。我想删除出现在名为 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